给你我做的程序
Set MYCOM = New ADODB.Command
Set fhz = New ADODB.Parameter
fhz.Type = adInteger
fhz.Direction = adParamReturnValue
MYCOM.Parameters.Append fhz
Set yhm1 = New ADODB.Parameter
yhm1.Value = Text3.Text
yhm1.Type = adVarChar
yhm1.Size = 10
yhm1.Direction = adParamInput
MYCOM.Parameters.Append yhm1
Set mm1 = New ADODB.Parameter
mm1.Value = Text2.Text
mm1.Type = adVarChar
mm1.Size = 12
mm1.Direction = adParamInput
MYCOM.Parameters.Append mm1
Set dw1 = New ADODB.Parameter
dw1.Value = Combo3.Text
dw1.Type = adVarChar
dw1.Size = 12
dw1.Direction = adParamInput
MYCOM.Parameters.Append dw1
MYCOM.ActiveConnection = cnn
MYCOM.CommandText = "p_chkpwd_dd"
MYCOM.CommandType = adCmdStoredProc
Dim hhh As Integer
Set rs = MYCOM.Execute()
Set MYCOM = New ADODB.Command
Set fhz = New ADODB.Parameter
fhz.Type = adInteger
fhz.Direction = adParamReturnValue
MYCOM.Parameters.Append fhz
Set yhm1 = New ADODB.Parameter
yhm1.Value = Text3.Text
yhm1.Type = adVarChar
yhm1.Size = 10
yhm1.Direction = adParamInput
MYCOM.Parameters.Append yhm1
Set mm1 = New ADODB.Parameter
mm1.Value = Text2.Text
mm1.Type = adVarChar
mm1.Size = 12
mm1.Direction = adParamInput
MYCOM.Parameters.Append mm1
Set dw1 = New ADODB.Parameter
dw1.Value = Combo3.Text
dw1.Type = adVarChar
dw1.Size = 12
dw1.Direction = adParamInput
MYCOM.Parameters.Append dw1
MYCOM.ActiveConnection = cnn
MYCOM.CommandText = "p_chkpwd_dd"
MYCOM.CommandType = adCmdStoredProc
Dim hhh As Integer
Set rs = MYCOM.Execute()
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货