[ bojanink @ 21.09.2009. 23:08 ] @
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!

[ savkov @ 22.09.2009. 06:58 ] @
pogledaj temu slicno je http://www.elitesecurity.org/t354083-0#2193719
[ captPicard @ 22.09.2009. 09:50 ] @
query.first

Code:
while not query.eof do
begin
//zapiĊĦi u txt
end;
[ izonic @ 22.09.2009. 10:15 ] @
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