急!!!各位游侠来看看 vb中存储过程的调用

来源:百度知道 编辑:UC知道 时间:2024/06/04 08:12:59
dim cn as new adodb.connection
Dim adcomm As New adodb.Command
Dim ReturnValue As Integer
adcomm.ActiveConnection = cn '在框体加载事件里已建立了连接数据库
adcomm.CommandText = " tt " '存储过程名为 tt
adcomm.CommandType = adCmdStoredProc
adcomm.Parameters(1) = Combo1.Text ’存储过程从组合框中取参数
ReturnValue = adcomm.Execute() '返回存储过程的值
Text1(1).Text = Str(bb + ReturnValue)’bb为一全局整形变量,把最终结果显示在一文本框
我已把代码改成这样了
dim cn as new adodb.connection
Dim adcomm As New adodb.Command
Dim ReturnValue As Integer
adcomm.ActiveConnection = cn '在框体加载事件里已建立了连接数据库
adcomm.CommandText = " tt " '存储过程名为 tt。 (adcomm.CommandText = "exec tt '" & Combo1.Text & "'"也试过这种方法)
adcomm.CommandType = adCmdStoredProc
adcomm.Parameters(1) = "'" & Combo1.Text & "'" ’存储过程从组合框中取参数,参数类型是字符型char
ReturnValue = adcomm.Execute() '返回存储过程的值
Tex

dim cn as new adodb.connection
Dim adcomm As New adodb.Command
Dim ReturnValue As Integer
adcomm.ActiveConnection = cn '在框体加载事件里已建立了连接数据库
adcomm.CommandText = "exec tt '" & Combo1.Text & "'" '存储过程名为 tt
ReturnValue = adcomm.Execute() '返回存储过程的值
Text1(1).Text = Str(bb + ReturnValue)’bb为一全局整形变量,把最终结果显示在一文本框

如果是数值用
adcomm.Parameters(1) = val(Combo1.Text) ’存储过程从组合框中取参数