该程序错在哪里?请指正。

fuping 2001-07-19 06:57:03
a1,a2,a3,a4,a5是变量,被赋值后,调用aa过程后cmd.Execute不能执行,why?

Sub aa()

Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command

Dim prms0, prms1, prms2, prms3, prms4, prms5, prms6 As ADODB.Parameter
Dim rs As ADODB.Recordset
Dim strcnn As String

'MsgBox a1
'为存储过程定义命令对象

Set cnn = New ADODB.Connection
strcnn = "provider=sqloledb;database=eximple;user id=sa;password=;DRIVER={SQL Server};SERVER=Liyougui"
cnn.Open strcnn

Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cnn
cmd.CommandText = "sp_addsubscription"
cmd.CommandType = adCmdStoredProc

Set prms0 = New ADODB.Parameter
prms0.Type = adChar
prms0.Size = 10
prms0.Direction = adParamInput
prms0.Value = a1

Set prms1 = New ADODB.Parameter
prms1.Type = adChar
prms1.Size = 10
prms1.Direction = adParamInput
prms1.Value = "ALL"

Set prms2 = New ADODB.Parameter
prms2.Type = adChar
prms2.Size = 10
prms2.Direction = adParamInput
prms2.Value = a2

Set prms3 = New ADODB.Parameter
prms3.Type = adChar
prms3.Size = 10
prms3.Direction = adParamInput
prms3.Value = a3

Set prms4 = New ADODB.Parameter
prms4.Type = adChar
prms4.Size = 15
prms4.Direction = adParamInput
prms4.Value = a4

Set prms5 = New ADODB.Parameter
prms5.Type = adChar
prms5.Size = 10
prms5.Direction = adParamInput
prms5.Value = ""

Set prms6 = New ADODB.Parameter
prms6.Type = adChar
prms6.Size = 4
prms6.Direction = adParamInput
prms6.Value = a5




cmd.Parameters.Append prms0
cmd.Parameters.Append prms1
cmd.Parameters.Append prms2
cmd.Parameters.Append prms3
cmd.Parameters.Append prms4
cmd.Parameters.Append prms5
cmd.Parameters.Append prms6

cmd.Execute

End Sub
...全文
37 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧