Discussion :

[david87]

bonjour,

je n'arrive pas me connécter a la base access via un bouton d'un formulaire

voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Dim bds As DAO.Database, qdf As QueryDef
    Dim re As DAO.Recordset
    Dim str As String
 
    'on ouvre la base de données
    Set bds = OpenDatabase("D:\David\base\ORGC.mdb")
    str = "SELECT technicien.mot_de_passe FROM technicien WHERE (((technicien.id_technicien)='3'));"
    Set re = bds.OpenRecordset(str)
    MsgBox (re.Fields(mot_de_passe).Value)

il plante sur la ligne

Code :

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

Set re = bds.OpenRecordset(str)

et dit "type de donnée incompatible dans l'expression du critère"

aidez moi SVP
ca fait 4 h que je n'avance pas

merci

David

[zazaraignée]

Si ton critère est un entier (numeric), tu n'as pas besoin de le mettre entre apostrophes. Il attend peut être un nombre comme identifiant de ton technicien.

[david87]

exacte c'etait bien un nombre mais ca ne fonctionne toujours pas

Code :

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

1
2
3
4
5
6
7
8
9
Dim bds As DAO.Database, qdf As QueryDef
    Dim re As DAO.Recordset
    Dim str As String

    'on ouvre la base de données
    Set bds = OpenDatabase("D:\David\base\ORGC.mdb")
    str = "SELECT technicien.mot_de_passe FROM technicien WHERE (((technicien.id_technicien)=3));"
    Set re = bds.OpenRecordset(str, dbOpenDynaset)
    MsgBox (re.Fields(technicien.mot_de_passe).Value)

il plante a la ligne en gras et me dit "Objet requis"
et n'affiche rien

[zazaraignée]

Ha oui! je crois bien que tu dois créer l'objet RecordSet... C'est ta déclaration qui est bancale (si je me souviens bien...)

Code :

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

Dim re As New DAO.Recordset

si ça marche pas tu dis.

Il y a aussi les Tutoriels qui peuvent t'aider.

[david87]

Code :

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

Dim re As New DAO.Recordset

non ca ne marche pas ca me fait une erreur de compliation avec le new

le tuto je m'en suis inspiré pour écrire ca mais la je ne vois pas ou est mon erreur

[Invité]

Bonjour

Dans

Code :

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

MsgBox (re.Fields(technicien.mot_de_passe).Value)

enlève le mot technicien pour voir, et enlève les parenthèses autour de l'ensemble.

Starec

[david87]

merci pour votre aide ca marche casiment !

mais maintenant il me dit " erreur d'execution '3734'
"cette base est dans un état empéchant d'etre ouverte ou verouillée"

alors que ce programme est lancé via un bouton d'un formulaire de ma base access