Buenos días:
En este momento estoy desarrollando una pequeña app en VS.2015 (VB), tengo dos bases de datos, la primera en MySQL y la segunda en Ms-SQL, ambas tienen la misma estructura, primero hago un select y traigo los datos de una tabla de cada base de datos a un dataset y un datatable, luego hago una breve comparación entre los datatable, y por último devuelvo la taba final hacia ambas bases de datos, cuando lo hago hacia MS-SQL no tengo problema y actualiza, pero cuando lo hago hacia MySQL no actualiza, tampoco me arroja error o excepción. El código que estoy utilizando es:
Dim condicion As String = ""
Dim Tabla As String = "Horarios"
'Objects MySql'
Dim conMySql As MySqlConnection
Dim cmdMySql As MySqlCommand
Dim comBMySql As MySqlCommandBuilder
Dim daMySql As MySqlDataAdapter
'Objects Sql'
Dim conSql As SqlConnection
Dim cmdSql As SqlCommand
Dim comSql As SqlCommandBuilder
Dim daSql As SqlDataAdapter
conSql = New SqlConnection(My.Settings.MsSql.ToString)
cmdSql = New SqlCommand("SELECT * FROM " & Tabla & IIf(Condicion <> "", " WHERE " & Condicion, ""), conSql)
daSql = New SqlDataAdapter(cmdSql)
conSql.Open()
cmdSql.ExecuteNonQuery()
daSql.Fill(dsg, Tabla & "1")
conSql.Close()
conMySql = New MySqlConnection(My.Settings.MySqlLocal.ToString)
cmdMySql = New MySqlCommand("SELECT * FROM " & Tabla & IIf(Condicion <> "", " WHERE " & Condicion.Replace("GETDATE", "CURDATE"), ""), conMySql)
daMySql = New MySqlDataAdapter(cmdMySql)
conMySql.Open()
cmdMySql.ExecuteNonQuery()
daMySql.Fill(dsg, Tabla)
conMySql.Close()
Form1.DataGridView1.DataSource = dsg.Tables(Tabla)
Form1.DataGridView2.DataSource = dsg.Tables(Tabla & "1")
dsg.Tables(Tabla).Merge(dsg.Tables(Tabla & "1"))
comBMySql = New MySqlCommandBuilder(daMySql)
Dim upcmdmysql As MySqlCommand
upcmdmysql = New MySqlCommand("UPDATE horarios SET idhorario = ?idhorario, NombreHora = ?NombreHora, Entrada1 = ?Entrada1, Salida1 = ?Salida1, Entrada2 = ?Entrada2, Salida2 = ?Salida2, Observacion = ?Observacion", conMySql)
For Each columna In dsg.Tables(Tabla).Columns
upcmdmysql.Parameters.Add(New MySqlParameter("?" & columna.ToString, columna.GetType))
upcmdmysql.Parameters("?" & columna.ToString).SourceVersion = DataRowVersion.Original
upcmdmysql.Parameters("?" & columna.ToString).SourceColumn = columna.ToString
Next
daMySql.UpdateCommand = upcmdmysql
daMySql.Update(dsg.Tables(Tabla))