Cazs Cazs - 1 year ago 130
MySQL Question

Mysql DataAdapter Update Method - Doesn't Save Changes

I'm using MySQL in
Datagridview displayed correctly and everything works properly, the problem arises when I try to update the changes in the database with the update (method)
By default the data is updated in memory "is erased students with ID =" 2 ""
But in the database is not updated, I'm reading the documentation and should work with update
datosAlumnos.Update(ds, "alumnos")

Imports MySql.Data.MySqlClient
Public Class Form1
Dim con As New MySqlConnection
Dim stringCon As String = "server=localhost; user id=root; password=; database=centroeducativo"
Dim listViewAlumnos As New ListBox()

Dim ds As New DataSet()
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
con.ConnectionString = stringCon
Dim datosTablas As New MySqlDataAdapter("SHOW TABLES", con)
Dim datosAlumnos As New MySqlDataAdapter("SELECT * FROM alumnos ORDER BY Nombre", con)
Dim datosAsignaturas As New MySqlDataAdapter("SELECT * FROM asignaturas", con)
Dim datosMatriculas As New MySqlDataAdapter("SELECT * FROM matriculas", con)

datosTablas.Fill(ds, "tablas")
datosAlumnos.Fill(ds, "alumnos")
datosAsignaturas.Fill(ds, "asignaturas")
datosMatriculas.Fill(ds, "matriculas")


Dim tabla As DataTable
tabla = ds.Tables("tablas")
Dim fila As DataRow
For Each fila In tabla.Rows

Dim filaBorrada As DataRow() = ds.Tables("alumnos").Select("id=2")
datosAlumnos.Update(ds, "alumnos")
Catch ex As Exception

End Try
End Sub

Private Sub formularioTabla(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim curItem As String = ListBox1.SelectedItem.ToString()
Select Case curItem
Case "alumnos"
Case "asignaturas"
Case "matriculas"
Case Else
End Select
End Sub

Private Sub FormularioAlumno()
Dim dv As DataView = ds.Tables("alumnos").DefaultView
Dim DataGridView As New DataGridView()
DataGridView.AutoSize = True
DataGridView.DataSource = dv
DataGridView.Columns("id").Visible = False
End Sub
End Class

Answer Source

It seems you forget to set InsertCommand, UpdateCommand and specially Deletecommand.

To make a data adapter update data, it should have those commands. You can set those commands manually or using a MySqlCommandBuilder.

Dim myConn As New MySqlConnection("Connection String")
Dim myDataAdapter As New MySqlDataAdapter()
myDataAdapter.SelectCommand = New MySqlCommand("Select Query", myConn)
Dim myCommandBuilder As MySqlCommandBuilder = New MySqlCommandBuilder(myDataAdapter)
Recommended from our users: Dynamic Network Monitoring from WhatsUp Gold from IPSwitch. Free Download