Datentypkonflikt

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

Es gibt 29 Antworten in diesem Thema. Der letzte Beitrag () ist von Yanbel.

    @Yanbel
    lege den Adapter weiter oben extra für diese Form fest hab jede kleinigkeit überprüft es besteht keine chance das dort ein anderer Parameter ist.
    Komisch Komisch
    Aber hier erstmal alles von Anfang an an Code:

    Quellcode

    1. Private Sub EditToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles EditToolStripMenuItem3.Click
    2. Dim editlicense As New LicenseEdit
    3. editlicense.bslicenses = bslicenses
    4. editlicense.Softwareid = DgvSoftware.CurrentRow.Cells(0).Value
    5. editlicense.ShowDialog()
    6. End Sub


    Das ist alles was dazu auf der Main Form gemacht wird

    hier der Rest:

    Quellcode

    1. Public con As New OleDbConnection(")
    2. Public dapcs2 As New OleDbDataAdapter
    3. Public dtcombosoftware As New DataTable
    4. Public Property Softwareid As Integer
    5. Public Property bslicenses As BindingSource
    7. <Obsolete>
    8. Private Sub LicenseEdit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    10. Dim cb11 As New OleDbCommandBuilder(dapcs2)
    12. Dim cmd As New OleDbCommand
    14. cmd.Parameters.AddWithValue("@sofid", Softwareid)
    15. cmd.CommandText = "Select * From Licenses where software_id = @sofid"
    16. cmd.Connection = con
    18. dapcs2.SelectCommand = cmd
    20. dapcs2.Fill(dtcomboSoftware)
    22. bslicenses.DataSource = dtcombosoftware
    24. cbblicense.DataSource = bslicenses
    25. cbblicense.DisplayMember = "license"
    27. txtlicense.DataBindings.Add("Text", bslicenses, "license")
    28. numamount.DataBindings.Add("Value", bslicenses, "overall")
    30. lblHeader.Text = "Edit license-" & txtlicense.Text
    31. End Sub
    33. Private Sub Btncanceleditlicenses_Click(sender As Object, e As EventArgs) Handles btncanceleditlicenses.Click
    34. Form1.Show()
    36. Close()
    38. End Sub
    40. Private Sub Btneditlicenses_Click(sender As Object, e As EventArgs) Handles btneditlicenses.Click
    41. bslicenses.EndEdit()
    42. dtcombosoftware.GetChanges()
    44. If dtcombosoftware.GetChanges IsNot Nothing Then
    45. If MessageBox.Show("Do you want to save your changes?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
    46. dapcs2.Update(dtcombosoftware)
    47. End If
    48. End If
    49. Form1.Show()
    50. Close()
    52. End Sub
    53. End Class

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

    Hast du in irgendeiner Stelle deines Codes folgenden Variablen gefüllt?

    dapcs2.UpdateCommand
    dapcs2.InsertCommand
    dapcs2.DeleteCommand

    Kenne mich mit OleDB nicht aus, aber ich schätze mal die müssen gefüllt sein

    docs.microsoft.com/de-de/dotne…ter?view=netframework-4.8

    Dein Adapter weiß jetzt nur, was ein SelectCommand ist.

    Und nimm den ConnectionString aus deinem Beispiel raus ;)

    Ein Computer wird das tun, was du programmierst - nicht das, was du willst.

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

    @Yanbel
    Huch da weißt jetzt wohl wie ich heiße :D. Danke fürs drauf Aufmerksam machen.
    Nein der DataAdapter regelt das von selbst und generiert dann den passenden Befehl in dem er entweder Updated, Inserted oder Deleted. Hab ich zumindest so verstanden
    und auch schon an allen anderen Forms erfolgreich angewendet das ist auch der Grund warum es mich so wundert das der Code nicht funzt 8| .

    Sicher dass er nicht anhand deines Select-Statements ein passendes Schema baut und die Where-Klausel einfach aus dem SELECT-Command übernimmt kopiert?

    Setz mal einen Breakpoint an dieser Stelle:

    VB.NET-Quellcode

    1. dapcs2.Update(dtcombosoftware)


    Und schau in den Adapter rein, welches UpdateStatement er verwenden will.

    Ein Computer wird das tun, was du programmierst - nicht das, was du willst.

    Keine Ahnung warum der Code bei dir lauffähig war, ich musste ihn ein wenig anpassen und jetzt funktioniert alles inkl. Schreiben in die Datenbank:

    VB.NET-Quellcode

    1. Public con As New OleDbConnection("Data Source=DEINEIP;Initial Catalog=DEINEDATENBANK;User Id=USER;Password=PASSWORT;Provider=SQLOLEDB;")
    2. Public dapcs2 As New OleDbDataAdapter
    3. Public dtcombosoftware As New DataTable
    4. Public Property Softwareid As Integer
    5. Public Property bslicenses As New BindingSource
    7. Private Sub LicenseEdit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    9. Dim cb11 As New OleDbCommandBuilder(dapcs2)
    10. Dim cmd As New OleDbCommand
    12. cmd.Parameters.Add("@sofid", OleDbType.Integer, 0, "software_id").Value = Softwareid
    13. cmd.CommandText = "SELECT * FROM Licenses WHERE software_id = ?"
    14. cmd.Connection = con
    16. dapcs2.SelectCommand = cmd
    17. dapcs2.Fill(dtcombosoftware)
    19. bslicenses.DataSource = dtcombosoftware
    20. cbblicense.DataSource = bslicenses
    22. cbblicense.DisplayMember = "license"
    23. txtlicense.DataBindings.Add("Text", bslicenses, "license")
    25. lblHeader.Text = "Edit license-" & txtlicense.Text
    26. End Sub
    28. Private Sub Btncanceleditlicenses_Click(sender As Object, e As EventArgs) Handles btncanceleditlicenses.Click
    29. Close()
    30. End Sub
    32. Private Sub Btneditlicenses_Click(sender As Object, e As EventArgs) Handles btneditlicenses.Click
    33. bslicenses.EndEdit()
    34. dtcombosoftware.GetChanges()
    35. If dtcombosoftware.GetChanges IsNot Nothing Then
    36. If MessageBox.Show("Do you want to save your changes?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
    37. dapcs2.Update(dtcombosoftware)
    38. End If
    39. End If
    40. Close()
    41. End Sub


    Ein Computer wird das tun, was du programmierst - nicht das, was du willst.

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Yanbel“ ()

    @Yanbel

    Da komm ich auf die Arbeit und sehe das ^^. Mag eigentlich nicht wenn ich Code gestellt bekomme deshalb hab ich mir das erst kurz angeschaut. Du hast im CommandText statt den Parameternamen ein Fragezeichen benutzt liegt.
    normalerweise meines Wissens wirds nicht so gemacht hängt das damit zusammen das man Den DataAdapter noch dabei hat?

    und 2tens. Riesiges Danke Probiere den Code gleich mal aus hast mir aufjedenfall riesig geholfen^^.

    mfg
    Fabimaurice

    @fabimaurice

    Genau, in Verbindung mit dem DataAdapter werden die Skalarvariablen mit einem ? übergeben, damit der Adapter daraus ein Schema generieren kann.

    Kann verstehen, dass du es nicht magst, wenn du Code gestellt bekommst, aber das war hier ja nicht der Fall. 90% des Codes stammen ja von dir und das der DataAdapter ein Schema generiert, hätte ich ohne deine Vorarbeit auch nicht gewusst. War also Teamwork :thumbsup: .

    Sag mal bescheid, wenn das bei dir jetzt auch hinhaut. ;)

    Ein Computer wird das tun, was du programmierst - nicht das, was du willst.

Facebook
Telefonspende