Option Explicit
Dim cnmain As New ADODB.Connection
Dim rsmain As New ADODB.Recordset
Public Sub QueryJM()
Dim i
Dim A$ '查询的SQL语句
If cnmain.State <> 1 Then
cnmain.CommandTimeout = 30
cnmain.ConnectionString = constr
cnmain.Open
End If
On Error GoTo Error_0
If ChkAllDate.value = 1 Then
A$ = "SELECT * FROM CSSJ where JH LIKE '" & txtJH.Text & "%'"
Else
A$ = "SELECT * FROM CSSJ WHERE ("
A$ = A$ & " CSRQ>='" & Format(DTStart.value, "yyyy-mm-dd") & "' And CSRQ<='" & Format(DTEnd.value, "yyyy-mm-dd") & "')" & "AND " & "JH LIKE '" & txtJH.Text & "%'"
End If
Helps "查询井名"
If rsmain.State = 1 Then rsmain.Close
rsmain.CursorLocation = adUseClient
rsmain.Open A$, cnmain, 3
'刷新显示字段
For i = 0 To 19
Set TxtCSSJ(i).DataSource = rsmain
Next i
Set DataGrid1.DataSource = rsmain
Exit Sub
Error_0:
MsgBox err.Description
Exit Sub
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error GoTo err:
Select Case Button.Key
Case "First"
rsmain.MoveFirst
Case "Prior"
rsmain.MovePrevious
Case "Next"
rsmain.MoveNext
Case "Last"
rsmain.MoveLast
End Select
SetToolButton
err:
Exit Sub
End Sub