VB/ACCESS erreur syntaxe dans expression

**doudou57** · 11/07/2008, 11h14

Bonjour tout le monde!!!
Je suis sous VB6 accedant à une bdd avec access. J'ai pas l'habitude d'access...
Voila je ne trouve pas réponse à mon probleme, j'ouvre une requete dans mon recordset, la syntaxe me semble bien est pourtant...il me dit

"erreur de syntaxe dans la date dans l'expression 'id_PDA=#IPHONE'.
On dirait qu'il arrive pas à acceder aux données de mon champ id_PDA.
Comprend pas trop c'est pourtant bien écrit.
Voici le code :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Form_Load()
 
'-----connexion base de donnée ACCESS-----------
 Set c = New ADODB.Connection
    c.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = M:\PERSO\bd1.mdb"
 
    c.Open
            '-----Instanciation recordset
            Set rspda = New Recordset
            Set rshelppda = New Recordset
 
 
            '----execute requete
            rspda.Open "select * from PDA ", c, adOpenStatic
 
                    '----si table pas vide afficher champ
                    If Not rspda.EOF Or Not rspda.BOF Then
 
                        '-----remplissage dataliste des pda par libelle et enregistrement par colonne
                        Datalistpda.ListField = "PDA_libelle"
                        Datalistpda.BoundColumn = "id_PDA"
 
                        Set Datalistpda.RowSource = rspda
                        rshelppda.Open "select Help_Libelle from Helpdesk where id_PDA=" + CStr(rspda!id_pda), c, adOpenStatic
                            If Not rshelppda.EOF Or Not rshelppda.BOF Then
 
                                '----remplir la grille des erreurs
                                Set Datagridpda.DataSource = rshelppda
 
                    Else
                    MsgBox "aucun pda dans la table"
 
        Unload Me
 
                            End If
 
                    End If
 
End Sub

Qu'en pensez vous?

**ThierryAIM** · 11/07/2008, 12h10

Code :

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

rshelppda.Open "select Help_Libelle from Helpdesk where id_PDA=" + CStr(rspda!id_pda), c, adOpenStatic

je ne comprends pas trop cette ligne

explique un peu mieux comment ça doit fonctionner

**doudou57** · 11/07/2008, 12h47

Je remet mon code, je m'étais trompété, je n'avais pas mis au bon endroit mon recordset.

General declaration

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Dim rspda As Recordset
Dim rshelppda As Recordset
Dim c As ADODB.Connection
 
 
Private Sub Datalistpda_Click()
 
    If rshelppda.State = adStateOpen Then
    rshelppda.Close
    End If
 
rshelppda.Open "select*from Helpdesk where id_PDA=" + DataListauteurs.BoundText, c, adOpenStatic
 
 
Set Datagridpda.DataSource = rshelppda
 
End Sub
 
 
Private Sub Form_Load()
 
'-----connexion base de donnée ACCESS-----------
 Set c = New ADODB.Connection
    c.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = M:\PERSO\bd1.mdb"
 
    c.Open
            '-----Instanciation recordset
            Set rspda = New Recordset
            Set rshelppda = New Recordset
 
 
            '----execute requete
            rspda.Open "select * from PDA ", c, adOpenStatic
 
                    '----si table pas vide afficher champ
                    If Not rspda.EOF Or Not rspda.BOF Then
 
                        '-----remplissage dataliste des pda par libelle et enregistrement par colonne
                        Datalistpda.ListField = "PDA_libelle"
                        Datalistpda.BoundColumn = "id_PDA"
 
                        Set Datalistpda.RowSource = rspda
 
 
 
                    Else
                    MsgBox "aucun pda dans la table"
 
        Unload Me
 
                            End If
 
                    End If
 
End Sub

j'ai une datalist qui recupere les données de la table PDA et affiche les libelles.
Ensuite j'ai un datagrid qui me permet d'afficher les erreurs propres à ce champ qui sont dans une autre table (la table "erreur"). En selectionnant un type de PDA dans la datalist je veux faire apparaitre la table "erreur" propre au type de PDA.
J'ai donc un recordset pour la datagrid qui va chercher dans la table les erreurs en fonction du type de pda.

Il me dit maintenant Un objet et requis..
quen pensez vous?

**ThierryAIM** · 11/07/2008, 13h03

Envoyé par doudou57

Il me dit maintenant Un objet et requis..
quen pensez vous?

ok, mais où ?
ici je suppose ?

Code :

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

    If rshelppda.State = adStateOpen Then

si rshelppda n'a jamais été créé, il n'existe pas
il faut gérer l'erreur

de plus la concaténation en VB, c'est avec & et non pas +

et pour finir prefixe tes déclarations avec ADO, même si c'est implicite, c'est plus correct (ADO.recordset) et evitera des confusions

et ça fait 2 fois que je rajoute les balises de code, alors merci d'y penser la prochaine fois. c'est le bouton # au dessus du cadre de saisie

**doudou57** · 11/07/2008, 13h38

ok merci du conseil, je vais reflechir a tout ça!
Je ferais attention pour les balises de code, c ma premiere fois....

**doudou57** · 15/07/2008, 11h32

Bonjour,

Je n'arrive pas a faire afficher ma table dans mon datagrid pourriez vous me dire qu'est ce qu'il me manque?

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Dim rspda As Recordset
Dim rshelppda As ADODB.Recordset  '----RS de Helpdesk
Dim rsidpda As ADODB.Recordset    '----RS de PDA
 
Dim c As ADODB.Connection
 
Private Sub Datalistpda_Click()
 
     '----instanciation recordset PDA recupération identifiant pour rechercher les erreurs
    Set rsidpda = New Recordset
    rsidpda.Open ("select * from PDA "), c, adOpenStatic
 
    '----instanciation recordset HELPDESK
    Set rshelppda = New Recordset
    rshelppda.Open ("select * from Helpdesk "), c, adOpenStatic
 
    '----boucle de recherche en fonction du type de pda
    rsidpda.MoveFirst
    Do While Datalistpda.BoundText <> rsidpda!id_PDA
    rsidpda.MoveNext
    Loop
 
    If Not rshelppda.EOF Or Not rshelppda.BOF Then
        Set Datagridpda.DataSource = rshelppda
        Else: MsgBox "erreur"
        End If
 
End Sub
 
 
Private Sub Form_Load()
 
'-----connexion base de donnée ACCESS-----------
 Set c = New ADODB.Connection
    c.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = M:\PERSO\bd1.mdb"
 
    c.Open
            '-----Instanciation recordset
            Set rspda = New Recordset
 
            '----execute requete
            rspda.Open "select * from PDA ", c, adOpenStatic
 
                    '----si table pas vide afficher champ
                    If Not rspda.EOF Or Not rspda.BOF Then
 
                        '-----remplissage dataliste des pda par libelle et enregistrement par colonne
                        Datalistpda.ListField = "PDA_libelle"
                        Datalistpda.BoundColumn = "id_PDA"
                        Set Datalistpda.RowSource = rspda
 
                    Else
                    MsgBox "aucun pda dans la table"
 
        Unload Me
 
                    End If
 
End Sub

Pourriez vous me dire si l'ecriture du select est correct?
Je suis sous vb 6 et j'utilise une base de donnée access. Connexion ADODB.
Merci!

Code :

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

rshelppda.Open ("select * from Helpdesk where [Helpdesk].id_PDA= '& rsidpda!id_PDA &'"), c, adOpenStatic

**Delbeke** · 15/07/2008, 16h14

Tout dépend du type de champs id_PDA
S'il est de type numérique

Code :

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

rshelppda.Open ("select * from Helpdesk where [Helpdesk].id_PDA= " & rsidpda!id_PDA ), c, adOpenStatic

S'il est de type string

Code :

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

rshelppda.Open ("select * from Helpdesk where [Helpdesk].id_PDA= '" & rsidpda!id_PDA & "' "), c, adOpenStatic

S'il est de type date

Code :

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

rshelppda.Open ("select * from Helpdesk where [Helpdesk].id_PDA= #'" & Format(rsidpda!id_PDA,"mm/dd/yyyy") & "# "), c, adOpenStatic

**doudou57** · 16/07/2008, 08h54

Delbeke,

Je tiens a te remercier de tout ma gratitude!Tu enlever une belle epine du pied!

Mon code marche bien, je suis heureux! Si tu as le temps pourrais tu m'expliquer comment fonctionne la syntaxe?
Merci!J'aime comprendre ce que je fais...
Alex