Daten aus DataGridView nach Access übergeben

  • VB.NET
  • .NET (FX) 3.0–3.5

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Kasi.

    Daten aus DataGridView nach Access übergeben

    Guten Morgen zusammen,

    in meinem Projekt bekommt mein Anwender eine Exceltabelle zugeschickt, die in eine Accessdatenbank eingepflegt werden muss.
    Da aber nicht jeder Zugriff auf die accdb haben darf, habe ich eine kleine VB Anwendung geschrieben, die den Import übernimmt.

    Der Anwender gibt den Speicherpfad der Exceldatei an, die Daten aus der Exceldatei werden dann in einer DataGridView eingelesen (um nochmals eine Qualitätssicherung machen zu können, o.ä.) und können dann an die accdb übergeben werden.
    Das funktioniert auch alles soweit ganz gut und stabil.

    VB.NET-Quellcode

    1. Private Sub cmd_DatensaetzeImportieren_Click(sender As Object, e As EventArgs) Handles cmd_DatensaetzeImportieren.Click
    2. 'Erstellen von Variablen
    3. Dim intAktuellerDatensatz As Integer
    4. Dim intAktuelleZeile As Integer = 0
    5. Dim strTabelle As String = ""
    7. 'Wenn es sich bei Import um Testdaten handelt, werden diese in die entsprechende Tabelle eingetragen.
    8. If cbx_TEST.Checked = True Then
    9. strTabelle = strTabellennameTest
    10. Else
    11. strTabelle = strTabellenname
    12. End If
    14. 'Anzeigen der GroupBox zum aktuellen Datensatz
    15. With GroupBox7
    16. .Visible = True
    17. End With
    19. 'Beginn der For-Schleife zum Aufruf des SQL-INSERT
    20. For intAktuellerDatensatz = 1 To dgv_Auftragstabelle_Values.RowCount
    22. lbl_UebertrageDatensatz.Text = intAktuellerDatensatz.ToString & "/" & dgv_Auftragstabelle_Values.RowCount.ToString
    24. Me.Refresh()
    26. '--------------------------------------------
    27. 'Erstellen des SQL-Statements
    28. Dim strSQL_Statement As String = ""
    30. strSQL_Statement = "INSERT INTO " & strTabelle & 'Tabellennamen
    31. " (Daten)" & 'Tabellenattribute
    32. " VALUES ('" & dgv_Auftragstabelle_Values.Item("Werte", intAktuelleZeile).Value.ToString & "', '" & 'Werte
    34. intAktuelleZeile = intAktuelleZeile + 1
    35. '--------------------------------------------
    37. 'DB Verbindung aufbauen
    38. Dim Anzahl As Integer
    39. Dim con As New OleDb.OleDbConnection
    40. Dim cmd As New OleDb.OleDbCommand
    42. 'Zusammenstellung der Verbindung zur Accessdatei
    43. con.ConnectionString =
    44. "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strSpeicherpfadAuftragsDatenbank & ";Jet OLEDB:Database Password = " & strDatenbankpasswort
    46. cmd.Connection = con
    48. Try
    50. con.Open()
    52. cmd.CommandText = strSQL_Statement
    54. Debug.Print(cmd.CommandText)
    56. Anzahl = cmd.ExecuteNonQuery()
    58. Catch ex As Exception
    59. MsgBox(ex.Message)
    60. End Try
    62. con.Close()
    64. Next intAktuellerDatensatz
    66. MessageBox.Show(text:="Übertragung der Datensätze abgeschlossen.", caption:="Abschlussmeldung", buttons:=MessageBoxButtons.OK, icon:=MessageBoxIcon.Information)
    68. 'Maske leeren
    69. Call UXDesign.MaskeZuruecksetzenGesamt()
    71. End Sub


    Das ganze funktioniert bei wenigen Datensätzen auch recht fix.
    Wenn es dann aber mehrere Datensätze werden, dann dauert das schon eine Weile.

    Gibt es vielleicht eine Möglichkeit, die Daten aus der DGV "in einem Rutsch" in die accdb zu übertragen?

    Vielen Dank im Voraus für eure Rückmeldung.

    Königsweg: generier dir aus der Datenbank eine typisierte Datatable.
    Befüll die aus dem Excel-Sheet.
    Binde dein DGV daran, wenn du Daten noch ändern willst.
    bau dir einen DataAdapter, der die DataTable in die DB schubst.

    Was du da derzeit hast, ist Anfällig für SqlInjection.
    Siehe dazu Tutorial: Must-Know: Sql-Injection

    Aber es gibt auch einen Billig-Ansatz, wo du nicht so viel lernen musst, langsamer (aber vlt. schnell genug für dich), und der die Angreifbarkeit beibehälst:

    VB.NET-Quellcode

    1. Private Sub cmd_DatensaetzeImportieren_Click(sender As Object, e As EventArgs) Handles cmd_DatensaetzeImportieren.Click
    2. 'Erstellen von Variablen
    3. Dim intAktuellerDatensatz As Integer
    4. Dim intAktuelleZeile As Integer = 0
    5. Dim strTabelle = If(cbx_TEST.Checked strTabellennameTest, strTabellenname) 'Wenn es sich bei Import um Testdaten handelt, werden diese in die entsprechende Tabelle eingetragen.
    6. GroupBox7.Visible = True 'Anzeigen der GroupBox zum aktuellen Datensatz
    7. Using con As New OleDb.OleDbConnection, cmd As New OleDb.OleDbCommand
    8. 'Zusammenstellung der Verbindung zur Accessdatei
    9. con.ConnectionString =
    10. "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strSpeicherpfadAuftragsDatenbank & ";Jet OLEDB:Database Password = " & strDatenbankpasswort
    11. cmd.Connection = con
    12. Try
    13. con.Open()
    14. 'Beginn der For-Schleife zum Aufruf des SQL-INSERT
    15. For intAktuellerDatensatz = 1 To dgv_Auftragstabelle_Values.RowCount
    16. lbl_UebertrageDatensatz.Text = intAktuellerDatensatz.ToString & "/" & dgv_Auftragstabelle_Values.RowCount.ToString
    17. Me.Refresh()
    18. '--------------------------------------------
    19. 'Erstellen des SQL-Statements
    20. cmd.CommandText = "INSERT INTO " & strTabelle & 'Tabellennamen
    21. " (Daten)" & 'Tabellenattribute
    22. " VALUES ('" & dgv_Auftragstabelle_Values.Item("Werte", intAktuelleZeile).Value.ToString & "', '" & 'Werte
    23. intAktuelleZeile = intAktuelleZeile + 1
    24. '--------------------------------------------
    25. Debug.Print(cmd.CommandText)
    26. Dim Anzahl = cmd.ExecuteNonQuery()
    27. Next intAktuellerDatensatz
    28. con.Close()
    29. Catch ex As Exception
    30. MsgBox(ex.Message)
    31. End Try
    32. End Using
    33. MessageBox.Show(text:="Übertragung der Datensätze abgeschlossen.", caption:="Abschlussmeldung", buttons:=MessageBoxButtons.OK, icon:=MessageBoxIcon.Information)
    34. 'Maske leeren
    35. Call UXDesign.MaskeZuruecksetzenGesamt()
    36. End Sub
    Da werden Connection und Command nur einmal erzeugt und dann mehrmals benutzt. Und die Connection auch nicht jedesmal neu öffnen/schliessen.
    zeilen #16,17 können auch weg - vermutlich kann niemand so schnell gucken, wie das Label die Anzeige ändert.
    Der Prozessor aber wird vom standigen Refresh sehr ausgebremst.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Hallo ErfinderDesRades,

    klasse, vielen Dank für deine schnelle Rückmeldung.

    Die Connection nur einmal zu erzeugen/öffnen/schließen, darauf hätte ich im ersten Schritt auch selber kommen können. X/
    Das habe ich jetzt mal als schnelle Lösung umgesetzt und die grafische Anzeige des Zählers auskommentiert.

    Für deinen Königsweg fehlt mir noch ein wenig die Erfahrung.
    Das leg ich mir aber mal auf den "Will ich noch lernen"-Stapel. :thumbup:

    Nochmals vielen Dank und einen schönen Tag.

    Man kann auch statt jedes SQL Statement einzeln abzusenden diese sammeln und in „Paketen“ absenden. Hierzu einfach alle einzelnen Statements in den gleichen String schreiben und dann nach X (Anzahl ist reglementiert) Datensätzen das SQL Statement absenden.

    Der Königsweg wäre dies noch mit DB Parametern zu kombinieren.

    Hab ich neulich gemacht. Geht deutlich schneller.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    eine andere möglichkeit ist die Excel Datei/Tabellen namen in Access
    zu verknüpfen.
    mit der Verknüpfung kannst du dann mit..
    "Select Into.....
    oder "Insert Into.....
    Importiern

    hier eine Bsp. für die Vernüpfung einer .xlsx zu einer .accdb

    VB.NET-Quellcode

    1. Public Class Form3
    3. ''set Ref. = Microsoft ADO Ext. 2.8 for DDL and Security
    5. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    6. Dim cn As Object
    7. Dim ct As Object
    8. Dim tbl As Object
    10. Dim strLinkXL As String = "E:\ayyExcel.xlsx"
    11. Dim strMDB As String = "E:\Database1.accdb"
    13. ''Create Link to Database...
    14. cn = CreateObject("ADODB.Connection")
    15. cn.Open("Provider=Microsoft.ACE.OLEDB.12.0;" & _
    16. "Data Source=" & strMDB & ";" & _
    17. "Persist Security Info=False")
    19. ct = CreateObject("ADOX.Catalog")
    20. ct.ActiveConnection = cn
    22. tbl = CreateObject("ADOX.Table")
    23. tbl.ParentCatalog = ct
    25. ''Link Excel
    26. tbl = CreateObject("ADOX.Table")
    27. tbl.ParentCatalog = ct
    29. With tbl
    30. 'Sheet in ExcelFile I want to Link
    31. .Name = "MyLinkExcelTable"
    32. .properties("Jet OLEDB:Link Provider String") = "Excel 12.0 XML;DATABASE=" _
    33. & strLinkXL & ";HDR=Yes"
    34. 'name of Sheet in Excel is mySheet
    35. .properties("Jet OLEDB:Remote Table Name") = "mySheet$"
    36. .properties("Jet OLEDB:Create Link") = True
    37. End With
    39. ''Append the table to the tables collection
    40. ct.Tables.Append(tbl)
    41. tbl = Nothing
    42. MsgBox("done !")
    43. End Sub
    44. End Class


    jetzt siehst du in deiner Access DB eine neue (verknüpfte)Tabelle

    gruss
    kasi

Facebook
Telefonspende