Expoter data fra en tabel til en ASCII fil

Skal du bruge en dump fil til en MySQL så kan du sende din databse og list over hvilke der skal laves dump af til: webmaster@e-x-e.dk

Open "MitFilnavn" For Output As #1
Print #1, Me.Felt1;
Print #1, Me.Felt2;
Print #1, Me.Felt3
Close #1

Hvordan definer jeg hvilken tabel jeg vil hente data fra?

Du pakker ovenstående ind i en stump kode i stil med:

Dim Rst as Recordset
Open "MitFilnavn" For Output As #1
Set Rst = CurrentDb.OpenRecordset("EnEllerAndenForespørgsel")
With Rst
  Do
    Print #1, .Fields("Felt1");
    Print #1, .Fields("Felt2");
    Print #1, .Fields("Felt3")
    .MoveNext
  Loop Until .EOF
  .Close
End With
Set Rst = Nothing
Close #1

... "EnEllerAndenForespørgsel" kunne selvfølgelig lige så godt være "EnEllerAndenTabel"; men du vil formodentlig udvælge visse poster.
Det kan naturligvis også være et SQL udtryk som f.eks. "SELECT MinTabel.* FROM MinTabel WHERE EtFelt=1"

Her er den kodestump jeg har sat ind og det virker ikke hvorfor?

Private Sub Kommandoknap13_Click()
Dim Rst As Recordset
Open "MitFilnavn" For Output As #1
Set Rst = CurrentDb.OpenRecordset("prodtable")
With Rst
  Do
    Print #1, .Fields("productcode");
    Print #1, .Fields("duration");
    .MoveNext
  Loop Until .EOF
  .Close
End With
Set Rst = Nothing
Close #1
End Sub

Tjah ... hvad sker der, når du prøver?
I øvrigt ser dit filnavn lidt atypisk ud. Har du prøvet f.eks. med "C:\Temp\MitFilnavn.txt" ?
(forudsætter, at du har mappen "C:\Temp")
... og så skal du nok ikke have ";" efter sidste Print (du vil vel skifte linie)

Jeg for fejlen i nedenstående linje når jeg afvikler koden, den tabel jeg ønsker at hente data fra hedder prodtable.
Set Rst = CurrentDb.OpenRecordset("prodtable")

Der kommer en promtbox der siger type mismatch

Prøv med
    Dim Rst As As DAO.Recordset

Kontroller lige, at du har en reference til "Microsoft DAO 3.x Object Library"
under Funktioner/Referencer (Tools/References).

Ellers skal du over i ADO (men hvis ovenstående virker, er det nok bedre ikke at begive sig den vej)

...og "As As" skulle selvfølgelig have været "As".

Ja nu virker det med hvordan slutter jeg koden således at der kommer en promt der fortæller brugeren, at er eksporten genemføre med succes?

Med en Msgbox("EtEllerAndet")
(se evt. hjælpeteksten til Msgbox)

NU virker det bare fint TAK

Selv tak.
(husk at lukke spm)

ok