Dim cn As New ADODB.Connection
Dim cm As New ADODB.Command
cn.ConnectionString = "......."
cn.Open
With cm
.ActiveConnection = cn
.CommandType = adCmdStoredProc
.CommandText = "test"
.Parameters.Append .CreateParameter("test1", adChar, adParamInput, 10, "test")
.Parameters.Append .CreateParameter("test2", adChar, adParamOutput, 20)
End With
Set rs = cm.Execute MsgBox rs.Fields("U002").Value
cn.Close储存过程如下:
CREATE PROC test @test1 varchar(10),@test2 varchar(20) output AS
declare @temp varchar(20)
begin
select * from test where AAAA=@test1
end
'====================================test2是你表中的一个字段名
Dim cm As New ADODB.Command
cn.ConnectionString = "......."
cn.Open
With cm
.ActiveConnection = cn
.CommandType = adCmdStoredProc
.CommandText = "test"
.Parameters.Append .CreateParameter("test1", adChar, adParamInput, 10, "test")
.Parameters.Append .CreateParameter("test2", adChar, adParamOutput, 20)
End With
Set rs = cm.Execute MsgBox rs.Fields("U002").Value
cn.Close储存过程如下:
CREATE PROC test @test1 varchar(10),@test2 varchar(20) output AS
declare @temp varchar(20)
begin
select * from test where AAAA=@test1
end
'====================================test2是你表中的一个字段名
解决方案 »
- 请问我要如何实现这个判断
- vb 调用水晶报表 运行程序就挂了!
- 【问】如何实现类似快捷方式里的“查找目标”功能?
- 高分求获取WebBrowser控件里面的所有内容?
- 求教vb6.0处理裁剪、保存图片的问题
- 我是新手,有一个关于MDI窗体的问题请教高手!急!急!急!
- 大家似乎都是这么用ADO+DATAGRID的,为什么我就不行呢???
- 送分来了(分数不多,不要见怪哦)
- 那位前辈可以告诉我怎样用VB接收串口的数据?多谢!多谢!!!
- 如何使我的程序不受到显示桌面的干扰呢?
- 征答:哪里有SP5能够解决DAO及DATA控件访问Access2000问题的官方资料?
- 请问mschart控件,在横轴显示汉字的时候,如果是竖排,字符就模糊不清的问题?可解决?
rs.Fields("U002").Value 是吗