Textdatei mit VB einlesen !??

[HackTack]

Hallo !

Wie kann ich eine Textdatei unter VB einlesen und Sie in eine Access Datenbank abspeichern. Die Daten in der textdatei sind mit ; getrennt.

Kann mir jemand helfen ??

[Sonic83]

Schau mal die Funktion DoCmd.TransferSpreadsheat in der Hilfe nach. Das sollte dir eigentlich weiterhelfen.

[schnitzel21m]

is eigentlich ziemlich einfach...wenn du eine importspezifikation festgelegt hast.

Public Function importArItem() As Boolean

Dim pfad As String, dateiName As String

Dim master As String, tabellenName As String

Dim spezifikationsName As String, dateiNameLang As String

Dim dateiDatum As String, dateiTag As String

Dim dateiMonat As String, dateiJahr As String

Dim asofdate As String

Dim SysRCtlNext As Long

Dim SysRCtlCount As Long

Dim db1 As Database

Dim rs1 As Recordset

Dim sql As String

Dim i As Integer

Dim ariQdf As QueryDef, qdf As QueryDef

Dim queryName As String

importArItem = False

On Error GoTo importArItem_Error

spezifikationsName = "ARITEM_Importspezifikation"

pfad = getOptionValue("TransferPath")

If Right(pfad, 1) <> "\" Then

pfad = pfad & "\"

End If

' Hier kommt der CommonDialog!!

dateiName = FindFileDialog("Wählen Sie die zu importierende Datei aus!", pfad, "ARITEM (*aritem*.txt)", "*aritem*.txt")

If dateiName = "" Then

Exit Function

End If

For i = Len(dateiName) To 1 Step -1

If Mid$(dateiName, i, 1) = "\" Then Exit For

Next i

un so weiter...

Dann in die tabelle einfügen:

master = "ar_item_tmp"

sql = "INSERT INTO " & master & " ( SYS_RUN_CNTL_ID ) " _

& "SELECT " & tabellenName & ".*, " & SysRCtlNext & " AS SYS_RUN_CNTL_ID " _

& "FROM " & tabellenName & ";"

db1.Execute sql