Exceltabelle in Sql via Update.Befehl

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

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von petaod.

    Exceltabelle in Sql via Update.Befehl

    UPDATE: Der Code zur BULK-COPY funktioniert (Es hat lediglich der Pfad im ConnectionString nicht gestimmt). Die Update-Sache funktioniert aber weiterhin nicht. Wenn ich die BULK-COPY mehrmals ausführe erhalte ich einen Fehler im Sinne von: "Manche Datensätze mit den selben PrimaryKeys sind bereits vorhanden -> kopieren fehlgeschlagen" Wie umgehe ich dieses Problem. Ich möchte sowohl nicht vorhandene Datensätze hinzufügen als auch vorhandene Datensätze updaten.

    ------------------------------------------------------------------------------------------------------

    Hallo zusammen,

    mit dem folgenden Code versuche ich eine Excelmappe in ein Dataset einzulesen und dann dieses Dataset via Updatecommand in die Datenbank zu befördern. Das Dataset wird korrekt mit den Daten aus der Exceldatei befüllt. Auch der Rest des Codes läuft durch ohne einen Fehler auszugeben. Sobald ich die Anwendung beende und im Datenbankexplorer den Tabelleninhalt meiner Datenbank prüfen will muss ich leider jedes mal feststellen, dass trotz fehlerfreien Durchlaufs keine Daten übertragen werden.
    Ein anderer Lösungsansatz mittels Bulk-Copy führt leider zu dem selben Ergebnis (fehlerfreier Durchlauf, keine Daten übertragen)
    Was mache ich hier falsch? Gibt es alternative Lösungsansätze bzw. ist meiner vielleicht total ungeeignet?

    Vielen Dank im Voraus


    VB.NET-Quellcode

    1. 'UPDATECOMMAND METHODE
    3. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    5. Dim DS As System.Data.DataSet
    6. Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
    7. Dim MyConnectionExcel As System.Data.OleDb.OleDbConnection
    9. MyConnectionExcel = New System.Data.OleDb.OleDbConnection( _
    10. "Provider=Microsoft.ACE.OLEDB.12.0; " & _
    11. "data source=C:\Users\qxf8451\Desktop\export.xlsx; " & _
    12. "Extended Properties=Excel 12.0;")
    13. ' Select the data from Sheet1 of the workbook.
    14. MyCommand = New System.Data.OleDb.OleDbDataAdapter( _
    15. "select * from [Sheet1$]", MyConnectionExcel)
    17. DS = New System.Data.DataSet()
    18. MyCommand.Fill(DS)
    20. Dim keyColumn(2) As DataColumn
    21. keyColumn(0) = DS.Tables(0).Columns("Bestellnummer") 'Die Spaltenüberschrift in der Exceldatei
    22. keyColumn(1) = DS.Tables(0).Columns("Bestellposition") 'Die Spaltenüberschrift in der Exceldatei
    23. DS.Tables(0).PrimaryKey = keyColumn
    25. ' Create a new Connection and SqlDataAdapter
    26. Dim myConnection As SqlConnection
    27. Dim mySqlDataAdapter As SqlDataAdapter
    29. myConnection = new SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\qxf8451\Desktop\VS Beschaffungsmanager 2015\VS Beschaffungsmanager 2015\bin\Debug\DB_Beschaffungsmanager.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
    30. mySqlDataAdapter = New SqlDataAdapter("Select * from tblSapDaten", myConnection)
    32. 'Dim myDataSet as DataSet = new DataSet()
    33. 'Dim myDataRow As DataRow
    35. ' Create command builder. This line automatically generates the update commands for you, so you don't
    36. ' have to provide or create your own.
    37. Dim myDataRowsCommandBuilder As SqlCommandBuilder = New SqlCommandBuilder(mySqlDataAdapter)
    39. ' Set the MissingSchemaAction property to AddWithKey because Fill will not cause primary
    40. ' key & unique key information to be retrieved unless AddWithKey is specified.
    41. mySqlDataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
    45. mySqlDataAdapter.UpdateCommand = myDataRowsCommandBuilder.GetUpdateCommand(True)
    46. mySqlDataAdapter.InsertCommand = myDataRowsCommandBuilder.GetInsertCommand(True)
    47. mySqlDataAdapter.Update(DS, "Table")
    48. mySqlDataAdapter.AcceptChangesDuringUpdate = True
    49. MyConnectionExcel.Close()
    51. End Sub




    VB.NET-Quellcode

    1. 'BULK-COPY METHODE
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Dim sqlConnectionZiel As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\qxf8451\Desktop\VS Beschaffungsmanager 2015\VS Beschaffungsmanager 2015\bin\Debug\DB_Beschaffungsmanager.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
    6. Dim OleDbConnectionQuelle As New System.Data.OleDb.OleDbConnection( _
    7. "Provider=Microsoft.ACE.OLEDB.12.0; " & _
    8. "data source=C:\Users\qxf8451\Desktop\export.xlsx; " & _
    9. "Extended Properties=Excel 12.0;")
    11. Dim oleDbccommandBackup As OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand("select * from [Sheet1$]", OleDbConnectionQuelle)
    13. OleDbConnectionQuelle.Open()
    14. sqlConnectionZiel.Open()
    16. Dim oledbReader As OleDbDataReader = oleDbccommandBackup.ExecuteReader
    18. Using sqlbulkcopy As New SqlBulkCopy(sqlConnectionZiel)
    20. sqlbulkcopy.DestinationTableName = "tblSapDaten"
    21. sqlbulkcopy.WriteToServer(oledbReader)
    22. OleDBConnectionQuelle.Close()
    23. sqlConnectionZiel.Close()
    26. End Using
    28. End Sub

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

    TheProfessor schrieb:

    MyConnectionExcel = New System.Data.OleDb.OleDbConnection( _
    "Provider=Microsoft.ACE.OLEDB.12.0; " & _
    "data source=C:\Users\qxf8451\Desktop\export.xlsx; " & _
    "Extended Properties=Excel 12.0;")
    Eigentlich wundert mich, dass das überhaupt funktioniert.

    Visual Basic-Quellcode

    1. ​MyConnectionExcel = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=C:\Users\qxf8451\Desktop\export.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
    Man beachte die Quotes bei den extended properties!
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende