vsem privet i izvenite za latinizy
accessXP-ADP
hohu vipolnit proceduru
CREATE PROCEDURE dbo.sp_AddFloor(@BuildingID int,
@FloorNum smallint,
@account varchar(13))
AS INSERT INTO dbo.Floor
(BuildingId, FloorNum, account)
VALUES (@BuildingID, @FloorNum, @account)
GO

vot vipolnenie:
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter
Dim varrecs As Variant
Dim CodeFloor As Integer
Dim strParam As String

CaptionParameter1 = " ÷åã îñôø ÷åîä "
DoCmd.OpenForm "F_Parameters"
If Trim(ValueParameter1) <> "0" Then
Set cnn = CurrentProject.Connection
Set cmd = New ADODB.Command
cmd.ActiveConnection = cnn
cmd.CommandText = "sp_AddFloor"
cmd.CommandType = adCmdStoredProc
Set prm = cmd.CreateParameter("buildingID", adInteger, adParamInput, , Me!BuildingId)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("FloorNum", adSmallInt, adParamInput, , CInt(Trim(ValueParameter1)))
cmd.Parameters.Append prm
strParam = Trim(Forms!F_Buildings!short & Format(Trim(ValueParameter1), "000") & "00")
Set prm = cmd.CreateParameter("account", adVarChar, adParamInput, , strParam)
cmd.Parameters.Append prm
cmd.Execute varrecs
Debug.Print varrecs
Set prm = Nothing
Set cmd = Nothing
cnn.Close
Set cnn = Nothing

Me.Refresh
End If
na stroke
Set prm = cmd.CreateParameter("account", adVarChar, adParamInput, , strParam) access oret pro parametr :

Parameter object is improperly defined.Inconsistent or in complete information was provided


ne ponimau cto delau ne pravilno

spasibo