Necesitamos incluir lo siguiente al comienzo del formulario:
Imports System.Data.MySql
Veamos el código necesario para incluir un registro en una tabla con las siguientes características:
PERSONAS(idpersona,nombre,apellido)
- Supongamos que idpersona es un campo autonumérico y que es la clave.
- Los campos nombre y apellido supongamos que son cadenas de caracteres y tomamos sus valores de las cajas de texto txtNombre y txtApellido.
La base de datos está localizada en un servidor MySQL.
El código sería el siguiente:
Dim cn As MySqlConnection
cn = New MySqlConnection(“Data Source=servidor;Database=base_de_datos;User ID=usuario; Password=clave; Allow Zero Datetime=True; CHARSET=latin1”)
cn.Open()
Dim cm As MySqlCommand
cm = New MySqlCommand(“INSERT INTO personas(nombre,apellido) VALUES (?nombre,?apellido))
cm.Parameters.Add(“?nombre”, MySqlDbType.VarChar)
cm.Parameters(“?nombre”).Value = txtNombre.Text
cm.Parameters.Add(“?apellido”, MySqlDbType.VarChar)
cm.Parameters(“?apellido”).Value = txtApellido.text
cm.Connection = cn
cm.ExecuteNonQuery()
cn.Close()
cn = New MySqlConnection(“Data Source=servidor;Database=base_de_datos;User ID=usuario; Password=clave; Allow Zero Datetime=True; CHARSET=latin1”)
cn.Open()
Dim cm As MySqlCommand
cm = New MySqlCommand(“INSERT INTO personas(nombre,apellido) VALUES (?nombre,?apellido))
cm.Parameters.Add(“?nombre”, MySqlDbType.VarChar)
cm.Parameters(“?nombre”).Value = txtNombre.Text
cm.Parameters.Add(“?apellido”, MySqlDbType.VarChar)
cm.Parameters(“?apellido”).Value = txtApellido.text
cm.Connection = cn
cm.ExecuteNonQuery()
cn.Close()
Nota: Es importante destacar que el orden de declarar los parámetros, debe ser el mismo orden de aparición en la consulta SQL.