¿Cómo conectar y operar la base de datos MYSQL con el control ADO de VB?
Dado que los objetos ADO no son compatibles directamente con MySQL, primero debe instalar MyODBC. Este último también es un producto gratuito y se puede descargar desde www.mysql.org. Después de instalar MyODBC, puede administrar los datos ODBC. source. Configure un nombre de fuente de datos y apúntelo a la base de datos MySQL a la que desea conectarse.
El código es el siguiente: Sub connectMySQL() 'Conéctese a la base de datos MySQL a través de MyODBC y transfiera los datos de Microsoft SQL Server 7' a mysql Dim sConnect As String, sSql As String, i As Long Dim cnMSSQL As New ADODB.Connection Dim cnMySQL como nuevo ADODB.Connection 'Declarar y crear conexión de objeto Dim rs como nuevo ADODB.Recordset 'Declarar y crear conjunto de registros de objetos Dim cm como nuevo ADODB.Command 'Declarar y crear comando de objeto sConnect = "dsn=mysql1" 'Especificar los datos fuente de MySQL Nombre cnMySQL.Open sConnect 'Conectarse a mysql sConnect="Provider=SQLOLEDB.1; Persist Security Info=False; ID de usuario=sa; pwd=123456; Catálogo inicial=softdown; Fuente de datos=ntserver" 'Conectarse a ms servidor SQL 7 cnMSSQL.Open sConnect 'sSql = "crear tabla softinfo (softNum smallint, softname varchar(70), softdesc blob", _ "softpath varchar(30), softleng varchar(10), softclass varchar(10), softsugest tinyint ( 1), "amp; _ "softdown smallint(4))" 'Crear una nueva declaración de tabla de datos MySQL sSql = "select * from softinfo order by softnum" rs.Abrir sSql, cnMSSQL, 1, 1 mientras no rs.EOF sSql = "insertar en valores de softinfo (" amp; Trim(rs(0).Value) amp; ","'" amp; Trim(rs(1).Value) amp; _ "','" amp; Trim (rs(2).Valor) amp; "','" amp; Trim(rs(3).Value) amp; "','" amp; '" amp; Recortar(rs(5).Valor) & "'," & Recortar(rs(6).Valor) & "," & Recortar(rs(7).Valor) & ")" cm. ActiveConnection = cnMySQL cm.CommandType = adCmdText cm.CommandText = sSql cm.Execute rs.MoveNext Wend rs.Close Establecer rs = No
hing cnMySQL.Close Set cnMySQL = Nada cnMSSQL.Close Set cnMSSQL = Nada final Sub