¿Cómo obtener ADODB? Recordset como valor de retorno de una función, acceder a SQL a través de ADO y utilizar clases y funciones personalizadas en VBA. Encuentra el código de clasificación. ..
Función pública MysqlConnection()
Conexión MySQL = "Proveedor = SQL oledb . 1; Contraseña = Contraseña; Información de seguridad persistente = Verdadero ID de usuario = sa Directorio inicial = hrlink Fuente de datos = Dirección IP"
Finalizar función
Subcomando privado Button2_Click()
Atenuar cn como nuevo ADODB. "Conexión" define el objeto de enlace de datos y guarda la información de la base de datos de conexión; agregue primero la referencia de ADO.
Atenuar rs como nuevo ADODB. "Recordset" define el objeto del conjunto de registros y guarda la tabla de datos.
Dimstrcn como cadena, strsqlas cadena 'Variable de cadena
strCn = MysqlConnection()
cn. Abrir strCn
.....