Buen dia cjgallardo96_x,
en mi caso particular seguí con los siguientes paso para hacer lo mismo, posiblemente te sirva.
1. Cree la conexión mysql en un modulo llamado "CONEXION"
'Funcion para conectar la base de datos
Public Sub CONECTARBD()
'conexionbd = New MySqlConnection("server='yyyy';user id='xxxx'; password='zzzz';database='aaaa';port=3306")
Try
conexionbd.Open()
CONECTADA = 1
Catch myerror As MySqlException
MsgBox("No hay Conexión, Por favor revise el servidor", MsgBoxStyle.Information, "MI PROGRAMA")
CONECTADA = 0
End Try
End Sub
2 Al tener lista la conexión a mysql deberás tener en cuenta que será necesario tener los datos de sql server almacenados en una grilla. (ES MI CASO PARTICULAR, YA QUE TENGO QUE MOSTRARLA PARA QUE EL USUARIO ESTÉ SEGURO QUE LA INFORMACIÓN A GUARDAR ES CORRECTA)
3 Cuando definí de manera correcta que la información tomada de SQL server está correcta y lista para guardarla en el servidor Mysql, recorro la grilla guardando toda la información contenida ahí, o solo las columnas que sean necesarias.
'Guardar el detalle de la grilla --------------------------------------------------------------------------------------
conexionbd.Open()
VALORESGRILLA = "INSERT INTO mitabla(campo1,campo2,campo3,campon)" & _
"VALUES (@param1,@param2,@param3,@paramn)"
mycommand = New MySqlCommand(VALORESGRILLA, conexionbd)
For Each row As DataGridViewRow In Grid1.Rows
mycommand.Parameters.Clear()
mycommand.Parameters.AddWithValue("@param1", CInt(row.Cells(NUM COLUMNA GRILLA).Value))
mycommand.Parameters.AddWithValue("@param2", CStr(row.Cells(NUM COLUMNA GRILLA).Value))
mycommand.Parameters.AddWithValue("@param3", CStr(row.Cells(NUM COLUMNA GRILLA).Value))
mycommand.Parameters.AddWithValue("@paramn", CDbl(row.Cells(NUM COLUMNA GRILLA).Value))
mycommand.ExecuteNonQuery()
Next
conexionbd.Close()
Espero te sirva... un saludo
JAIRO GARZÓN FORERO