Executing pre-defined MS Access query from VB .Net

With Access, you can treat Queries as if they were nomal tables (almost): Dim strSQL As String = "SELECT * FROM MYQuery" '<-- CHANGE TO USE YOUR QUERY NAME Dim dbConnection As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MYDATABASE.mdb") '<-- CHANGE TO USE YOUR DATABASE PATH Dim dbCommand As New OleDb.OleDbCommand(strSQL, dbConnection) Dim dbDataReader As OleDb.OleDbDataReader Try dbConnection.Open() dbDataReader = dbCommand.ExecuteReader() Do While dbDataReader.Read() MsgBox(dbDataReader("MyFieldName").ToString) '<-- CHANGE TO USE YOUR FIELD NAMES Loop Catch exc As Exception MsgBox(exc.Message) Finally If (Not dbDataReader Is Nothing) Then dbDataReader.Close() If (Not dbConnection Is Nothing) Then dbConnection.Dispose() End Try

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

cgcomp21y ago
With Access, you can treat Queries as if they were nomal tables (almost): Dim strSQL As String = "SELECT * FROM MYQuery" '<-- CHANGE TO USE YOUR QUERY NAME Dim dbConnection As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MYDATABASE.mdb") '<-- CHANGE TO USE YOUR DATABASE PATH Dim dbCommand As New OleDb.OleDbCommand(strSQL, dbConnection) Dim dbDataReader As OleDb.OleDbDataReader Try dbConnection.Open() dbDataReader = dbCommand.ExecuteReader() Do While dbDataReader.Read() MsgBox(dbDataReader("MyFieldName").ToString) '<-- CHANGE TO USE YOUR FIELD NAMES Loop Catch exc As Exception MsgBox(exc.Message) Finally If (Not dbDataReader Is Nothing) Then dbDataReader.Close() If (Not dbConnection Is Nothing) Then dbConnection.Dispose() End Try