Excel Datei in DVG importieren und in anderes DGV übergeben

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

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

    Excel Datei in DVG importieren und in anderes DGV übergeben

    Hallo,

    ich arbeite an einem Tool, welches Excel-Dateien in ein DGV importiert. Dies funktioniert erfolgreich.

    Dazu habe ich ein anderes DGV, welches an eine Access-DB gebunden ist. Ich möchte die Datensätze des ImportDGVs in das DGV bzw. in die Datenbank speichern.

    Ich weiß, dass ich eine Schleife benötige, doch egal wie sehr ich versuche mit Schleifen zu arbeiten scheitere ich grundsätzlich an diesen.

    du könntest dir ein typisiertes Dataset generieren lassen aus der Access-DB.
    Dann liest du deine Excel nicht in ein DGV, sondern in die entsprechende typisierte DataTable.
    Das DGV kannst du an die DataTable binden.
    Zum Speichern in die DB kannst du typedTableADapter.Update(typedTable) aufrufen, feddich.
    Man kann viel falsch machen bei sowas - v.a. Option STrict Off wirkt sich negativ aus.

    Am besten, du postest Bild vom TypDataset, und dann den Code, mit dem du Daten in die typDataTable reintust, und wie du das dann an die Access updatest.

    hier ein Bsp.

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    3. Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=D:\Db2010.accdb")
    4. 'Select ganze Excel Tabelle nach Access und benenne die neue Access Tabele NTestTable
    5. ' Dim sSql As String = "SELECT * INTO [;DATABASE=D:\Db2010.accdb].NTestTablpe FROM [Tabelle1$]"
    6. 'sSql &= " In 'E:\vbExcel.xlsx' 'Excel 12.0 XML;HDR=YES;'"
    8. 'oder
    9. 'Select mit Range(Tabelle1$A1:C10) und Where Bedingung(ID Between 1 And 5)
    10. 'in der Excel Tabelle is eine Spalte mit Namen ID
    11. Dim sSql As String = "SELECT * INTO [;DATABASE=D:\Db2010.accdb].NTestTable FROM [Tabelle1$A1:C10]"
    12. sSql &= " In 'E:\vbExcel.xlsx' 'Excel 12.0 XML;HDR=YES;'"
    13. sSql &= " Where ID Between 1 And 5"
    14. con.Open()
    15. ExecuteSQL(con, sSql)
    16. con.Close()
    17. con = Nothing
    18. End Sub
    20. Public Function ExecuteSQL(ByVal Con As OleDb.OleDbConnection, _
    21. ByVal sSQL As String, _
    22. Optional ByRef ErrMessage As String = Nothing, _
    23. Optional ByVal TransAction As _
    24. OleDb.OleDbTransaction = Nothing) As Integer
    25. ErrMessage = Nothing
    26. Try
    27. Dim Result As Integer = 0
    28. Using Cmd As New OleDb.OleDbCommand(sSQL, Con, TransAction)
    29. Result = Cmd.ExecuteNonQuery
    30. End Using
    31. Return Result
    32. Catch ex As Exception
    33. ErrMessage = ex.Message
    34. Return 0
    35. End Try
    36. End Function



    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Kasi“ ()

Facebook
Telefonspende