如何在vb調用SQL存儲過程,并能得到返回的參數值.

Question

存储过程：
db.Execute ("pro_sfmxb '" + Combo1.Text + Combo2.Text + Combo3.Text + "','" + Combo4.Text + "'")
函数：
rs.open "select db.Execute ("pro_sfmxb '" + Combo1.Text + Combo2.Text + Combo3.Text + "','" + Combo4.Text + "'") as hhhhh"cn,3,3
msgbox rs!hhhhh

Answer 1

在MSDN中输入关键字“stored procedure”搜索

Answer 2

建议使用adodb.command对象，有专门针对存储过程的操作

Answer 3

Set cmmd = New ADODB.Command
    Set cmmd.ActiveConnection = gConn
    gConn.BeginTrans
    bBeginTrans = True      '///set flag
    cmmd.CommandText = "I1_LoadSaveMO"
    cmmd.Parameters.Append cmmd.CreateParameter _
         ("IN_NO_PC", adBSTR, adParamInput, , gstrComputerName)    cmmd.Parameters.Append cmmd.CreateParameter _
         ("IN_NM_PROGRAM", adBSTR, adParamInput, , SCREEN_NO)    cmmd.Parameters.Append cmmd.CreateParameter _
         ("IN_CD_SYAIN", adBSTR, adParamInput, , gclsLoginInfo.strCurrentEmployeeCode)    cmmd.Parameters.Append cmmd.CreateParameter _
         ("in_data_from", adDBDate, adParamInput, , strDateFrom)    cmmd.Parameters.Append cmmd.CreateParameter _
         ("in_data_to", adDBDate, adParamInput, , strDateTo)    cmmd.Parameters.Append cmmd.CreateParameter _
         ("in_kubun", adInteger, adParamInput, , intOperType)    cmmd.Parameters.Append cmmd.CreateParameter _
         ("out_no_msg", adInteger, adParamOutput, , lngNoMsg)    cmmd.Parameters.Append cmmd.CreateParameter _
         ("out_msg", adBSTR, adParamOutput, , strMsg)    cmmd.Execute    strMsg = IIf(IsNull(cmmd.Parameters("out_msg").Value), "", cmmd.Parameters("out_msg").Value)
    lngNoMsg = cmmd.Parameters("out_no_msg").Value