[accessXP & VBA] recordset probleem

[Verwijderd]

Ik heb volgende code om een tabel te exporteren naar een bestand.
Dit gaat d.m.v. een knop.

code:

Dim db As Database, rst As Recordset

Set rst = CurrentDb.OpenRecordset("select * from [Audit_Trail]")
Open "y:\test\example.txt" For Output As #1
Do Until rst.EOF
    Print #1, rst("ID") & ", "; rst("Action")
    rst.MoveNext
Loop
Close #1
rst.Close
Set db = Nothing

Nu is het probleem dat ik telkens een foutmelding krijg:

code:

Runtime error '13'.
Type Mismatch

Als ik debug zit de fout op:

code:

Set rst = CurrentDb.OpenRecordset("select * from [Audit_Trail]")

Heeft iemand enig idee wat dit kan zijn???

[Verwijderd]

Probeer de query in access uit te voeren. Meestal krijg je dan een uitgebreidere foutmelding.

[Emmeau]

Moet er niet nog een RsT.movefirst na het openen van de recordset?

[MrDry]

Is CurrentDB wel gedefinieerd?

[gorgi_19]

Goede suggestie gevonden:

quote: http://www.google.nl/sear...%27%22+vba&hl=nl&ie=UTF-8

you are missing creating a NEW recordset

Dim recClone as NEW recordset
or
set recClone = NEW recordset

[ Voor 52% gewijzigd door gorgi_19 op 20-05-2003 14:20 ]

[Verwijderd]

Dat New recordset was ik i.i.d. vergeten, maar wat ik ook doe blijf de zelfde fout houden. Iemand nog een idee? of kan het exporteren ook op een andere manier?? (niet via file -> export)

[Emmeau]

De []s zijn ook niet nodig voor zover ik me kan herinneren.

[Verwijderd]

de []s hebben geen invloed op de query

[Tirillo]

Het lijkt erop dat ie de query niet helemaal als string pakt..

Werkt het als je probeert:

code:

Dim sqlStr as String

Set sqlStr = "select * from [Audit_Trail]"

Set rst = CurrentDb.OpenRecordset(sqlStr)

[ Voor 8% gewijzigd door Tirillo op 20-05-2003 14:40 ]

[Verwijderd]

nee, zelfde fout

[Tirillo]

Even misschien iets stoms en een herhaling van wat MrDry al vroeg:

Je doet Dim db as Database, maar er staat nergens een open.. Toevallig per ongeluk Set db = OpenDatabase(locatie) vergeten misschien?

[henkleerssen]

dit is de oplossing:

Visual Basic:

Dim db As Database, rst As Recordset

Set rst = CurrentDb.OpenRecordset("select * from [Audit_Trail]")
Open "d:\example.txt" For Output As #1
Do Until rst.EOF
    Print #1, rst!ID & ", "; rst!Action
    rst.MoveNext
Loop
Close #1
rst.Close
Set db = Nothing

Tirillo... currentdb is al een bestaand database object... Met dao is 1 op de 3 keer mismatches hebt op strings... dus altijd extra op checken..
succes ermee...

[ Voor 27% gewijzigd door henkleerssen op 20-05-2003 15:12 ]

[Verwijderd]

Ok,
het is gelukt, probleem was dat de DAO niet goed herkend werd. i.i.g. ik heb bij Tools -> reference de DAO3.6 naar boven gezet en nu werkt alles wel gewoon.

Bedankt maar weer.