在vb中如何执行SQL的存储过程？和参数？急急急急。。。。。。。。。。。

Question

在vb中如何执行SQL的存储过程？和参数？
就像在SQL里执行是这样的：
exec procupdate '2004.05.01','2004.05.31'
 在VB中如何实现？
谢谢！分不够再加

Answer 1

可以使用一种简单的方式如:
dim strSql as string 
dim strCon as string 
dim rs as new adodc.recordsetstrCon="连接字符串省略......"
strSql ="exec procupdate '2004.05.01','2004.05.31'"
rs.open strsql ,strCon
set rs=nothing或者
dim strSql as string 
dim strCon as string 
dim con as new adodc.ConnectionstrCon="连接字符串省略......"
strSql ="exec procupdate '2004.05.01','2004.05.31'"
con.open strCon
con.Execute(strSql)
set con=nothing

Answer 2

http://community.csdn.net/Expert/topic/3666/3666804.xml?temp=.7967035

Answer 3

Dim Con As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim strSql As StringstrSql = "Provider=sqloledb.1;data source=sqlserver;initial catalog=database;user id=sa;password=123456"
Con.Open strSql
strSql = "Exec procupdate '2004-12-31', '2005-01-07'"
Rst.Open strSql, Con, adOpenStatic, adLockOptimistic, adCmdText如果这个存储过程返回一个Recordset的话，那Rst就是此Recordset的内容。

Answer 4

conn.execute "Exec procupdate '2004-12-31', '2005-01-07'"

Answer 5

conn.execute "Exec procupdate '"& textbox1.text &"', '"& textbox2.text & "'"

Answer 6

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim qy As New ADODB.Command
On Error GoTo loginerr
Screen.MousePointer = 11
With cn
     .Provider = "MSDASQL.1"
     .ConnectionString = "连接字符串"
     .Open
End With
qy.ActiveConnection = cn
qy.CommandType = adCmdStoredProc
qy.CommandText = "de_user"  __存储过程
qy(1) = Text1.Text  --参数
qy(2) = Text2.Text
userid1 = Text1.Text
password1 = Text2.Text
qy.Execute
以上是一个密码验证的代码,可以给你参考

Answer 7

你可以看看我的Blog，应该可以满足你的要求的
http://blog.csdn.net/douhapy/archive/2005/01/10/246870.aspx
http://blog.csdn.net/douhapy/archive/2005/01/10/246883.aspx
http://blog.csdn.net/douhapy/archive/2005/01/10/246890.aspx