Sono partito da questo tutorial:
http://www.heritage-tech.net/908/insert ... using-vba/
Lo trovo un po' macchinoso e siccome il codice è intervallato dalle spiegazioni nel "rimontarlo" devo aver sbagliato qualcosa, infatti non mi funziona...
- Codice: Seleziona tutto
Dim oConn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub ConnectDB()
Set oConn = New ADODB.Connection
oConn.Open "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=localhost;" & "DATABASE=test;" & "USER=root;" & "PASSWORD=prova;" & "Option=3"
End Sub
Function esc(txt As String)
esc = Trim(Replace(txt, "'", "\'"))
End Function
Private Sub InsertData()
Set rs = New ADODB.Recordset
ConnectDB
With wsBooks
For rowCursor = 2 To 11
strSQL = "INSERT INTO tutorial (author, title, price) " & "VALUES ('" & esc(.Cells(rowCursor, 1)) & "', " & "'" & esc(.Cells(rowCursor, 2)) & "', " & esc(.Cells(rowCursor, 3)) & ")"
rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic
Next
End With
End Sub
La prima richiesta è se mi poteste correggere il codice messo tutto insieme. Inoltre, almeno in un primo tempo vorrei togliere la funzione "esc" ma sono sicuro che togliendo parentesi e apici nella strSQL sbaglio qualcosa. Mi aiutate a togliere quella funzione?
Aggiungo che ho trovato utilissimo il documento scaricato da qui:
http://www.mysql.it/why-mysql/white-pap ... _guide.php
In pratica si crea la connessione via ODBC e poi la si richiama da Excel ma con la procedura guidata.
Come si fa invece a richiamare tale connessione via VBS e a fare poi la query?
Grazie delle risposte che mi darete