在vb中如何使用Sql server的存储过程？
如题 问题点数：0、回复次数：6Top
1 楼apple1980（行到水穷处,坐看云起时）回复于 2004-09-03 09:22:46 得分 0
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim param As ADODB.Parameter
Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
cmd.ActiveConnection = myConSql
cmd.CommandText = "select_content"'对应SQLSERVER里存储过程名
cmd.CommandType = adCmdStoredProc
myConSql.CursorLocation = adUseClient '设置为客户端
Set rs = cmd.Execute()
Top
2 楼mqmmx（魂之结界）回复于 2004-09-03 09:34:05 得分 0
dim DBconn as New ADODB.Connection
dbconn.Execute "spro_name 'a','b','c','d'" '存储过程名及参数Top
3 楼cuizm（射天狼 http://www.j2soft.cn/）回复于 2004-09-03 11:25:02 得分 0
Option Explicit
Private mConn As Connection
Private Sub Command1_Click()
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim param As ADODB.Parameter
Set cmd = New ADODB.Command
cmd.ActiveConnection = mConn
cmd.CommandText = "insert_users"
cmd.CommandType = adCmdStoredProc
Set param = cmd.CreateParameter("truename", adChar, adParamInput, 20, Trim(txttruename.Text))
cmd.Parameters.Append param
Set param = cmd.CreateParameter("regname", adChar, adParamInput, 20, Trim(txtregname.Text))
cmd.Parameters.Append param
Set param = cmd.CreateParameter("pwd", adChar, adParamInput, 20, Trim(txtpwd.Text))
cmd.Parameters.Append param
Set param = cmd.CreateParameter("sex", adChar, adParamInput, 20, Trim(txtsex.Text))
cmd.Parameters.Append param
Set param = cmd.CreateParameter("email", adChar, adParamInput, 20, Trim(txtemail.Text))
cmd.Parameters.Append param
Set rs = cmd.Execute
Command2_Click
End Sub
Private Sub Command2_Click()
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim param As ADODB.Parameter
Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
cmd.ActiveConnection = mConn
cmd.CommandText = "select_users"
cmd.CommandType = adCmdStoredProc
mConn.CursorLocation = adUseClient '设置为客户端
Set rs = cmd.Execute()
MsgBox rs.RecordCount
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
Private Sub Form_Load()
'open the connection
Set mConn = New Connection
mConn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=TestUser;Data Source=yang"
mConn.Open
Dim rs As New ADODB.Recordset
'Set rs = New ADODB.Recordset
rs.Open "users", mConn, adOpenStatic, adLockPessimistic
MsgBox rs.RecordCount
End Sub
Private Sub Form_Unload(Cancel As Integer)
mConn.Close
Set mConn = Nothing
End Sub
Top
4 楼soondy（xue）回复于 2004-09-03 11:35:21 得分 0
同意 mqmmx(奔腾2000) ！
这么做简单，且维护方便。
反对简单的问题复杂化。^_^ 提供参考的代码越多，对初学者来说就越是糊涂。Top
5 楼DebugXP（NULL）回复于 2004-09-03 12:19:02 得分 0
汗。。。
不敢苟同楼上的观点。。。
Top
6 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2004-09-03 12:22:58 得分 0
http://blog.csdn.net/online/archive/2004/08/05/66376.aspxTop
