Accéder à une Database SQL via un code VBA

Bonjour,

il faut sélectionner l'onglet pilote odbc

J'ai pas les même driver que toi .

pour une raison que j'ignore tu n'as pas télécharger le connector ODBC Mysql!

https://dev.mysql.com/get/Downloads/Connector-ODBC/8.0/mysql-connector-odbc-8.0.24-win32.msi

J'ai télécharger la version complète.

Il faut absolument télécharger installer du connector ODBC

Il n'est pas fourni dans la version complète

Mais je l'ai installer mille fois ! La version typical et complète !

Oracle ne livre pas le connecter odbc mysql dans la typical ou complète il faut le télécharger à part d'où le lien !

j'ai télécharger la compète et les deux connector ODBC 32/64 bits

Mais je ne comprend pas j'ai télécharger ce doc depuis votre lien :

et quand je reclique sur ton lien, voila ce qu'il me propose :

je ne comprend pas car il n'apparait dans la liste de ton gestionnaire ODBC!

Tu parle de la liste : pilote ODBC, dans ODBC Source?

oui les pilotes ODBC

perso j'ai installer Mysql et les deux connecteur ODBC et c'est tout!

Tu n'as rien télécharger d'autre auparavant ? Tu connais teamviewer ?

j'utilise anydesk avec le confinement teamviewer à considérer que je l'utilisait à titre professionnelle et veut de la tune!

i faut aller des le paramètres suprimer les connector ODBC MYSQL et re tenter de les réinstaller!

J'ai installer et désinstaller un milliard de truc et voici ce que j'obtiens :

Pourtant cela ne change rien.

bonjour,

et rien en 32Bits?

Là il n'y a pas grand chose.

Alors j'ai retélécharger le ficher et voila ce que ça donne:

Quant au code il me montre maintenant ce msg d'erreur

bonjour,

on vas faire un essai avec le ODBC 32!

1

2

3

4

Voila j'ai suivi les étapes que tu m'as conseillé, cela fonctionne:

et ton programme n'affiche plus de message d'erreur t'es l'meilleur !

J'utilise un code pour modifier ma base de donnée mais sans succès ou réaction de Visual basic :

Function Connection()
   Dim source As String, location As String, user As String, password As String, mysql_driver As String, database As String
    Dim requete As String
    source = "MySQL"
    location = "localhost"
    user = "root"
    password = ""
    database = "monsite"
    mysql_driver = "MySQL ODBC 8.0 ANSI Driver"

    'Build the connection string
    Dim connectionString As String

    connectionString = "Driver={" & mysql_driver & "};Server=" & location & ";Database=" & database & ";UID=" & user & ";PWD=" & password & ""

    'Create and open a new connection to the selected source
    Set OpenConnection = New ADODB.Connection
    OpenConnection.CursorLocation = adUseClient
    Call OpenConnection.Open(connectionString)
    requete = " CREATE DATABASE IF NOT EXISTS `vbamysql` DEFAULT CHARACTER SET utf8 COLLATE utf8_general_ci;" & _
            "USE `vbamysql`;" & _
            "CREATE TABLE IF NOT EXISTS `voitures` (" & _
            "`id` INTEGER NOT NULL auto_increment," & _
            "`marque` VARCHAR(25) NOT NULL," & _
            "`modele` VARCHAR(25) NOT NULL ," & _
            "`cv` INTEGER," & vbCrLf & _
            "PRIMARY KEY (`id`)," & _
            "UNIQUE (`modele`)" & _
            ") ENGINE = InnoDB ;"

End Function

Sub Macro1()
Connection
End Sub