CSV-File in Datenbank einlesen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    CSV-File in Datenbank einlesen

    Liebe Community

    Ich bin noch Neuling was das Programmieren angeht, aslo entschuldigt bitte, wenn die Fragen etwas unbeholfen wirken.

    Mein Ziel ist es ein Programm zu schreiben, bei dem nach Eingabe einer ID eine E-Mail-Adresse zurück gegeben wird, mit welcher, sich dann angemeldet werden kann. Zunächst möchte ich hierzu eine Tabelle mit 2 Spalten (CSV) einlesen und als Dataset speichern (Ist das überhaupt sinnvoll?). Die Tabelle enthält hierbei in der ersten Spalte die ID und in der zweiten Spalte die E-Mail-Adresse. Nachdem die Daten importiert wurden soll nun Spalte 1 durchsucht und nach erfolgreichem finden des gesuchten Objektes Spalte 2 zurückgegeben werden.

    Ich hoffe Ihr könnt nun das grobe Setting nachvollziehen.

    Den nachfolgenden Code zum einlesen der CSV-Datei, habe ich mir aus dem Internet zusammengesucht.

    Quellcode

    1. Imports System.Data
    2. Imports System.IO
    3. Imports System.Data.OleDb
    5. Public Class Form1
    6. Dim phlocation As String
    7. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    9. TextBox1.Text = My.Settings.CSVString
    11. Dim phlocation As String
    12. phlocation = TextBox1.Text
    14. 'Check if the file location is empty
    15. If String.IsNullOrEmpty(phlocation) = True Then
    16. MsgBox("CSV location is not provided. Please provide its location!")
    17. 'If its not empty then go ahead with next phase
    18. Else
    19. 'Divide the dir and filename for ado.net connection and cmd strings.
    20. Dim fileDir = Path.GetDirectoryName(phlocation)
    21. Dim fileNam = Path.GetFileName(phlocation)
    23. 'Process ado.net for csv
    25. Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Text;Data Source=" & fileDir & ""
    26. Dim objConn As New OleDbConnection(sConnectionString)
    27. objConn.Open()
    29. Dim objCmdSelect As New OleDbCommand("SELECT * FROM " & fileNam & "", objConn)
    31. Dim objAdapter1 As New OleDbDataAdapter
    32. objAdapter1.SelectCommand = objCmdSelect
    34. Dim objDataset1 As New DataSet
    35. objAdapter1.Fill(objDataset1, "ID_EMail_Match")
    37. DataGridView1.DataSource = objDataset1.Tables(0).DefaultView
    39. objConn.Close()
    40. End If
    42. End Sub
    44. 'Private Sub button1_click(sender As Object, e As EventArgs) Handles Button1.Click
    45. ' Dim openfiledialog1 As New OpenFileDialog
    46. ' openfiledialog1.InitialDirectory = "c:\"
    48. 'End Sub
    50. Private Sub button1_click(sender As Object, e As EventArgs) Handles Button1.Click
    51. My.Settings.CSVString = TextBox1.Text
    52. My.Settings.Save()
    53. My.Settings.Reload()
    55. phlocation = TextBox1.Text
    57. 'Check if the file location is empty
    58. If String.IsNullOrEmpty(phlocation) = True Then
    59. MsgBox("CSV location is not provided. Please provide its location!")
    60. 'If its not empty then go ahead with next phase
    61. Else
    62. 'Divide the dir and filename for ado.net connection and cmd strings.
    63. Dim fileDir = Path.GetDirectoryName(phlocation)
    64. Dim fileNam = Path.GetFileName(phlocation)
    66. 'Process ado.net for csv
    68. Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Text;Data Source=" & fileDir & ""
    69. Dim objConn As New OleDbConnection(sConnectionString)
    70. objConn.Open()
    72. Dim objCmdSelect As New OleDbCommand("SELECT * FROM " & fileNam & "", objConn)
    74. Dim objAdapter1 As New OleDbDataAdapter
    75. objAdapter1.SelectCommand = objCmdSelect
    77. Dim objDataset1 As New DataSet
    78. objAdapter1.Fill(objDataset1, "ID_EMail_Match")
    80. DataGridView1.DataSource = objDataset1.Tables(0).DefaultView
    82. objConn.Close()
    83. End If
    85. End Sub
    86. End Class


    Dies funktioniert an sich auch, jedoch weiss ich nicht, wie ich das erstellte Dataset durchsuchen kann.

    Weiter ist mir aufgefallen, dass man in VBA auch grafisch Datasets erstellen kann (wäre wahrscheinlich aus Anschaulichkeitsgründen besser). Dies ist mir für ein CSV file jedoch nicht gelungen.

    Ich bedanke mich bereits jetzt für eure Hilfe.

    Grüsse


    Faruman

    ich find das bischen oversized, auf eine 2-spaltige csv mit OleDb und Datasets loszugehen, und dann musste die DataTable immer noch umarbeiten, um die gewünschte Dictionary-Funktionalität zu erhalten.

    Hier kannste glaub einfacher alle Zeilen mit System.IO.File.ReadAllLines() einlesen, dann jede Zeile am Komma splitten, und die den beiden Teilen einem Dictionary(Of String, String) zufügen.

    Ich weiß auch nicht, was du da mit Textbox1 machst.
    Öffne doch einfach die Datei, die in den Settings angegeben ist - eine Textbox brauchste dafür nicht als Zwischenstation.

    Lieber ErfinderDesRades

    Vielen Dank für Deine Antwort.

    Ok dann werde ich dass mal versuchen und melde mich wieder, wenn ich nicht mehr weiter komme.

    Die Textbox, war dazu gedacht, dass man die Quelldatei bei Bedarf noch anpassen kann.

    Nochmals Danke und einen schönnen Samstag Nachmittag


    Faruman

    Habe es nun fertiggestellt und es klappt einwandfrei.

    Hier noch der Code:

    Quellcode

    1. Function Import()
    2. Sub1.TextPfad.Text = My.Settings.Pfad
    3. IDEmail.Clear()
    4. Dim Line As String
    5. Dim word As String()
    6. For Each Line In System.IO.File.ReadAllLines(Sub1.TextPfad.Text)
    7. word = Line.Split(",")
    8. IDEmail.Add(word(0), word(1))
    9. Next
    10. End Function


    Nochmals Danke!


    Faruman

    Faruman schrieb:

    fertiggestellt
    nachdem Du Option Strict On gemacht hast. ;)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende