代码如下:
Dim SqlStr As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
DS = DataStart.Text
DE = DataEnd.Text
SqlStr = "Select*From DATA Where T3p1_P_logFileDbTime Between #" + DS + "# and #" + DE + "#"
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATA.mdb"
Set cmd.ActiveConnection = Conn
cmd.CommandText = SqlStr
Rs.CursorLocation = adUseClient
Rs.Open cmd, , adOpenDynamic, adLockBatchOptimistic
Set Exc1.DataSource = Rs
End Sub
Private Sub Form_Load()
DataStart.Text = Format(Now, "yyyy/mm/dd hh:mm:ss")
DataEnd.Text = Format(Now, "yyyy/mm/dd hh:mm:ss")
End Sub
Dim SqlStr As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
DS = DataStart.Text
DE = DataEnd.Text
SqlStr = "Select*From DATA Where T3p1_P_logFileDbTime Between #" + DS + "# and #" + DE + "#"
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATA.mdb"
Set cmd.ActiveConnection = Conn
cmd.CommandText = SqlStr
Rs.CursorLocation = adUseClient
Rs.Open cmd, , adOpenDynamic, adLockBatchOptimistic
Set Exc1.DataSource = Rs
End Sub
Private Sub Form_Load()
DataStart.Text = Format(Now, "yyyy/mm/dd hh:mm:ss")
DataEnd.Text = Format(Now, "yyyy/mm/dd hh:mm:ss")
End Sub