VB中调用带参数存储过程的实现之二(转)

在窗体的LOAD事件中加入如下代码：
Set cnn1 = New ADODB.Connection
‘生成一个连接
strCnn = "DSN=MYDSN;uid=sa;pwd="
‘创建的系统数据源MYDSN指向PUBS数据库
cnn1.Open strCnn ‘打开连接
在窗体的UNLOAD中的加入代码如下：
cnn1.Close ‘关闭连接
Set cnn1 = Nothing ‘释放连接

在按钮中的代码如下：
Dim I As integer
Dim j as integer
Set parm_jobid = New ADODB.Parameter
Set mycommand = New ADODB.Command
' parm_jobid.Name = "name1"
this line can be ommited
parm_jobid.Type = adInteger ‘参数类型
parm_jobid.Size = 3 ‘参数长度
parm_jobid.Direction = adParamInput
‘参数方向，输入或输出
parm_jobid.value = 100 ‘参数的值
mycommand.Parameters.Append
parm_jobid ‘加入参数


Set parm_joblvl = New ADODB.Parameter
‘parm_joblvl.Name = "name2"
parm_joblvl.Type = adInteger
parm_joblvl.Size = 3
parm_joblvl.Direction = adParamInput
mycommand.value = 100
mycommand.Parameters.Append parm_joblvl


mycommand.ActiveConnection = cnn1
‘指定该command 的当前活动连接
mycommand.CommandText = " myprocedure "
‘myprocedure 是你要调用的存储过程名称
mycommand.CommandType = adCmdStoredProc
‘表明command 为存储过程
Set rstByQuery = New ADODB.Recordset
Set rstByQuery = mycommand.Execute()
I = 0
Do While Not rstByQuery.EOF
I = I + 1 ‘ I 中保存记录个数
rstByQuery.MoveNext
Loop
MSFlexGrid1.Rows = I + 1
‘动态设置MSFlexGrid的行和列
MSFlexGrid1.Cols = rstByQuery.Fields.Count + 1
MSFlexGrid1.Row = 0
For I = 0 To rstByQuery.Fields.Count - 1
MSFlexGrid1.Col = I + 1
MSFlexGrid1.Text = rstByQuery.Fields.Item(I).Name
Next ‘设置第一行的标题，用域名填充

I = 0
Set rstByQuery = mycommand.Execute()
Do While Not rstByQuery.EOF
I = I + 1
MSFlexGrid1.Row = I ‘确定行
For j = 0 To rstByQuery.Fields.Count - 1
MSFlexGrid1.Col = j + 1
MSFlexGrid1.Text = rstByQuery (j)
‘添充所有的列
Next
rstByQuery.MoveNext

Loop ‘这个循环用来填充MSFlexGrid的内容

---- 特殊说明

---- 1． Set recordset = command.Execute( RecordsAffected, Parameters, Options ) command.Execute RecordsAffected, Parameters, Options 这是command的两种用法，一种有返回结果集，一种没有返回结果集。

---- RecordsAffected：是指用update、delete操作时所影响的结果，对select的查询，其值为-1；这和在Ms sql server 中的Query Analyzer中的不一样。Query Analyzer中，select、update、delete的结果显示的是实际查、改、删的记录数。

---- Options：指明command的类型，有adCmdText、adCmdTable、adCmdStoredProc等等，用户可见MSDN。

---- 2.在参数的类型中，用户可以用varchar来代替integer,系统会帮你自动实施转化；

---- 3．本例中仅为带输入参数的存储过程，如果要有输出参数，根据MSDN的材料，用ADO不行。你可以用RDO数据对象，MSDN中有一个例子，此处不做过多赘述；

---- 4．可以不用ADO COMMAND对象，也可直接调用ADO CONNECTION的execute方法,结果很类似。

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8781179/viewspace-925192/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8781179/viewspace-925192/