🚀 go-pugleaf

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.
>
>
>
>