ma requete sql ne passe pasRésolu

Question

Maintenant que je n'ai plus de porbleme de connection a ma base MySQL, c'est mes requettes qui me pose probleme, voila qd j'ouvre un form je voudrais afficher un tableau avec toutes les valeur de ma table.

voici mon code:

Private Sub Form_Load()

    ' Déclaration des objets

    Dim ws As Workspace

    Dim cn As Connection

    Dim strConnect As String

    Dim strSQL As String

    Dim rs As Execute

    

    'Création de la liaison

    Set ws = DBEngine.CreateWorkspace("ODBCWorkspace", "admin", "", dbUseODBC)

    Set cn = ws.OpenConnection("", , , "ODBC;DSN=concept;Database=savconcept;UID=root;PWD=")

    

    

    ' Pour selectionner dans ma table

    sqlquery = "SELECT * FROM Cp"


    'Récupération des résultats sous forme de tableau

    Set rs = cn.Execute(sqlquery)

    Do While Not rs.EOF

          Valeur1 = Trim(rs("Champs1"))

          Valeur2 = Trim(rs("Champs2"))

          Me.Print Valeur1 & " " & Valeur2

          rs.MoveNext

    Loop

End Sub

mais quand je l'execute j'ai le message d'erreur suivant:
---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

User-defined type not defined
---------------------------
OK   Aide   
---------------------------

et il me selectionne en gris:
Dim rs As Execute

Merci pour votre aide

tbbuim1 · Accepted Answer

Dim rs as New ADODB.Recordset
C'est un recordset pas un execute, execute est une commande du recordset...
Tu fais une recherche sur connexion ADO, tu trouveras ton bonheur
TBBUIM

dkvince · Answer

OK c'est cool, merci beaucoup

yuri1961 · Answer

Salut! 
Tu travailles avec DAO, n'est-ce pas?
Alors j'ai change un peu ton code chez moi ca marche
j'ai suppose que les champs 1 et 2 sont strings

' Déclaration des objets
    Dim ws As Workspace
    Dim cn As Connection
    Dim strConnect As String
    Dim strSQL As String
    Dim rs As Recordset
    Dim sqlquery$, valeur1$, valeur2$
    'Création de la liaison
    Set ws = DBEngine.CreateWorkspace("ODBCWorkspace", "admin", "", dbUseODBC)
 Set cn = ws.OpenConnection("", , , "ODBC;DSN=concept;Database=savconcept;UID=root;PWD=")


     
    ' Pour selectionner dans ma table
    sqlquery = "SELECT * FROM Cp"


    'Récupération des résultats sous forme de tableau
     Set rs = cn.OpenRecordset(sqlquery)
    Do While Not rs.EOF
          valeur1 = Trim(rs("Champs1"))
          valeur2 = Trim(rs("Champs2"))
          MsgBox valeur1 & " " & valeur2
          rs.MoveNext
    Loop

dkvince · Answer

Merci, ca fonctionne, 
il est vraiment bien ce forum

Ma requete sql ne passe pas

4 réponses

Votre réponse

Discussions similaires