Article View: be.comp.programming
Article #10401Re: txt's uitlezen naar Access
From: g4nymEd5s
Date: Sun, 10 Mar 2002 00:15
Date: Sun, 10 Mar 2002 00:15
91 lines
3291 bytes
3291 bytes
wel jongens bedankt voor zoveel nuttige tips alreeds. Ik ben wel geen
programmeur maar als ik met een paar mensen samenzit is er misschien wel
iets van te maken.
Bedankt alvast, en als jullie nog tips moesten hebben....
Groetjes,
Willy
BTW als Access geen database is wat is het dan wel eigenlijk?
"Frederic Vlummens" <fredericvlummens@hotmail.com> schreef in bericht
news:3c89301a$0$254$ba620e4c@news.skynet.be...
>
> Hallo Willy,
>
> om met een Access-database te verbinden is het het simpelst van al de
> ActiveX Data Objects te gebruiken, die heel gemakkelijk vanuit VB
> aanstuurbaar zijn.
> En om de files ��n voor ��n te overlopen kan je de Dir-functie benutten.
>
> Klein voorbeeldje (ingetypt, niet uitgetest):
>
> Private Sub StartVerwerking()
> Dim sFile As String
>
> ' DB Connectie openen (zie ADO)
>
> sFile = Dir("C:\MijnBestanden\*.txt")
>
> Do Until sFile = ""
> BestandExporteren sFile
> sFile = Dir
> Loop
>
> ' DB Connectie sluiten (zie ADO)
> End Sub
>
> Private Sub BestandExporteren(sFile As String)
> Dim lFn As Long
> Dim sLijn As String
>
> lFn = FreeFile ' Vrij kanaalnummer opvragen
>
> Open sFile For Input As #lFn
> Do Until EOF(lFn)
> Line Input #lFn, sLijn
> ' sLijn in Access droppen -> hangt af van in welke tabel/welk veld
> je het wil hebben
> Loop
> Close #lFn
> End Sub
>
> PS: als je rechtstreeks vanuit Access werkt in Visual Basic for
Applications
> dan kan je de tabellen hoogstwaarschijnlijk rechtstreeks opvullen en dien
je
> enkel nog over de files te lopen en ze ��n voor ��n regel per regel in te
> lezen.
>
> Hope this helps,
> groeten,
>
> Frederic
>
>
> "Willy O'" <willy.otto@tiscali_nospam.be> schreef in bericht
> news:a6aucp$147ap$1@sinclair.be.wanadoo.com...
> >
> > From: "Willy Otto" <willy.otto@tiscali_nospam.be>
> > Subject: automatisch txt's uitlezen naar Access
> > Date: vrijdag 8 maart 2002 18:51
> >
> > Hallo
> >
> > Ik ben op zoek naar een manier of software om txt files met ieder 1
> regeltje
> > en iedere keer een andere bestandsnaam uit te lezen en in te laden in
een
> > database zoals Access.
> > Iemand enig idee hoe ik hieraan begin?
> >
> > Groetjes,
> >
> > W.
> >
> >
> >
> >
>
>
Technical Details
Message-ID:
<3c8aa5ba$0$255$ba620e4c@news.skynet.be>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!news-x2.support.nl!skynet.be!skynet.be!louie!not-for-mailReferences:
<a6aucp$147ap$1@sinclair.be.wanadoo.com> <3c89301a$0$254$ba620e4c@news.skynet.be>Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII X-Google-Thread: fcea4,1fb45ab54445da41 X-Google-Attributes: gidfcea4,public X-Google-ArrivalTime: 2002-03-09 16:16:10 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!news-x2.support.nl!skynet.be!skynet.be!louie!not-for-mail From: "g4nymEd5s" <ganymedes@nospam_wol.be> Newsgroups: be.comp.programming References: <a6aucp$147ap$1@sinclair.be.wanadoo.com> <3c89301a$0$254$ba620e4c@news.skynet.be> Subject: Re: txt's uitlezen naar Access Date: Sun, 10 Mar 2002 01:15:54 +0100 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2600.0000 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000 Lines: 93 Message-ID: <3c8aa5ba$0$255$ba620e4c@news.skynet.be> Organization: -= Skynet Usenet Service =- NNTP-Posting-Host: 217.136.49.17 X-Trace: 1015719354 reader0.news.skynet.be 255 217.136.49.17 X-Complaints-To: abuse@skynet.be