我的SQL中表的时间段是varchar型,格式是 如2010-6-2 11:25:42,也就是vb中now函数返回的时间,是实时的采样时间,现在我想设定一个时间段,开始时间和结束时间都是textbox控件, chaxunsystem中是表的名称
Private Sub Form_Unload(Cancel As Integer)
If Not (mRst Is Nothing) Then
If mRst.State = adStateOpen Then mRst.Close: Set mRst = Nothing
End If
If Not (mCnn Is Nothing) Then
If mCnn.State = adStateOpen Then mCnn.Close: Set mCnn = Nothing
End If
End SubPrivate Sub seek_Click()
On Error GoTo ErrorLoad
Dim mStr As String
If mRst.State = adStateOpen Then mRst.Close: Set mRst = Nothing
start.Text = Format(start.Text, "YYYY-MM-DD HH:MM:SS")
Tend.Text = Format(Tend.Text, "YYYY-MM-DD HH:MM:SS")
mStr = "select * from " & chaxunsystem.Text & " where 时间 between '" & start.Text & "' and '" & Tend.Text & "' "
Debug.Print mStr
mRst.Open mStr, mCnn, adOpenKeyset, adLockReadOnly
Set DataGrid1.DataSource = mRst
Exit Sub
ErrorLoad:
MsgBox "´íÎó±àºÅ£º" & Err.Number & vbCrLf & "´íÎóÐÅÏ¢£º" & Err.Description, vbCritical, "Á¬½Ó´íÎó"
End Sub