Private Sub Form_Load()
Form1.AutoRedraw = True
Dim Sc As String, Result As String
Dim Cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim Rs As New ADODB.Recordset
Dim A(5) As String, B(5) As String
Dim i As Integer
i = 0
Sc = "Driver={SQL Server}; Server=(local);Uid=sa;pwd=;database=Employees"
Cn.Open Sc
With cmd
.ActiveConnection = Cn
.CommandType = adCmdStoredProc
.CommandText = "proc_aa"
.Parameters("@T_no") = "2002" '输入参数值
End With
Set Rs = cmd.Execute()
Do While Not Rs.EOF
A(i) = Rs("T_no") '取结果集
B(i) = Rs("Mod") 'T_no和Mod均为表aa中的字段
Rs.MoveNext
i = i + 1
Loop
Rs.Close
Set Rs = Nothing
Set Cn = Nothing
For i = 0 To UBound(A) '显示结果
Print A(i) & " " & B(i)
Next i
End Sub