Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Filtering Records with an SQL Clause

Sub GetRecords_WithSQLWhere()    Dim conn As ADODB.Connection    Dim myRecordset As ADODB.Recordset    Dim strSQL As String    strSQL = "Select * from Employees Where IsNull(Region) OR TitleOfCourtesy = 'Mrs.' "    Set conn = New ADODB.Connection    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\mydb.mdb"    Set myRecordset = New ADODB.Recordset    myRecordset.Open strSQL, conn, adOpenKeyset, adLockOptimistic    MsgBox "Selected " & myRecordset.RecordCount & " records."    myRecordset.Close    Set myRecordset = Nothing    conn.Close    Set conn = Nothing End Sub