Accéder à une Database SQL via un code VBA

Le 26/04/2021 à 19:52

bonjour,

Le 28/04/2021 à 09:33

Bonjour ,

J'ai un probleme similaire car j'ai changé de version Windows (W7 a W10) et les codes VBA que j'avais sous mon Excel de la W7 ne s'execute pas sur mon Excel W10 notamment a cause d'un pb de DLL (Composant DAO360) donc je peux pas utiliser cette reference.

Mon ancien code se presentait comme ceci :

Function GET_DATA_DB(X_k As Long)

Workbooks("FlexSJ_7.xlsm").Sheets(X_k).Activate
'ActiveSheet.Range(Range(Range("A2"), Range("A2").End(xlToRight)), Range(Range("A2"), Range("A2").End(xlToRight)).End(xlDown)).ClearContents
If Range("A2").Value <> "" Then
ActiveSheet.Range(Range(Range("A1"), Range("A1").End(xlToRight)), Range(Range("A1"), Range("A1").End(xlToRight)).End(xlDown)).Offset(1, 0).ClearContents
End If

requete_text = Sheets("Requete").Shapes(CStr(X_k)).TextFrame.Characters.Text

Set Query = cnx.CreateQueryDef("DATA")

With Query

.Sql = requete_text

Set Bonds_Data = .OpenRecordset(dbOpenDynaset)

ThisWorkbook.Sheets(X_k).Activate
ActiveSheet.Range("A2").CopyFromRecordset Bonds_Data

.Close

.Refresh
End With

End Function

J'aimerai adapter cette fonction en prenant plutot en compte les specificités ADODB et non DOA (vu que je ne l'ai pas dans mon Excel sous W10). En gros pouvoir utiliser le QueryDF sous ADODB.

Merci d'avance pour votre aide .

Le 28/04/2021 à 15:08

Dysorthographie: J'ai appliquée tes conseil et ai pu me co à ma database avec sucée.

Quelle est la prochaine étape ? Deplus quelle est la différence entre MySQL Workbench et manager ?

Henry27: A quoi sert ton code exactement ?

Le 28/04/2021 à 18:55

bonjour,

nous allons faire une connexion à la base de données dans Excel VBA!

Sub test()
Const Server = "LocalHost", Port = "3306", DataBase = "Bilant Carbonne", User = "root", Password = "XXXXX"
With CreateObject("ADODB.Connection")
    .Open "Driver={MySQL ODBC 8.0 Unicode Driver};Server=" & Server & ";Port=" & Port & ";Database=" & DataBase & ";User=" & User & ";Password=" & Password & ";"
    .Close
End With
End Sub

Workbench c'est

MySql et ça appartient à Oracle et

manager c'est Sql Server et ça appartient à Microsoft?

pour ce qui concerne Henry27 il c'est incrusté sur ton poste pour un problème qui le concerne et pour le coup rien à voir et en plus sa base est purement Oracle oublis il à ouvert une discussion !

Le 28/04/2021 à 21:48

Alors j'ai tenté la connexion mais sans succès. Je me demande si ce n'est pas un problème de bibliothèque, voici celle que j'ai utilisé pour mon lancement:

Le 28/04/2021 à 21:54

Tu utilises une version Excel 32 ou 64 bits?

Le 29/04/2021 à 11:26

J'arrive pas à accéder à cette information mais j'ai un système type 64 bit donc l'Excel qui va avec , je suppose. Je dois passé au 32 bit ?

Le 29/04/2021 à 11:47

Bonjour,

en fait tu peux, et c'est mon cas ,avoir un système d'exploitation 64Bits et un Excel 32bits!

cette image pour te montrer qu'il y à deux type de connecteur MySql ODBC un en 64 et un autre en 32 bits!

en fonction de ton Excel 32/64 il faut avoir le bon connecteur! ton message d'erreur tant à prouver que tu n'a pas la bonne version ODBC!

je t'avoue que j'ai installer MySql sur ma machine juste pour pouvoir te répondre er je me suis confronter au même problème que toi et j'ai ramé pour le faire fonctionner sur Excel!

je t'invite à télécharger les deux connecteur MySql 32 et 64!