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 :

1 2 3

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 :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72

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