export queries u txt file

Odgovori Nova tema

3 odgovora
3.312 pregleda

export queries u txt file 22.09.2009. u 00:08 · pre 208 meseci #1

Pozdrav svima!

Potrebna mi je pomoc

exporto jedne tabele koja sadrzi broj, artikl, naziv, kolicinu iz queries u txt.

Probao sam

Private Sub Snimi_Click()
Dim Putanja
Putanja = "C:\Test.txt"
Open Putanja For Output As #1
Print #1, Me.Broj; Me.artikl; Me.naziv; Me.kolicina;
Close #1
'End

End Sub

U ovom slucaju ako imam 3 artikla prenese samo onaj na kome je fokus

Hvala svima!

Potpis

Bojan

Re: export queries u txt file 22.09.2009. u 07:58 · pre 208 meseci #2

pogledaj temu slicno je http://www.elitesecurity.org/t354083-0#2193719

Potpis

Igor

Re: export queries u txt file 22.09.2009. u 10:50 · pre 208 meseci #3

query.first

Code:
while not query.eof do
begin
//zapiši u txt
end;

Potpis

Re: export queries u txt file 22.09.2009. u 11:15 · pre 208 meseci #4

Code:
Private Sub Command0_Click()
Dim DB As Database
Dim rs As Recordset
Dim txt As String
Dim Putanja As String

Close #1
Putanja = App_Path
Set rs = Me.RecordsetClone
Open Putanja & "\exportcsv.csv" For Output Shared As #1
   txt = "ime;prezime;ocena"
   Print #1, txt
Do While Not rs.EOF
txt = rs.Fields(0) & ";" & rs.Fields(1) & ";" & rs.Fields(2)

Print #1, txt
rs.MoveNext
Loop
rs.Close

Close #1
End Sub

Function App_Path()
App_Path = Access.CurrentProject.Path
End Function

Potpis

zxz

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme