Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 191
  • Last Modified:

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!
0
drewderocco
Asked:
drewderocco
  • 3
  • 2
1 Solution
 
flavoCommented:
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
0
 
Bob LambersonSoftware EngineerCommented:
Here is the syntax

Private Sub Form_Load()
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


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

Bob
0
Get 10% Off Your First Squarespace Website

Ready to showcase your work, publish content or promote your business online? With Squarespace’s award-winning templates and 24/7 customer service, getting started is simple. Head to Squarespace.com and use offer code ‘EXPERTS’ to get 10% off your first purchase.

 
drewderoccoAuthor Commented:
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!
0
 
Bob LambersonSoftware EngineerCommented:
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
0
 
drewderoccoAuthor Commented:
Bob:
Works like a charm.  Thanks!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now