[es] - Export - Import komande u VBA

mustur
Mustur Gojko
Beograd

Član broj: 32122
Poruke: 48
*.yubc.net.

+1 Profil

^{01.12.2004. u 18:17 - pre 236 meseci}

Posto imam gotov program za vodjenje ugostiteljskog objekta koji je vec u upotrebi, javlja mi se problem povezivanja tog programa na fiskalni stampac. Za Galebove stampace besplatno se dobija program za kontrolu stampaca, ali moj program mora u .csv .dbf ili .txt formatu sa unikatnim nazivima u tacno odredjen direktorij da smesta podatke fiskalnog racuna. Na osnovu toga u drugi direktorij dobija odgovor u obliku .txt sa odredjenim nazivom.
Problem je:
1. Kako exportovati query u .txt, .csv ili .dbf , tačno odredjenog formata, sa odredjenim unikatnim nazivima (datum,sat, minut, sekund npr.011204221022.txt)
i u tačno odredjen direktorij?
2. Kako importovati fajl u .txt formatu?
3. Kako obrisati odredjeni fajl u odredjenom direktoriju?
4. Kako koristiti ime fajla za kontrolu rezultata (ako na osnovu tacno definisane razlike u imenu dolazeceg fajla treba da se odigra vise razlicitih dogadjaja)?

Za sve informacije unapred zahvalan.

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com.

+79 Profil

Re: Export - Import komande u VBA

^{02.12.2004. u 14:23 - pre 236 meseci}

Za import/export, pogledaj u Helpu Docmd.TransferDatabase komandu. Pogledaj i saveAs i Import komande.

Za manipulisanje DOS fajlovima imas komande tipa KILL (da obrises faj sa diska).

Da pokazes direktorijum gde treba da se snimi fajl, koristi DialogBox object (u Help imas primer koji ce ti pomoci).

Za imenovanje fajlova po odredjenom pravilu - moraces da pises kod koji ce na primer neki datum da prevede u ime fajla. Funkcija Format, primenjena na datumski podatak moze ti pomoci u tome.

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
195.222.59.*

Sajt: www.icentar.ba

+2 Profil

Re: Export - Import komande u VBA

^{04.12.2004. u 17:23 - pre 236 meseci}

Ime fajla

Dim ImeFajla As String
ImeFajla = Year(Date) & Month(Date) & Day(Date) & Hour(Time) & Minute(Time) & Second(Time)

Upis Fajla na disk

Open Db_Putanja & "\Izvjestaji" & ImeFajla & ".txt" For Output Shared As #1

Dim TXT As String
Dim Rs As Recordset
Dim Db As Database

Set Db = CurrentDb()
Set Rs = Db.OpenRecordset("ImeQuerya")
Do While Not Rs.EOF
TXT = Rs.Fields(1) & "Delimiter" & Rs.Fields(2) & "Delimiter" & Rs.Fields(3) ' itd.
Print #1, TXT
Rs.MoveNext
Loop
Rs.Close
Close #1

'Delimiter noze biti:
'1. Blank
'2. TackaZarez
'3. zarez

Function Db_Putanja() As String
'-----------------------------------------------
'Ova funkcija pronalazi putanju postojeće baze
'_________________________________________
Dim Db As Database
Dim Putanja As String

On Error Resume Next 'Ako naiđeš na grešku nastavi
Set Db = DBEngine(0)(0) 'Setovanje baze
Putanja = Db.Name 'Upis putanje baze i njenog imena
Do Until Right$(Putanja, 1) = "\" 'Petlja za odvajanje imena baze od putanje baze
Putanja = Left$(Putanja, Len(Putanja) - 1)
Loop
Putanja = Left$(Putanja, Len(Putanja) - 1)
Db_Putanja = Putanja
Set Db = Nothing
End Function

Za brisanje je naredba Kill I putanja i ime fajla
Pod broj 4 te nisam razumio

Ako ovo uspijes se javi za dalje...

zxz

Odgovor na temu