sql querries

[delali]

Hi,
this is an excel/access question. i was wondering how to
make excel run a querry in access and put the result of
the querry into a spreadsheet.

thanx a lot

 

[nath]

-----Original Message-----
Hi,
this is an excel/access question. i was wondering how to
make excel run a querry in access and put the result of
the querry into a spreadsheet.

thanx a lot
.

Turn DAO reference on:

Sub Ret_Acc_Qry

Dim dbs as database
dim sql as string
dim rst as recordset

fname = "filename of database"

Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
Set dbs = wrkJet.OpenDatabase(fname, True)

sql = "sql statement"

set rst = dbs.openrecordset(sql)
h=0

for each fld in rst.fields
activesheet.[a1].offset(0,h).value = fld.name
next fld

activesheet.range("a2").copyfromrecordset rst

dbs.close
end sub

 

[Tom Ogilvy]

Mr. Erlandsen's site has examples of using ADO or DAO
http://www.erlandsendata.no/english/index.php?t=envbadac

you can use Data=>Get External Data possibly.

 

[nath]

-----Original Message-----
Hi,
this is an excel/access question. i was wondering how to
make excel run a querry in access and put the result of
the querry into a spreadsheet.

thanx a lot
.
Sorry before next fld in my response you need h=h+1

nath