因水平有限,问了好久都没解决的问题,希望大家耐心的解答!谢谢了!
vb中调用带(begindate,enddate 8位datetime型)存储过程
代码如下:
Dim cnn1 As ADODB.Connection
Dim Command1 As 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(Text2.Text, "yyyy-mm-dd")
Command1.Parameters.Append parm_begindate
Set parm_enddate = New ADODB.Parameter
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 = "RRR2"
Command1.CommandType = adCmdStoredProc
End Sub
Private Sub Form_Load()
Set cnn1 = New ADODB.Connection
cnn1.CursorLocation = adUseClient
strCnn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=SettleDB;Data Source=GNETDATA\GNETDATA"
cnn1.Open strCnn
If cnn1.State <> 1 Then
MsgBox "连接失败"
Exit Sub
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
cnn1.Close
Set cnn1 = Nothing
End Sub
运行时在format那一行显示溢出。
另外麻烦帮我看一下是否还有其他问题,如何改正!