一个调用带参数的存储过程的问题!急!
存储过程中的两个参数(begindate,enddate)均为datetime型
代码如下:
Dim cnn1 As New ADODB.Connection
Dim command1 As New ADODB.Command
Dim parm_begindate As ADODB.Parameter
Dim parm_enddate As ADODB.Parameter
Dim strCnn As String
Private Sub Command1_Click()
If Len(Text1.Text) <> 8 Then
MsgBox ("日期位数不对")
Exit Sub
End If
If Len(Text2.Text) <> 8 Then
MsgBox ("日期位数不对")
Exit Sub
End If
Set parm_begindate = New ADODB.Parameter
Set command1 = New ADODB.Command
parm_begindate.Type = adDate
parm_begindate.Size = 8
parm_begindate.Direction = adParamInput
parm_begindate.Value = Format(Text1.Text, "yyyy - mm - dd")
command1.Parameters.Append
parm_begindate
Set parm_enddate = New ADODB.Parameter
Set command1 = New ADODB.Command
parm_enddate.Type = adDate
parm_enddate.Size = 8
parm_enddate.Direction = adParamInput
parm_enddate.Value = Format(Text2.Text, "yyyy - mm - dd")
command1.Parameters.Append parm_enddate
command1.ActiveConnection = cnn1
command1.CommandText = " selposdata "
command1.CommandType = adCmdStoredProc
End Sub
Private Sub Form_Load()
Set cnn1 = New ADODB.Connection
strCnn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=SettleDB;Data Source=GNETDATA\GNETDATA"
cnn1.Open strCnn
End Sub
Private Sub Form_Unload(Cancel As Integer)
cnn1.Close
Set cnn1 = Nothing
End Sub
运行时在command1.Parameters.Append
处出错,显示编译错误,参数不可选!
请问是怎么回事!