ADO调用SQL SERVER存储过程几例

koutx

将在Access中用ADO调用update、insert、delete三种存储过程代码整理了一下发上，供坛友们参考。
Dim cmd As New ADODB.Command
Set cmd.ActiveConnection = cn() '这里将连接对象赋值给命令对象cmd的激活连接  cn()
cmd.CommandType = adCmdStoredProc '设置命令类型为存储过程
1、将客户李四改为张三：
cmd.CommandText = "update_khb_1"
    '给存储过程的输入参数赋值
cmd.Parameters("@客户_2").Value = "张三"
cmd.Parameters("@客户_1").Value = "李四"
或
2、删除叫李四的客户：
cmd.CommandText = "delete_khb_1"
cmd.Parameters("@客户_1").Value = "李四"
或
3、新增叫王五的客户：
cmd.CommandText = "insert_khb_1"
cmd.Parameters("@客户_1").Value = "王五"
'debug.print cmd.Parameters(0).Value'获取刚加入的客户的ID号
cmd.Execute
cn.Close
注：存储过程附于下图。与SQL SERVER库的连接自定义函数cn()省略

leonshi

谢谢分享

leonshi

顺便请教一个问题，我在使用存储过程时候，我重新启动服务器后，access客户端窗体第一次调用存储的时候比较慢，后面就好正常了。

koutx

单就这一泛泛的现象而言，可真说不好。别说你重新打开服务器时，即便你关闭SQL SERVER服务管理器再重新启动它，客户端的反应都须等上一会儿才能顺畅。

leonshi

谢谢建议