Discussion :

[4get9]

bonjour à tous,

ça fait un bail que je n'avais plus touché à Access ou plutôt que je n'avait plus touché à du VBA et je me retrouve devant un mur :

J'essaye simplement de déclarer un Recordset basé sur une requête SQL, et Access 2016 m'envoie bouler à chacune de mes tentatives (j'ai googlé et quoi que je trouve cela ne fonctionne pas)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
' Declarations
Dim StrSQL  As String
Dim FKW_Rst As Recordset
 
' Requete SQL   
StrSQL = "SELECT KWName FROM Keywords WHERE UnitId = 1 And Type = 1 ORDER BY Line"
 
'Recordset :
Set FKW_Rst = CurrentDb.OpenRecordset(StrSQL)

Rien qu'avec ce code j'ai une erreur 13 (incompatibilité de code)

j'ai vu ici qu'avec 2016, il n'y pas besoin de référence DAO

Mais bon j'ai essayé avec aussi sans succès (bon après c'est un peu le souk dans toutes les références possibles)

Quelqu'un pourrait me dire comment Microsoft a simplifié son truc ? Car moi je sèche là ! :/

Merci

[Paraffine]

As-tu essayé en déclarant ton Recordset avec une référence explicite à DAO, dans le genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim FKW_Rst As DAO.Recordset

Si tu recherche "Recordset" dans l'explorateur d'objets, il te dégote quoi ?

Cordialement,
Paraffine.

[4get9]

Bon ben j'ai trouvé une solution (c'est toujours comme ca)

j'ai ajouté la référence "Microsoft ActiveX Data Object 6.1 Library"
et modifié mon code ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim StrSQL  As String
    Dim FKW_Rst As ADODB.Recordset
    Dim cnn As ADODB.Connection
 
    StrSQL = "SELECT KWName FROM Keywords WHERE UnitId = 1 And Type = 1 ORDER BY Line;"
 
    Set cnn = CurrentProject.Connection
    Set FKW_Rst = New ADODB.Recordset
 
    FKW_Rst.Open StrSQL, cnn
 
    While Not FKW_Rst.EOF
        MsgBox FKW_Rst("KWName")
        FKW_Rst.MoveNext
    Wend
 
 
    FKW_Rst.Close

[Zekraoui_Jakani]

Dans ton instruction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

StrSQL = "SELECT KWName FROM Keywords WHERE UnitId = 1 And Type = 1 ORDER BY Line"

Tu dois être sûr que UnitId est numérique, sinon il faudra l'écrire autrement "WHERE UnitId = '" & 1 & "' And ". Idem pour Type = 1.

Par ailleurs, je soupçonne le nom "Type" utilisé comme nom de champ, d'être problématique car (mais je n'en suis pas sûr) il peut entrer en conflit avec les mots clés de l'application; pourquoi ne pas nommer ton champ "TypeDeChamp" par exemple ou n'importe quoi qui soit distinct des commandes Access.

[Zekraoui_Jakani]

Encore un détail qui pourrait être important: il faudra terminer ton code SQL par un ";" point-virgule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

StrSQL = "SELECT KWName FROM Keywords WHERE UnitId = 1 And Type = 1 ORDER BY Line;"

[4get9]

As-tu essayé en déclarant ton Recordset avec une référence explicite à DAO, dans le genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim FKW_Rst As DAO.Recordset

oui déjà essayé, ça ne fonctionne pas non plus

Si tu recherche "Recordset" dans l'explorateur d'objets, il te dégote quoi ?

Cordialement,
Paraffine.

"L'identification sous le curseur n'est pas reconnu"

[4get9]

Dans ton instruction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

StrSQL = "SELECT KWName FROM Keywords WHERE UnitId = 1 And Type = 1 ORDER BY Line"

Tu dois être sûr que UnitId est numérique, sinon il faudra l'écrire autrement "WHERE UnitId = '" & 1 & "' And ". Idem pour Type = 1.

Par ailleurs, je soupçonne le nom "Type" utilisé comme nom de champ, d'être problématique car (mais je n'en suis pas sûr) il peut entrer en conflit avec les mots clés de l'application; pourquoi ne pas nommer ton champ "TypeDeChamp" par exemple ou n'importe quoi qui soit distinct des commandes Access.

pas de souci sur le format des champs, la requête fonctionne parfaitement en elle même

pas idiot le cout du type, mais bon c'est contrôlé à la création de la table, donc ça passe. Je modifierai ça par contre pour plus de propreté

[4get9]

Encore un détail qui pourrait être important: il faudra terminer ton code SQL par un ";" point-virgule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

StrSQL = "SELECT KWName FROM Keywords WHERE UnitId = 1 And Type = 1 ORDER BY Line;"

j'avais justement testé sans pour voir...
Mais j'en mets toujours un sinon

[tee_grandbois]

Bonsoir,
quelles sont les références cochées ?

[Paraffine]

Oui, comme demande Tee_grandbois, tu as bien Microsoft Office 16.0 Access Database Engine Object Library dans les références du projet ?
Cela résoudra peut-être ton problème comme ici.
C'est très louche que l'explorateur d'objet ne te trouve pas Recordset !

Je ne pourrais pas faire le test, chez moi c'est vintage (97 et 2007).

Cordialement.

[4get9]

de base j'avais juste :
- Visual Basic for Application
- Microsoft Access 16.0 Object Library
- OLE Automation

et j'ai du coup rajouté Microsoft ActiveX Data Object 6.1 Library

je vais essayer le tiens Paraffine

Bon ben c'est bien ça, ça fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
StrSQL = "SELECT KWName FROM Keywords WHERE UnitId = " & Me.IdUnit & " And Type = 2 ORDER BY Line;"
    Set Rst = CurrentDb.OpenRecordset(StrSQL, dbopensnapshot)
 
    While Not Rst.EOF
        KeyWords = KeyWords & "<div>" & Rst("KWName") & "</div>"
        Rst.MoveNext
    Wend
    Rst.Close

Merci beaucoup !!!
Je vais utiliser cette syntaxe dont j'ai trop l'habitude