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
wie geht es mit VB2010
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