Print database tabel til TXT fil

can you explain this please?
"Generere en TXT fil med en ASCII table af en tabel fra en database fx: data.mdb"

ASCII table ?

altså noget skrevet i ASCII

RAW text

Open App.Path & "\filnavn.txt" For Output As #1
Print #1, "Overskrift"

Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF

Print #1, "Navn            " & Data1.Recordset.navn
Data1.Recordset.MoveNext
Loop

Close #1

sku ha været et svar

Do you have Access installed on the PC also? I am asking this because IF Access is installed then it can be automated from VB to get Access to export the table. Otherwise you will need to read each record in VB and write it to  atext file in CODE

blueeye97 has given an example i VB !

Terry > Det er jo fordi spørgsmålet er stillet i VB kategorien :0)

Bortset fra det Terry. Har du et godt råd til mit spørgsmål :

http://www.eksperten.dk/spm/391807 ?

blueeye97 >Yes I know, thats no problem, but I also suggest that it could be done from Access!

Thats also in VB category :o)

No, sorry not off the top of my head, I havent worked so much with CR

jeg var bare så glad for at kunne svarre på et spørgsmål :o))

blueeye97 VB siger, når jeg prøver at køre programmet =>

Object variable or With block variable not set

i linien: Data1.Recordset.MoveFirst

what to do ??

Du skal lige lave en datacontrol. Den ligger i toolbox'en i venstre side. I den vælger du din database og så ellers bare min kode...

den har jeg lavet blueeye ;o)

jeg er ikke helt dum :o))

ej.. sry.. har lavet en men det er efter at den siger fejlen

kan nogen lave det så det er en DataGrid eller en FlexGrid control der blvier konverteret til ASCII ??

well light...

Det virker altså. eksemplet er plukket ud af et af mine egne programmer... :o)

Det er lidt det samme light. Du løber bare tabellen igennem med

do until .recordset.eof
skrive...skrive...skive...
loop

hvad hedder din mdb fil og hvad hedder tabellen ?

data.mdb

og kald bare tabellen for:    tblTEST

det er ikke det samme for det med Grid rør koden slet ikke databasen

Data1.DatabaseName = App.Path & "\data.mdb"
Data1.RecordSource = "select * from tblTEST"
Open App.Path & "\filnavn.txt" For Output As #1
Print #1, "Overskrift"
Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF
Print #1, Data1.Recordset.feltnavn
Data1.Recordset.MoveNext
Loop

Close #1

Ovenstående virker altså... Brug det eller ej. Jeg har ikke bedre løsninger :o)

det har intet med flexgrid at gøre

kan du lave det med flexgrid ?? at det er flexgrid => ASCII ??

sry skrev det ikke i spm tekst men jeg giver ikke 100 pts for kun det... minf ejl i know men alligevel

Du har fået svar på det du spurgte om og derfor er point også mine. Men det er naturligvis op til din egen samvittighed. Jeg klarer mig nok uden...

det er det vel...