Textdatei in tabelle

BRUNNA

Grünschnabel
Hallo Forum,

ich möchte über VB eine Textdatei einlesen und mit der Insert Into Funktion in eine mdb Tabelle
schreiben, bzw. hinzufügen.

die Textdatei hat diese Struktur bzw. auch die der tabelle erste Zeile = Überschrift und Feldnamen in DB Tabelle

Code:
StörDatum;Eintragszeit;SchichtartID_F;Halle;MaschinenID_F;Arbeitsfolge;BereichID_F;StoerZeitM;Häufigkeit;MitarbeiterID_F;DS_ID;Stoergrund;BemerkungMaßnahme
02.01.2007;06:00;1;6;3;67;2;0;1;13;2;Testgrund testen;nach test i.O
02.01.2007;06:00;1;6;16;149;9;0;1;9;2;neuer Test;Test durchgeführt

Code:
        Using MyReader As New  _
Microsoft.VisualBasic.FileIO.TextFieldParser("D:\TPM\SB_Daten.txt")
            MyReader.TextFieldType = FileIO.FieldType.Delimited
            MyReader.SetDelimiters(",")
            Dim currentRow As String()
            '# Verbindungsobjekt über ADODB zur Datenbank
            Dim cn As New ADODB.Connection
            Dim conStr As String
            '# Der sog. ConnectionString, legt Treiber und den Pfad für Datenbank fest 
            conStr = ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
                      "Data Source=D:\TPM\SB_BE.mdb")

            '# Verbindung wird geöffnet 
            cn.Open(conStr)
            '# Das Command Objekt führt SQL Befehle auf der Datenbank aus  
            '# und gibt, bei Abfragen, Ergebnismengen zurück 

            Dim cmd As New ADODB.Command
            cmd.ActiveConnection = cn

''**********************************************************************************
            ''# Textdatei Struktur der Überschrift                        **********************
            ''# Struktur Felder in Tabelle tblStoerungen und tblTestText  **********************
            ''**********************************************************************************
            ''#StörDatum                Datum dd.mm.yyyy---- Tag Störmeldeeintrag          #****
            ''#StoerZeitM               Minuten 10,20 etc--- Eintrag in Minuten (Ganzzahl) #****
            ''#Stoergrund               Text   ------------- Störgrund          (Text)     #****
            ''#BemerkungMaßnahme        Text---------------- Bemerkung Maßnahme (Text)     #****   
            ''#SchichtartID_F           FK-Wert------------- Schichtart         (Zahl)     #****
            ''#BereichID_F              FK-Wert------------- Bereich            (Zahl)     #****
            ''#MaschinenID_F            FK-Wert------------- Maschine           (Zahl)     #****
            ''#Häufigkeit               Zahl   ------------- Häufigkeit         (Zahl)     #****
            ''#Eintragszeit             Uhrzeit hh:mm------- Eintrag            (Uhrzeit)  #****
            ''#MStandort                Zahl   ------------- Standort d. Masch. (Zahl)     #****
            ''#MitarbeiterID_F          FK-Wert------------- Mitarbeiter Inst.  (Zahl)     #****
            ''#ArbeitsfolgeID_F         FK-Wert------------- Arbeitsfolge       (Zahl)     #****
            ''#NrJahr                   Jahreszahl --------- Jahr               (Zahl)     #****
            ''#NrWoche                  Wochenzahl---------- Woche              (Zahl)     #****
            ''#Code                     Zeichen g;u--------- Gültig/Ungültig    (Text)     #****
            ''#DS_ID                    FK-Wert------------- Schicht            (Zahl)     #****
            ''**********************************************************************************

            While Not MyReader.EndOfData
                Try
                    currentRow = MyReader.ReadFields()
                    Dim currentField As String

                    Dim strTag As String = ""                    '**** hier komm ich nicht weiter
                    Dim strZeit As String = ""

                    For Each currentField In currentRow
                        '#----------------------------------------------------------------- #
                        '#---  Datensatz an tab tblTestText anhängen (speichern)      ----- #
                        '#----------------------------------------------------------------- #
                        Debug.Print(currentField)
                        
                        '***hier komm ich nicht weiter

                        cmd.CommandText = "insert INTO tblTestText (Feld1,Feld2,Feld3.......)" & _
                                          " values (Feld1,Feld2,Feld3.....)"

                        cmd.Execute()

                    Next

                Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                    MsgBox("Zeile " & ex.Message & " ist nicht korrekt und wird übersprungen")

                End Try
            End While
            
        End Using

wie geht es mit VB2010
 
Hi BRUNNA und herzlich willkommen auf tutorials.de

Ich hab deine Frage mal in den .NET Bereich verschoben. VB 2010 (.NET) ist nicht VB 6

Und es wäre hilfreich, wenn du deine Frage auch nennen würdest und schilderst, wo dein Problem liegt! ;)
Oder war der Post nur eine Info ^^
 
Zurück