DataGridView mit Daten aus einer MySQL Datenbank aus dem Internet füllen und bearbeiten

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Merio.

    DataGridView mit Daten aus einer MySQL Datenbank aus dem Internet füllen und bearbeiten

    Moin Moin,

    ich hab es jetzt geschafft eine Verbindung zu meiner MySQL-Datenbank auf meinem Webserver und die Daten in ein Listview einzulesen.

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Dim con As New Odbc.OdbcConnection
    4. Dim cmd As New Odbc.OdbcCommand
    5. Dim reader As Odbc.OdbcDataReader
    7. con.ConnectionString = "DSN=odbc_top10"
    8. cmd.Connection = con
    9. cmd.CommandText = "select * from anzeige"
    11. Try
    12. con.Open()
    13. reader = cmd.ExecuteReader()
    14. lstTab.Items.Clear()
    15. Do While reader.Read()
    16. lstTab.Items.Add(reader("kdnr") & " # " _
    17. & reader("posi") & " # " _
    18. & reader("posialt") & " # " _
    19. & reader("dbregion") & " # " _
    20. & reader("unterbranche"))
    21. Loop
    22. reader.Close()
    23. con.Close()
    24. Catch ex As Exception
    25. MsgBox(ex.Message)
    26. End Try
    29. End Sub


    Wie bekomme ich es jetzt aber hin die Daten aus der Tabelle "anzeige" in einem DataGridView anzuzeigen und dass wenn ich dort eingaben verändere diese auch wieder gespeichert werden?

    Vielen Dank im Voraus

    Viele Grüße aus Hamburg
    Schay

    Statt des Readers solltest du ein DataTable und einen DataAdapter verwenden.

    Hier ein Beispiel was ich mit SQLite verwende:

    VB.NET-Quellcode

    1. Dim table As New DataTable
    2. Dim DBConn As New SQLiteConnection()
    3. Dim DBComm As SQLiteCommand
    4. Dim Adapter As New SQLiteDataAdapter
    5. Dim dgw As New DataGridView
    6. DBConn.ConnectionString = "Data Source=" & ofd.FileName & ";"
    7. Try
    8. DBConn.Open()
    9. Catch ex As Exception
    10. MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    11. Exit Sub
    12. End Try
    13. DBComm = DBConn.CreateCommand
    14. DBComm.CommandText = "SELECT * FROM DATA"
    15. Adapter.SelectCommand = DBComm
    16. Adapter.Fill(table)
    17. dgw.DataSource = table


    Dann sollten deine Daten auch in dem DataGridView sein.

    Schay schrieb:

    und dass wenn ich dort eingaben verändere diese auch wieder gespeichert werden?


    Das bearbeiten und danach speichern hab ich so gelöst:

    Du brauchst einen Button um die Bearbeitung abzuspeichern(SaveButton)

    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
    LG
    Merio

Facebook
Telefonspende