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:
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.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 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 '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 |
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.
¿Quieres patrocinar este proyecto? Cómprame un café Aquí.
Acerca del autor