MySQL Forums
Forum List  »  Connector/ODBC

Erreur Microsoft Gestionnaire de pilotes ODBC Source de données introuvable et nom de pilote non spécifié
Posted by: Julie Lafrenaye
Date: May 02, 2019 08:52AM

Windows= 64 bit
La connection avecMySQL for Excel fonctionne
J'utilise ODBC 8.0, version 64 bit. (J'ai tenté avec la 32 bit, mais il ne me permet pas d'ajouter mon DSN
Le test de connection fonctionne aussi
J'ai aussi réinstallé excel
Je n'ai pas de problème avec la library

Je veux créer un macro pour envoyer des données dans MySQL en un clic

Sub ExportMysql()

Dim MaConnexion As ADODB.Connection
Dim MonRecord As ADODB.Recordset
Dim Nblignes As Integer
Dim rowtable As Integer
Dim strSQL As String

Set MaConnexion = New ADODB.Connection
Set MonRecord = New ADODB.Recordset

MaConnexion.Open "DRIVER={MySQL ODBC 8.0 Unicode Driver};" & _
"SERVER=127.0.0.1;" & _
"DATABASE=approvisionnement;" & _
"USER=root;" & _
"PASSWORD=julie;" & _
"Option=3"

Nblignes = Worksheets(Feuil1).UsedRange.Rows.Count

With Worksheets(Feuil1)
For rowtable = 2 To Nblignes
strSQL = "INSERT INTO `approvisionnement`.`ligne2` (`numitem`,`dateheure`,`epaiss`,`largeur`,`longueur`,`qtedem`) " & _
"VALUES ('" & .Cells(rowtable, 1).Value & "', '" & _
.Cells(rowtable, 2).Value & "', '" & _
.Cells(rowtable, 3).Value & "', '" & _
.Cells(rowtable, 4).Value & "', '" & _
.Cells(rowtable, 5).Value & "', '" & _
.Cells(rowtable, 6).Value & "')"
MonRecord.Open strSQL, MaConnexion
Next rowtable

End With


L'erreur se trouve dans la partie en gras

Merci beaucoup!!

Options: ReplyQuote


Subject
Written By
Posted
Erreur Microsoft Gestionnaire de pilotes ODBC Source de données introuvable et nom de pilote non spécifié
May 02, 2019 08:52AM


Sorry, you can't reply to this topic. It has been closed.

Content reproduced on this site is the property of the respective copyright holders. It is not reviewed in advance by Oracle and does not necessarily represent the opinion of Oracle or any other party.