請教各位,在VB中怎麼樣調用SQL的存儲過程?

stevenqi 2002-09-07 08:24:26
請教各位,在VB中怎麼樣調用SQL的存儲過程?
...全文
24 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
mlj0381 2002-09-08
  • 打赏
  • 举报
回复
建立一个SQL连接后执行SQL语名就行了,和在SQL server里写SQL语句一样
lovepeacer 2002-09-07
  • 打赏
  • 举报
回复
up
hycao 2002-09-07
  • 打赏
  • 举报
回复
相关的存储过程代码:
CREATE PROCEDURE proc_aa
@T_no char(4)
AS
select T_no, Mod from aa where T_no = @T_no
lid617914 2002-09-07
  • 打赏
  • 举报
回复
UserConnection
hycao 2002-09-07
  • 打赏
  • 举报
回复
Option Explicit

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

7,759

社区成员

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

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