Conectar Excel a base de datos de Mysql y realizar un CRUD -

Conectar Excel a base de datos de Mysql y realizar un CRUD

Conectar Excel a base de datos de Mysql y realizar un CRUD .- La conexión a Mysql desde excel se realiza usando el conector de Mysql Odbc y tiene que programarse en excel en (visual basic para aplicaciones) el código que permita realizar el CRUD:

Create (Crear registros)

Read bzw. Retrieve (Leer registros)

Update (Actualizar registros)

Delete bzw. Destroy (Borrar registros)

Se a programado en excel ya un módulo de clase que permita tener las funciones necesarias para conectarse a MySql desde Excel, el código lo dejo mas abajo.

Public cn As New ADODB.Connection
Public rst As ADODB.Recordset
Dim cadena As New Clsconexion
Public FormAsControl As UserForm
Public FormAsObject As Object
Public Numerico As Integer


'DERECHOS RESERVADOS'
'FERNANDO MAMANI BLAS
'WEB: EXCELSERVICIOS.COM
'EL PRINCIPIO DE LA SABIDURIA ES EL TEMOR DE JEHOVA
'----------------------------------------------------

Function Conexión()
Set cn = New ADODB.Connection

'CADENA DE CONEXION PHPMYSQL
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
With cn
  .CursorLocation = adUseClient
  'AQUI TU CADENA DE CONEXIÓN
   cn.Open "dsn=Test_contactos"
  
End With
'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////



    If cn.State = adStateOpen Then
        Set Conexión = cn
    End If
End Function

Function ExcelTabla(Consultasql As String)
  Set rst = New ADODB.Recordset
    cadena.Conexión
    rst.Open Consultasql, cadena.cn
    ActiveCell.CopyFromRecordset rst
    
   ' lngcampos = rst.Fields.Count

   ' For i = 0 To lngCampos - 1
    '  Cells(ActiveCell.Row - 1, i + 1).Value = rst.Fields(i).Name
   ' Next
  
End Function

Function Guardar(Tabla As String) As String
    Set rst = New ADODB.Recordset

    cadena.Conexión

    rst.Open Tabla, cadena.cn, adOpenKeyset, adLockOptimistic, adCmdTable

    rst.Requery
    rst.AddNew


End Function

Function Actualizar(Tabla As String) As String
 Set rst = New ADODB.Recordset

    cadena.Conexión

    rst.Open Tabla, cadena.cn, adOpenKeyset, adLockOptimistic, adCmdTable
    rst.Requery


End Function

Function Eliminar(Tabla As String) As String
 Set rst = New ADODB.Recordset

    cadena.Conexión

    rst.Open Tabla, cadena.cn, adOpenKeyset, adLockOptimistic, adCmdTable
    rst.Requery

End Function

Function Buscar(Tabla As String) As String
 Set rst = New ADODB.Recordset

 cadena.Conexión
 rst.Open Tabla, cadena.cn, adOpenKeyset, adLockOptimistic, adCmdTable
 If rst.BOF Or rst.EOF Then Exit Function


End Function

Function ListaTabla(Consultasql As String)

   Set rst = New ADODB.Recordset
   cadena.Conexión

   rst.Open Consultasql, cadena.cn
  
End Function

Function Autonumerico(Consultasql As String)
   Set rst = New ADODB.Recordset
   cadena.Conexión

   rst.Open Consultasql, cadena.cn, AdOpenDinamic, adLockOptimistic
  
End Function

Function TablaConsulta(Consultasql As String)
   Set cn = Conexión
   Set rst = New ADODB.Recordset
   rst.Open Consultasql, cn
 If rst.EOF = False Or rst.BOF = False Then
    With rst
       .MoveLast
        NoOfRecords = .RecordCount
       .MoveFirst
     
        FormAsObject.ColumnCount = .Fields.Count
        FormAsObject.Column = .GetRows(NoOfRecords)
    End With
 End If
End Function

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

Public cn As New ADODB.Connection

Public rst As ADODB.Recordset

Dim cadena As New Clsconexion

Public FormAsControl As UserForm

Public FormAsObject As Object

Public Numerico As Integer

'FERNANDO MAMANI BLAS

'WEB: EXCELSERVICIOS.COM

'EL PRINCIPIO DE LA SABIDURIA ES EL TEMOR DE JEHOVA

'----------------------------------------------------

Function Conexión()

Set cn = New ADODB.Connection

'CADENA DE CONEXION PHPMYSQL

'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

With cn

.CursorLocation = adUseClient

'AQUI TU CADENA DE CONEXIÓN

cn.Open "dsn=Test_contactos"

End With

'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

If cn.State = adStateOpen Then

Set Conexión = cn

End If

End Function

Function ExcelTabla(Consultasql As String)

Set rst = New ADODB.Recordset

cadena.Conexión

rst.Open Consultasql, cadena.cn

ActiveCell.CopyFromRecordset rst

' lngcampos = rst.Fields.Count

' For i = 0 To lngCampos - 1

' Cells(ActiveCell.Row - 1, i + 1).Value = rst.Fields(i).Name

' Next

End Function

Function Guardar(Tabla As String) As String

Set rst = New ADODB.Recordset

cadena.Conexión

rst.Open Tabla, cadena.cn, adOpenKeyset, adLockOptimistic, adCmdTable

rst.Requery

rst.AddNew

End Function

Function Actualizar(Tabla As String) As String

Set rst = New ADODB.Recordset

cadena.Conexión

rst.Open Tabla, cadena.cn, adOpenKeyset, adLockOptimistic, adCmdTable

rst.Requery

End Function

Function Eliminar(Tabla As String) As String

Set rst = New ADODB.Recordset

cadena.Conexión

rst.Open Tabla, cadena.cn, adOpenKeyset, adLockOptimistic, adCmdTable

rst.Requery

End Function

Function Buscar(Tabla As String) As String

Set rst = New ADODB.Recordset

cadena.Conexión

rst.Open Tabla, cadena.cn, adOpenKeyset, adLockOptimistic, adCmdTable

If rst.BOF Or rst.EOF Then Exit Function

End Function

Function ListaTabla(Consultasql As String)

Set rst = New ADODB.Recordset

cadena.Conexión

rst.Open Consultasql, cadena.cn

End Function

Function Autonumerico(Consultasql As String)

Set rst = New ADODB.Recordset

cadena.Conexión

rst.Open Consultasql, cadena.cn, AdOpenDinamic, adLockOptimistic

End Function

Function TablaConsulta(Consultasql As String)

Set cn = Conexión

Set rst = New ADODB.Recordset

rst.Open Consultasql, cn

If rst.EOF = False Or rst.BOF = False Then

With rst

.MoveLast

NoOfRecords = .RecordCount

.MoveFirst

FormAsObject.ColumnCount = .Fields.Count

FormAsObject.Column = .GetRows(NoOfRecords)

End With

End If

End Function

Ahora vamos con lo mas Importante en esta sección de Aquí abajo tienes los 4 videos donde explico como realizar la conexión, crear el servidor, crear la base de datos, crear la tabla, guardar registros, mostrar registros, actualizar registros y eliminar registros de MySql.