|
Вызов хранимой процедуры из Access Project
#32052125
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
Участник
Откуда: Киев
Сообщения: 24 876
|
|
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "Report_All_Money_For_Today"
Set prm = cmd.CreateParameter( "ret" , adInteger, adParamReturnValue)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter( "sumNalS" , adDouble, adParamOutput)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter( "sumNalG" , adDouble, adParamOutput)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter( "sumBN" , adDouble, adParamOutput)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter( "sumNeedNG" , adDouble, adParamOutput)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter( "sumNeedNS" , adDouble, adParamOutput)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter( "summNeedBN" , adDouble, adParamOutput)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter( "summBNO" , adDouble, adParamOutput)
cmd.Parameters.Append prm
cmd.Execute
ret = cmd.Parameters( "ret" )
If ret = 0 Then
sumNG = cmd.Parameters( "sumNalG" )
sumNS = cmd.Parameters( "sumNalS" )
sumB = cmd.Parameters( "sumBN" )
sumNNG = cmd.Parameters( "sumNeedNG" )
sumNNS = cmd.Parameters( "sumNeedNS" )
sumNB = cmd.Parameters( "summNeedBN" )
sumBNO = cmd.Parameters( "summBNO" )
|
|
|
