Public sqlCmd As MySqlCommand
Public myTrans As MySqlTransaction ' Para hacer Transacciones
Public rsAux As MySqlDataReader
Public CadenaCinexion As String = "Provider=MySql;" & _
"Data Source=IP_del_servidor;" & _
"Initial Catalog=nombre_de_la_bd;" & _
"User Id=tu_usuario_definido;" & _
"Password=clave_de_acceso_a_la_BD"
Importar en cada modulo
Imports MySql.Data
Imports MySql.Data.MySqlClient
'/* Crearla conexión */
sqlCon = New MySqlConnection()
sqlCon.ConnectionString = strConex
' Abrir la base de datos
sqlCon.Open()
' Ejemplo para lectura de varios registros (dataReader) Public Function Buscar_Administrador(ByVal idvia As Long, _
ByVal iddom As Long, _
ByVal numero As String, _
ByVal idcpo As Long) As Long
Dim rsAdm As MySqlDataReader = Nothing
Try
Buscar_Administrador = 0
If Not Conectar() Then Exit Function
sSql = "SELECT doa_idadministrador " & _
"FROM domicilios_administrados " & _
"WHERE doa_idtipovia = " & idvia & " AND " & _
"doa_iddomicilio = " & iddom & " AND " & _
"doa_numero = '" & numero & "' AND " & _
"doa_idcodpostal = " & idcpo
sqlCmd = New MySqlCommand(sSql, sqlCon)
rsAdm = sqlCmd.ExecuteReader
If rsAdm.Read Then
Buscar_Administrador = rsAdm("doa_idadministrador") End If
rsAdm.Close()
rsAdm = Nothing
Catch ex As Exception
MostrarError("Módulo General", "Funcion Buscar_Administrador", Err.Number, _ "ERROR AL OBTENER EL ADMINISTRADOR", _
MessageBoxIcon.Stop + MessageBoxButtons.OK, _
"BÚSQUEDA DEL ADMINISTRADOR DEL DOMICILIO")
Finally
If Not IsNothing(rsAdm) Then
rsAdm.Close()
rsAdm = Nothing
End If
End Try
End Function
' Ejemplo para actualizar la base de datos
If esalta Then
sSql = "INSERT INTO tipos_iva " & _
"(tiv_fecha, tiv_iva, tiv_igic, tiv_reducido) " & _
"VALUES ('" & CDate(mtbFechaInicio.Text).ToString("yyyy-MM-dd") & "', " & _ txtTipoIva.Text & ", " & _
txtTipoIgic.Text & ", " & _
txtTipoReduc.Text & ")"
Else
sSql = "UPDATE tipos_iva " & _
"SET tiv_iva = " & txtTipoIva.Text & ", " & _
"tiv_igic = " & txtTipoIgic.Text & ", " & _
"tiv_reducido = " & txtTipoReduc.Text & " " & _
"WHERE tiv_fecha = '" & CDate(mtbFechaInicio.Text).ToString("yyyy-MM-dd") & "' " End If
sqlCmd = New MySqlCommand(sSql, sqlCon)
sqlCmd.ExecuteNonQuery()
