Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Importiranje txt datoteke u access preko vba koda

[es] :: Access :: Importiranje txt datoteke u access preko vba koda

[ Pregleda: 3393 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

zagorecForEver
Krapina

Član broj: 63062
Poruke: 54
195.29.173.*



Profil

icon Importiranje txt datoteke u access preko vba koda23.02.2007. u 11:42 - pre 208 meseci
Pozdrav
Da li netko ima i voljan je ovdje zakačiti VBA kod koji simulira tzv. Import txt wizard kojim se u MS access ubacuju txt fajlovi?
Tražio sam po forumu, ali nažalost nisam našao ništa što bi bilo slično tome ili nisam dobro tražio :-) :-(

ili možda jednostavnija molba
kako bi izgledao VBA kod da se neki txt fajl oblika (ime:prezime:adresa:telefon)

PERO:PERIĆ:Perina ulica bb:123/123-456
MILKA:MILKIĆ:Milkina ulica bb:987:/654-321

itd... delimiter sam naveo kao ":"

importira u već definiranu access tabelu.




ZagorecForEver
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.



+79 Profil

icon Re: Importiranje txt datoteke u access preko vba koda23.02.2007. u 19:44 - pre 208 meseci
Pogledaj help za 'transferdatabase' metod. Moraces da definises import specifikaciju, pa u kodu kazes da transferdatabase metod koristi tu specifikaciju. A zadajes i path i file name. A za to ti treba OpenFile dialog box. U bre, ovo se zakomplikovalo .....

:-)
 
Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.



+8 Profil

icon Re: Importiranje txt datoteke u access preko vba koda26.02.2007. u 07:09 - pre 208 meseci

tu ti je vb kod gdje prepisujem i gdje znam fiksnu duljinu polja iz txt fajla


testfile = "c:\podaci\prepis.txt"
Dim rezultat As String

Dim dato1 As DAO.Database
Dim rek1 As DAO.Recordset
Set dato1 = CurrentDb
Dim sqlupit1 As String

Dim TextLine

Open testfile For Input As #1

Do While Not EOF(1)
Line Input #1, TextLine


p1 = Mid(TextLine, 1, 5)
p2 = Mid(TextLine, 7, 6)
p3 = Mid(TextLine, 14, 2)
p4 = Mid(TextLine, 17, 2)
p5 = Val(Mid(TextLine, 20, 3))
p6 = Val(Mid(TextLine, 24, 3))
p7 = Replace(Mid(TextLine, 28, 8), ",", ".")
p8 = Mid(TextLine, 37, 5)
Me.Repaint
sqlupit1 = "select * from izsuma where sm=" & "'" & p1 & "' and brploc=" & "'" & p2 & "' and vr='" & p3 & "' and so=" & "'" & p4 & "' And d = " & p5 & " And l = " & p6 & " And cr = " & " '" & p8 & "'" _
& " and knjiga=" & "'" & brknj.Caption & "' and popratnica='" & popr.Caption & "'"

Set rek1 = dato1.OpenRecordset(sqlupit1)

If rek1.EOF Then

rek1.AddNew
rek1.Fields("sm") = p1
rek1.Fields("brploc") = p2
rek1.Fields("vr") = p3
rek1.Fields("so") = p4
rek1.Fields("d") = p5
rek1.Fields("l") = p6
rek1.Fields("m3") = p7
rek1.Fields("cr") = p8
rek1.Fields("knjiga") = brknj.Caption
rek1.Fields("popratnica") = popr.Caption
rek1.Fields("datumpop") = datpop

rek1.Update
End If



Loop

Close #1
rek1.Close
Set dato1 = Nothing
 
Odgovor na temu

zagorecForEver
Krapina

Član broj: 63062
Poruke: 54
195.29.173.*



Profil

icon Re: Importiranje txt datoteke u access preko vba koda27.02.2007. u 08:33 - pre 207 meseci
Zahvaljujem na odgovorima.
Prepravit ću kod koji ostavio Trtko i mislim da je problem ad acta.
Txnks

ZagorecForEver
 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
*.PPPoE-2117.sa.bih.net.ba.

Sajt: www.icentar.ba


+2 Profil

icon Re: Importiranje txt datoteke u access preko vba koda28.02.2007. u 08:29 - pre 207 meseci
Inport-export vizard
Imas ovdje:
Wzlib80.mdb
Kod je otvoren.
http://www.icentar.com/showthread.php?t=23
zxz
 
Odgovor na temu

[es] :: Access :: Importiranje txt datoteke u access preko vba koda

[ Pregleda: 3393 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.