问？问

Question

'    Purpose:
'     Author:吴文智
'       Date:2001-11-13
'Description:要试用本例请在窗体中填加一个按钮
'            然后在代码窗体中粘贴如下代码
'            Good luck!'大概是这样的操作方法,本段代码仅为示意
Option ExplicitPrivate Sub Command1_Click()
    Dim cmTest As ADODB.Command
    Dim parTest As ADODB.Parameter
    Dim rs As ADODB.Recordset
    
    Set cmTest = New ADODB.Command
    cmTest.Prepared
    cmTest.CommandType = adCmdStoredProc
    cmTest.CommandText = "..."
    
    Set parTest = cmTest.CreateParameter
    parTest.Value = Value
    cmTest.Parameters.Append parTest
    
    'Set parTest = cmTest.CreateParameter
    'parTest.Value = Value
    'cmTest.Parameters.Append parTest
    '....
    '..
    '.
    
    Set rs = cmTest.Execute
    
    MsgBox rs.Fields(0)
End Sub