Hallo zusammen,
ich bin neu hier im Forum und hoffe, dass mein Beitrag hier an der richtigen Stelle ist.
Ich habe folgendes Problem:
Ich habe eine Textdatei mit mehreren Zeilen. Jede Zeile hat Einträge die durch ein ; getrennt sind.
Bsp.: Land;Beschreibung;Wetter;...;...;...
Wenn ich jetzt diese Datei in meine Datenbank einlese und als Tabelle speichern möchte, wird genau eine Spalte ausgegeben es soll jedoch nach jedem ; getrennt werden und dann eine neue Spalte dafür ausgegeben werden.
Google konnte mir bis jetzt keinen passenden Tipp liefern, wie ich dieses umsetzen kann. Ich muss auch gestehen, dass ich blutige Anfängerin in der Programmierung bin und bin über jeden Tipp sehr dankbar.
Schonmal vielen Dank für eure Hilfe
ich bin neu hier im Forum und hoffe, dass mein Beitrag hier an der richtigen Stelle ist.
Ich habe folgendes Problem:
Ich habe eine Textdatei mit mehreren Zeilen. Jede Zeile hat Einträge die durch ein ; getrennt sind.
Bsp.: Land;Beschreibung;Wetter;...;...;...
Wenn ich jetzt diese Datei in meine Datenbank einlese und als Tabelle speichern möchte, wird genau eine Spalte ausgegeben es soll jedoch nach jedem ; getrennt werden und dann eine neue Spalte dafür ausgegeben werden.
Google konnte mir bis jetzt keinen passenden Tipp liefern, wie ich dieses umsetzen kann. Ich muss auch gestehen, dass ich blutige Anfängerin in der Programmierung bin und bin über jeden Tipp sehr dankbar.
Schonmal vielen Dank für eure Hilfe
Visual Basic-Quellcode
- Dim catalog As New Catalog()
- Dim da As New OleDbDataAdapter
- Dim ds As New DataSet
- Try
- 'Datenbank erstellen
- catalog.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Users\...\test.mdb;" & "Jet OLEDB:Engine Type=4")
- Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Users\...\test.mdb")
- Dim cmd As New OleDbCommand("SELECT * INTO [ProdInfo1] FROM [Text;DATABASE=C:\Users\...\;HDR=no].[text.txt]", conn)
- conn.Open()
- cmd.ExecuteNonQuery()
- conn.Close()
- Catch ex As ExceptionMessageBox.Show("Information" & vbCrLf & ex.Message, "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Information)
- End Try