Cómo insertar datos de Excel en una base de datos MySQL usando VBA

Dim oConn As ADODB.Connection

Private Sub ConnectDB()

Establezca oConn = New ADODB.Connection

oConn.Open "DRIVER={Controlador ODBC 5.1 de MySQL};" amp; _

"SERVIDOR=localhost;" =subase de datos; " amp; _

"USUARIO=sunombredeusuario;" amp; _

"CONTRASEÑA=sucontraseña de base de datos;" amp; _

"Opción=3 "

End Sub

2. Realice escrituras específicas para la inserción de la base de datos:

Dim rs As ADODB.Recordset

Private Sub InsertData( )

Establecer rs = Nuevo ADODB.Recordset

ConnectDB

Con wsBooks

Para rowCursor = 2 a 11

strSQL = "INSERT INTO tutorial (autor, título, precio) " amp; _

"VALUES ('" amp; esc(.Cells(rowCursor, 1) amp; "', " amp; _

"'" amp; esc(.Cells(rowCursor, 2)) amp; "', " amp;

rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic

Siguiente

Terminar con

End Sub