Agregar registros a una base de datos
Usando Visual Basic .NET y MySQLConnector

En un artículo anterior vimos como conectarnos a una base de datos y como crear una base de datos desde Visual Basic .NET, ahora veremos como agregar registros a la base de datos.

Tenemos el siguiente código:

[highlight=vb.net] Dim insertar As New MySqlDataAdapter("INSERT INTO internos(nombretd,cedula,nombres,estado,tiempoest, fecha,permiso,patio,sexo,edad,imagen) VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & estado & "','" & TextBox4.Text & "','" & DateTimePicker1.Value & "','" & permiso & "','" & NumericUpDown1.Value & "','" & sexo & "','" & NumericUpDown2.Value & "','" & foto_conv & "')", conexion)
Dim comando As New MySqlCommandBuilder(insertar)

Try
insertar.Fill(tabla)
MessageBox.Show("Registro guardado correctamente.")
Catch ex As MySqlException
MessageBox.Show("No se han podido guardar los datos.")
Finally
conexion.Dispose()
End Try[/highlight]


Primero, suponiendo que ya nos hemos conectado, creamos una variable que contendrás las sentencias SQL previas a agregar al registro:

[highlight=vb.net]Dim insertar As New MySqlDataAdapter("INSERT INTO internos(nombretd,cedula,nombres,estado,tiempoest, fecha,permiso,patio,sexo,edad,imagen) VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & estado & "','" & TextBox4.Text & "','" & DateTimePicker1.Value & "','" & permiso & "','" & NumericUpDown1.Value & "','" & sexo & "','" & NumericUpDown2.Value & "','" & foto_conv & "')", conexion)[/highlight]

Luego creamos un constructor para el comando:

[highlight=vb.net]Dim comando As New MySqlCommandBuilder(insertar)[/highlight]

Y luego lo ejecutamos con la sentencia Fill, y si se realiza todo correctamente muestra un mensaje positivo de lo contrario muestra un mensaje de error.

[highlight=vb.net]Try
insertar.Fill(tabla)
MessageBox.Show("Registro guardado correctamente.")[/highlight]