Connexion base access

**david87** · 23/04/2008, 11h27

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** · 23/04/2008, 14h40

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** · 23/04/2008, 15h36

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** · 23/04/2008, 15h55

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** · 23/04/2008, 16h02

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é · 23/04/2008, 16h04

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** · 23/04/2008, 16h13

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

Invité · 23/04/2008, 16h19

Re

Regarde si tu n'a pas un ficher .ldb (pas mdb, attention) qui traine avec le nom de ta base dans le même répertoire que ta base.

Supprimes le et recommence pour voir.

**david87** · 23/04/2008, 16h25

c'etait bien ca

mais il ne m'affiche toujours pas le mot de passe de mon technicien 3
(et il en a bien un c'est sur

je viens de vérifier )

il me dit "élément non trouvé dans cette collection"

Invité · 23/04/2008, 16h29

Bonjour

Essayes de remplacer par cela

Code :

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

1
2
3
str = "SELECT [mot_de_passe] FROM technicien WHERE [id_technicien]=3;"
    Set re = bds.OpenRecordset(str, dbOpenDynaset)
    MsgBox re("mot_de_passe").value

Starec

**david87** · 23/04/2008, 16h32

super ca marche ce coup ci

merci du coup de pouce
je ja vais pouvoir continuer a avancer

**david87** · 23/04/2008, 16h57

une derniere question et j'arrete

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
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 [mot_de_passe] FROM technicien WHERE [id_technicien]= " & Me.id_technicien.Value & ";"
    Set re = bds.OpenRecordset(str, dbOpenDynaset)
    'MsgBox Me.id_technicien.Value
 
    Dim a As String
    a = re("mot_de_passe").Value
    Dim b As String
    b = Me.id_technicien.Value
    Dim rep As Integer
    rep = System.String.Compare(a, b)
 
 
 
    If (rep = 0) Then
        DoCmd.OpenForm "F1", acNormal
    Else
        MsgBox "identifiant ou mot de passe incorrect"
    End If