Datagridview_RowsAdded

  • Allgemein

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Datagridview_RowsAdded

    Hi Comm,

    ich habe eine MySQLDatenbank und will per Datagridview einen Eintrag hinzufügen lassen.
    Für das Editieren habe ich das so gelöst:

    VB.NET-Quellcode

    1. Public Class DGVEntry
    2. Public RowIndx As Integer
    3. Public ColumnIndx As Integer
    4. Public oldVal As String
    5. End Class
    7. Dim entr As New List(Of DGVEntry)
    8. Dim ent As New DGVEntry
    10. Private Sub DataGridView1_CellBeginEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles DataGridView1.CellBeginEdit
    11. ent = New DGVEntry
    12. ent.oldVal = DataGridView1.Rows(DataGridView1.SelectedCells(0).RowIndex).Cells(0).Value.ToString
    13. ent.RowIndx = DataGridView1.SelectedCells(0).RowIndex
    14. ent.ColumnIndx = DataGridView1.SelectedCells(0).ColumnIndex
    15. entr.Add(ent)
    16. End Sub
    18. Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
    19. SaveButton.Enabled = True
    20. End Sub
    22. Private Sub SaveButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveButton.Click
    23. Dim cmdTxT As String = Nothing
    24. For i = 0 To entr.Count - 1
    25. Dim tbl As String = SelectedTable
    26. Dim newVal As String = DataGridView1.Rows(entr(i).RowIndx).Cells(entr(i).ColumnIndx).Value
    27. If newVal = "True" Then newVal = 1
    28. If newVal = "False" Then newVal = 0
    29. Dim oldVal As String = entr(i).oldVal
    30. Dim ValClmn1 As String = DataGridView1.Columns(entr(i).ColumnIndx).HeaderText
    31. Dim ValClmn2 As String = DataGridView1.Columns(0).HeaderText
    32. cmdTxT &= "UPDATE " & tbl & " SET " & ValClmn1 & "='" & newVal & "' WHERE " & ValClmn2 & "='" & oldVal & "';" & vbNewLine
    33. Next
    34. Try
    35. Dim mycommand As New MySqlCommand(cmdTxT, Conn)
    36. mycommand.ExecuteNonQuery()
    37. entr.Clear()
    38. cmdTxT = Nothing
    39. SaveButton.Enabled = False
    40. Catch mysqlex As MySqlException
    41. MsgBox(mysqlex.Message.ToString, MsgBoxStyle.Critical)
    42. Catch ex As Exception
    43. MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
    44. End Try
    45. End Sub


    Aber beim Hinzufügen scheitere ich..

    Hoffe mir kann einer (oder mehrere) helfen!
    Danke schon im Vorraus!
    LG
    Merio

    Ach, das habichjetzt schon im anneren Post gepostet: ich glaub, für MySql gibts die gleiche Designer-Unterstützung.

    Hmm. Auf meim System nicht.

    Aber im INet fund ich gleich den MySqlDataAdapter, und da denkich, vlt. iwo eine Dll mit der MySql-Infrastruktur runterladen, dann geht das genauso.

    na, das UPDATE - Command passt natürlich nicht, wenn man einen INSERT ausführen muß.

    @Merio: Hast du was mit DesignerUnterstützung gefunden? Wichtig wäre, dass der Assistent anspringt, wenn man die Datenbank dem Projekt hinzufügt. Da werden die TableAdapter nämlich konfiguriert.


    Ansonsten kann man DataAdapter auch selbst konfigurieren, dass sie selbständig das richtige UPDATE, SELECT, DELETE, INSERT anwenden, mittm CommanBuilder geht das.
    Ich nehme an, wenn du schon MySqlCommands hast, und ich die MySqlDataAdapter im INet fund, dann hast du die Infrastruktur schon, und da wird auch ein MySqlCommandBuilder herumfahren.

    Hier der Code:

    VB.NET-Quellcode

    1. Dim tn As String = DataSet1.Tables(0).TableName
    2. Dim da As New MySqlDataAdapter("SELECT * FROM " & tn & ";", Conn)
    3. Dim clmns As String = "("
    4. For i = 0 To DataSet1.Tables(0).Columns.Count - 1
    5. If i = 0 Then clmns &= DataSet1.Tables(0).Columns(i).ColumnName Else clmns &= ", " & DataSet1.Tables(0).Columns(i).ColumnName
    6. Next
    7. Dim vls As String = Nothing
    8. For i = 0 To DataSet1.Tables(0).Columns.Count - 1
    9. If i = 0 Then clmns &= "@" & DataSet1.Tables(0).Columns(i).ColumnName Else clmns &= ", @" & DataSet1.Tables(0).Columns(i).ColumnName
    10. Next
    11. da.InsertCommand = New MySqlCommand("INSERT INTO " & tn & " " & clmns & ") VALUES (" & vls & ");", Conn)
    12. clmns = Nothing
    13. For i = 0 To DataSet1.Tables(0).Columns.Count - 1
    14. If i = 0 Then clmns &= DataSet1.Tables(0).Columns(i).ColumnName Else clmns &= ", " & DataSet1.Tables(0).Columns(i).ColumnName
    15. clmns &= "=@" & DataSet1.Tables(0).Columns(i).ColumnName
    16. Next
    17. da.UpdateCommand = New MySqlCommand("UPDATE " & tn & " SET " & clmns & " WHERE " & DataSet1.Tables(0).Columns(0).ColumnName & "=@" & DataSet1.Tables(0).Columns(0).ColumnName & ";", Conn)
    18. da.DeleteCommand = New MySqlCommand("DELETE FROM " & tn & " WHERE " & DataSet1.Tables(0).Columns(0).ColumnName & "=@" & DataSet1.Tables(0).Columns(0).ColumnName & ";", Conn)
    19. da.Update(DG1.DataSource)
    LG
    Merio

    Hier mal eine Lösung mit CommandBuilder. Die gibts bestimmt auch in MySql.

    Sehr angenehm bei denen ist, dass man nur den Select formulieren muß, Update, Insert, Delete denken die sich dann selber aus:

    VB.NET-Quellcode

    1. Private _CategoryAdapter As OleDbDataAdapter
    2. Private _ArticleAdapter As OleDbDataAdapter
    3. Private _Con As OleDbConnection
    5. Private Sub InitAdapters()
    6. _Con = New OleDbConnection( _
    7. "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DBSample.MDB")
    8. Dim cmd = New OleDbCommand("Select * from Category", _Con)
    9. _CategoryAdapter = New OleDbDataAdapter(cmd)
    10. Dim CategoryBuilder = New OleDbCommandBuilder(_CategoryAdapter)
    11. cmd = New OleDbCommand("Select * from article", _Con)
    12. _ArticleAdapter = New OleDbDataAdapter(cmd)
    13. Dim ArticleBuilder = New OleDbCommandBuilder(_ArticleAdapter)
    14. End Sub
    16. Private Sub Save()
    17. 'Evtl in Bearbeitung stehende Zellwerte als Eingabe übernehmen
    18. If Not Me.Validate Then Return
    20. With Me.DBSampleDataSet.Category
    21. 'Dieser Block führt CategoryTableAdapter.Update() für gelöschte DataRows extra aus.
    22. '! Besonderheit: Die DataRelation wird kurzfristig "umkonfiguriert", sodaß
    23. '! DataRow.AcceptChanges auch für die ChildRows aufgerufen wird, damit sie vom
    24. '! ArticleTableAdapter.Update() ausgenommen werden.
    25. .ChildRelations(0).ChildKeyConstraint.AcceptRejectRule = AcceptRejectRule.Cascade
    26. Dim DeletedRows As DataRow() = .Select("", "", DataViewRowState.Deleted)
    27. _CategoryAdapter.Update(DeletedRows)
    28. .ChildRelations(0).ChildKeyConstraint.AcceptRejectRule = AcceptRejectRule.None
    29. End With
    31. _CategoryAdapter.Update(Me.DBSampleDataSet.Category)
    32. _ArticleAdapter.Update(Me.DBSampleDataSet.Article)
    33. System.Media.SystemSounds.Asterisk.Play()
    34. End Sub


    Also das speichert jetzt ein Dataset mit 2 verknüpften Tabellen.

    Im beiliegendem Gui kannst du die Tabellen nach Belieben editieren.
    Dateien

    Ich hab dir ein Beispiel mit Access-Technologie gemacht, mit OleDbCommand, OleDbDataAdapter und OleDbCommandBuilder.
    Ich hab gesehen, dasses für MySql entsprechendes gibt: MySqlCommand, MySqlDataAdapter, und daher gehe ich davon aus, dasses auch den MySqlCommandBuilder gibt.

    Also sollte es doch ein Klacks sein, meinen Access-Prototyp auf MySql umzuschreiben - inwiefern sollte XAMPP oder wer auch immer was dagegen haben? Die DataAdapter-Konfiguration ist doch komplett Client-Seitig - letztendlich abgeschickt werden die richtigen Queries, und gut is.

    Müsste sogar mit Suche-Ersetzen gehen - nur den ConnectionString müssteste anpassen.

    Ja gut, in meinem Sample liegt eine andere DB-Struktur vor, also wenn du meine (mitgelieferte) "DBSample" Datenbank auf deinem XAMPP hättest.
    (Wieso laden die Leuts eiglich nie meine Solutions runner, wennichse extra für sie entwickeln tu? :cursing: )

Facebook
Telefonspende