Communication entre EXCEL et une base de donnée MYSQL

Version imprimable

Bonjour,

J'ai une base de données MySQL:
TABLE actions ( avec 13 champs );
Et j'ai réaliser une macro de test sous excel 2007 en utilisant SQLrequest de XLODBC.XLA:
Code:

1 2 3 4 5 6 7 8 9 Sub SQLtest() r = 7 With Worksheets("Test") queryString = "SELECT * FROM actions" Worksheets("test").Cells(1, 1) = queryString False) BD_array = SQLRequest("DSN=Bidule_actions", queryString, , 2, False) .Range(.Cells(2, 1), .Cells(14, 14)) = BD_array End With End Sub
Seulement cette librairie et cette fonction ne sont plus mis à jour, je voudrais donc les remplacer pour cela d'après mes recherches, je voit deux possibilitées:

- Intégrer l'api c mysql libmysql.dll à excel pour remplacer SQLRequest mais le problème ici est que je ne sais pas comment intégrer cette dll à excel.

- Ou bien utilisé ADO mais j'ai le même problème comment l'utilisé sous excel ?

J’espère avoir assez détailler mon problème et je suis donc preneur de toutes les informations que vous avez (j'ai évidemment déjà effectuer un certain nombre de recherche internet mais rien ne m'a paru très clair) Merci.

11/04/2013, 09h32
Invité

bonjour, regarde ça

http://www.developpez.net/forums/sho...01&postcount=6

Merci pour le lien seulement j'ai une erreur au niveau de

Code:

Dim Con As New ADODBRD

Citation:

Compile error:
User-defined type not defined

J'avais pourtant fais un test simple pour vérifier que j'avais bien inclut ADO qui marchait nickel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub RequeteClasseurFerme_Excel2007()
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
    Dim cellule1 As String
 
    'Définit le classeur fermé servant de base de données
    Fichier = "C:\Documents and Settings\Book1.xlsx"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "Sheet1"
 
    Set Cn = New ADODB.Connection
 
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With
 
        texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
        Set Rst = New ADODB.Recordset
        Set Rst = Cn.Execute(texte_SQL)
    'Ecrit le résultat de la requête dans la cellule A2
        Range("A2").CopyFromRecordset Rst
 
    Cn.Close
    Set Cn = Nothing
 
End Sub

ADODBRD c'est une class tu n'a pas besoin de la référence ado car elle est généré par creatobject!
tu dois intégrer la class dans ton projet
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim cnx As New ADODBRD cnx.TYPEBASE= '1 - ODBC '2 - ORACLE '3 - ACCESS 2012 '4 - ACCESS 2000 '5 - ACCESS 97 '6 - SQL SERVER '7 - SQL SERVER 2005 Express '9 - SQLite '10 - SQLite3 '11 - MySQL cnx.Fichier = "c\mdb\base.mdb" 'pour autre cnx.User = "moi" cnx.PassWord = "****" cnx.Server = "192.168." cnx.BASE = "mabase"

11/04/2013, 15h20
Fallis

Oui merci je ne l'ai vu qu'après et donc en le déclarant comme une classe cela marche désolé de ne pas avoir fait attention et merci beaucoup donc maintenant grâce à vous je peux me connecter à mon serveur MySQL avec ADO, maintenant je voudrais par exemple afficher le contenu de ma table actions sous Excel comme je le faisais avec SQLRequest est-ce possible à l'aide de votre code (je suis entrain de l'étudier plus en détail maintenant que j'arrive à l’exécuter) ?

PS : il y a une petite erreur dans les commentaire pour une connexion à une base MySQL c'est 11 et non 12.

Citation:

PS : il y a une petite erreur dans les commentaire pour une connexion à une base MySQL c'est 11 et non 12.

oui je m'en suis aperçu mais trop tard car j'avais posté dans mon
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sql = "SELECT NomPrenomAge.* FROM NomPrenomAge;" Set Rec = con.OpenRecordSet(Sql) Dim wrk As Workbook Set wrk = Application.Workbooks.Add 'insert les en-tetes For I = 1 To Rec.Fields.Count wrk.Sheets(1).Cells(1, I).Value = Rec.Fields(I - 1).Name Next I 'Ajout des données à partir de A2 wrk.Sheets(1).Range("A2").CopyFromRecordset Rec
http://www.developpez.net/forums/d13...l/#post7175488

11/04/2013, 17h06
Fallis

Merci beaucoup je met le sujet en résolu :ccool: et j'espère que je ne m'interrogerais pas sur un nouveau problème juste après :aie: