VB中如何使用SQL中的存储过程?

Question

Set recordset = command.Execute( RecordsAffected, Parameters, Options ),详见msdn

Answer 1

Dim rcPC As New ADODB.Command  
Dim strResult as String
    rcPC.ActiveConnection = oConn
    rcPC.CommandType = adCmdStoredProc
    rcPC.CommandText = "plancntr"
    With rcPC
        .Parameters("@cntrid") = txtCntrid.Text
        .Parameters("@selectid") = lSelectid
        .Parameters("@carid") = txtCarid.Text & ""
        .Parameters("@eir") = txtEIR.Text & ""
        .Parameters("@closeno") = txtCloseNo.Text & ""
        .Parameters("@proposer") = lUser.UserID
        .Execute
    strResult=.Parameters("@Result")  '返回结果
    End With
    Set rcPC=nothing

Answer 2

dim rs  as new adodb.recordset
dim strSQL=string
strSQL=" sp_aaa(para1,para2)"
rs.open strSQL,connection,,,adCmdStoredProc

Answer 3

不好意思，因为最近在学C#，连VB的语法都忘了……
第二句有问题，自己改一下吧

Answer 4

dim cnn as new adodc.connection
cnn.Open "data Resource"
Dim sql As String
sql = "EXEC sp_logindate @d='" + Parameter + " '"
cnn.Execute (sql)

Answer 5

dim cn as new adodb.connection
dim cmd as new adodb.command
dim parm0 as new adodb.parameter
dim parm1 as new adodb.parameter
dim ssql as string
set cn=new adodb.connection
ssql="provider=sqloledb.1;integrated security=sspi;......"
cn.open ssql
cmd.activeconnection=cn
cmd.commandtype=adcmdstoredproc
cmd.commandtext="countstoreqty"
parm0.type=adchar
parm0.size=4
cmd.parameters.append parm0
parm1.direction=adparamoutput
parm1.type=adinteger
parm1.size=4
cmd.parameters.append parm1
parm0.value=text1  '待输入内容
cmd.execute

Answer 6

楼上们的太复杂，看看我的吧。Dim db As New ADODB.Connection       '数据库连接
Dim adoPro As New ADODB.Recordset    '记录集
Dim strConn As String
    strConn = "PROVIDER=MSDASQL;" + "DRIVER={SQL Server};" & _
    "SERVER=wenw;" + "DATABASE=Dataname;UID=sa;PWD="
    db.ConnectionString = strConn
    db.Open    db.StoreName 'Parameter1','Parameter2',Adopro
'StoreName 是存储过程名，Parameter1是参数1,Parameter2是参数2,
'Adopro是取存储过程返回的记录集