• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Searching the database between two set of dates

Searching the database between two set of dates

Searching the database between two set of dates

API Declarations


2 Text control label it with (t1, and t2)
1 mshflexgrid
1 command button

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Function connectDB()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\databasename.mdb"
End Function




Rate Searching the database between two set of dates

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Command1_click()
Call connectDB
rs.Open ("select t from tr group by t having t between #" & dt1 & "# and #" & dt2 & "#"), conn, , adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
Set rs = Nothing
Set conn = Nothing
End Sub