asked on

run access query in vb

I have an Access Database (Suite.mdb) with a VB 6.0 front end. I would like to run a query in the database (tblContactsQuery) from the VB front end. Any ideas? Also, the database is attached with an ADODC to the VB front end.

thanks!

flavo

Hi drewderocco,

example (not the best with ado, so im not sure about the connection string

Dim db As ADODB.Connection
Set db = New ADODB.Connection

'set connection

db.Execute sMyUpdateQuery

Idea???

Dave

ASKER CERTIFIED SOLUTION

Bob Lamberson

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Bob Lamberson

add your path to the mdb where I have <c:\aaa testing>

Bob

drewderocco

ASKER

sorry, I should have been more specific. When I ask this query to run, the command in VB is in the menu of the form. I have listed "Query Contacts" as the verbage in the menu. When I choose this, I would like the query to run in access.

thanks!

Bob Lamberson

go to the code behind the form and in the left hand drop down box, select the menu option name "Query Contacts". Then in the right hand dropdown list select the Query Contacts_Click event and enter the code so it will end up looking like this>

Private Sub Private Sub QueryContacts_Click() ' **NOTE HERE that your event name may be different from the display name.
Dim ProductsQuery As String
Dim cn As ADODB.Connection
Dim cmd As String
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=<c:\aaa testing>\Suite.mdb;User Id=admin;Password="

cmd = "tblContactsQuery"

cn.Execute cmd
End Sub

**You can find the event name of the menu option by going to the form, right clicking, left click Menu Editor, select the menu option with the caption "Query Contacts" and see what the Name is.

-Bob

drewderocco

ASKER

Bob:
Works like a charm. Thanks!