Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 187
  • 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 your Conversational Ransomware Defense e‑book

This e-book gives you an insight into the ransomware threat and reviews the fundamentals of top-notch ransomware preparedness and recovery. To help you protect yourself and your organization. The initial infection may be inevitable, so the best protection is to be fully prepared.

 
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

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

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