Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Executing a Select Query

Sub Execute_SelectQuery()    Dim cmd As ADODB.Command    Dim myRecordset As ADODB.Recordset    Dim strPath As String    strPath = CurrentProject.Path & "\mydb.mdb"    Set cmd = New ADODB.Command    With cmd       .ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath       .CommandText = "[Products by Category]"       .CommandType = adCmdTable    End With    Set myRecordset = New ADODB.Recordset    Set myRecordset = cmd.Execute    Debug.Print myRecordset.GetString    myRecordset.Close    Set myRecordset = Nothing    Set cmd = Nothing End Sub