再談存儲過程.....郁悶...

Question

Dim ladoComm As ADODB.Command
    
    Set ladoComm = New ADODB.Command
 
    With ladoComm
            .CommandType = adCmdStoredProc
            .CommandText = "testpro"
            Set .ActiveConnection = conn1
            .Parameters.Refresh
            .Parameters("@aa").Value = 123
            .Execute
            Text1.Text = .Parameters(@aa).Value

Answer 1

Dim ladoComm As ADODB.Command
    
    Set ladoComm = New ADODB.Command
 
    With ladoComm
            .CommandType = adCmdStoredProc
            .CommandText = "testpro"
            Set .ActiveConnection = conn1
            .Parameters.Refresh
            .Parameters("@aa").Value = 123
            .Execute
            Text1.Text = .Parameters(@aa).Value
    End With
set ladoComm=nothing

Answer 2

adodb.command
adodb.prarameter很简单的,试试就知道了.

Answer 3

dim aa as integer
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "testpro" \\'過程名
aa = cmd.Execute \\提示類型不配
Text1.Text = aa
你的存储过程有没有返回值，如果没有不用，
直接：cmd.Execute