arian29
27-07-2008, 09:04 PM
I am having problem with using sql queries in VBA(excel), anyone knows if there any good book ir tutorial available for the same ? I am able to create a adodb connection but how do i execute a aql statement ?
connection string and my code:
Private Sub CommandButton1_Click()
Set con = CreateObject("ADODB.connection")
Set rs = CreateObject("ADODB.recordset")
Set cmd = CreateObject("ADODB.command")
con.Provider = ("Microsoft.Jet.OLEDB.4.0;Data Source=L:\Hewitt Projects\Central Trakker\db1.mdb;Persist Security Info=False")
con.Open "L:\Projects\Trakker\db1.mdb"
rs.Open "select * from Table1", con
Sheet1.Range("a1").CopyFromRecordset (rs)
strsql = "select 'name' from table1 where age=12"
MsgBox (strsql)
End Sub
connection string and my code:
Private Sub CommandButton1_Click()
Set con = CreateObject("ADODB.connection")
Set rs = CreateObject("ADODB.recordset")
Set cmd = CreateObject("ADODB.command")
con.Provider = ("Microsoft.Jet.OLEDB.4.0;Data Source=L:\Hewitt Projects\Central Trakker\db1.mdb;Persist Security Info=False")
con.Open "L:\Projects\Trakker\db1.mdb"
rs.Open "select * from Table1", con
Sheet1.Range("a1").CopyFromRecordset (rs)
strsql = "select 'name' from table1 where age=12"
MsgBox (strsql)
End Sub