VB中调用带参数存储过程的实现

过程
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方法,结果很类似。