Pb de lecture de base de donnée access en utilisant VB6 !
Bonjour,
Dans mon IHM j'ai mis des "CheckBox", j'arrive parfaitement a ecrire les selections dans ma bes de de donnée Access (Information declaré en "Oui/Non dans access). Mais par contre inpossible de relire les informations de mes selection, j'ai une erreure de "proprité" pourquoi et comment resoudre cela ?
Merci pour votre aide.
Sébastien
Code:
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
| '=========================
'===Creation de la base===
'=========================
Private Sub Command1_Click()
Dim db As Database
Dim rs As Recordset
Dim sql As String
Set db = OpenDatabase(App.Path & "\BDD_97.mdb")
'On séléctionne tous les champs de la table
sql = "select * from Table1"
'on est bien en mode écriture (dbOpenDynaset)
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
'Pour ajouter un enregistrement
rs.AddNew
rs.Fields("Nom") = TxtNom.Text
rs.Fields("Prenom") = TxtPrenom.Text
rs.Fields("Age") = TxtAge.Text
rs.Fields("Dossier") = TxtNumDossier.Text
'''''''''''ECRITURE DANS LA BASE OK
rs.Fields("toto") = Chktoto.Value
rs.Fields("tata") = Chktata.Value
'Une fois les valeurs définies, on met à jour
rs.Update
rs.Close
MsgBox "Création de la Base Réussie", vbInformation, "Enregistrement..."
End Sub
'========================
'===Lecture de la base===
'========================
Private Sub Command2_Click()
Dim db As Database
Dim rs As Recordset
Dim sql As String
Set db = OpenDatabase(App.Path & "\BDD_97.mdb")
'On séléctionne tous les champs de la table
sql = "select * from Table1"
'Remarqué la présence de ' obligatoire pour le bon fonctionnemnt
sql = "select * from Table1 where Nom='" & TxtNom.Text & "' "
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
'Verification si information est dans la base
If rs.EOF = False Then
TxtDossier.Text = rs.Fields("Auto")
TxtNom.Text = rs.Fields("Nom")
TxtPrenom.Text = rs.Fields("Prenom")
TxtAge.Text = rs.Fields("Age")
TxtNumDossier.Text = rs.Fields("Dossier")
'''''''''RELECTURE DE TOTO ET TATA MARCHE PAS ???????
Chktoto.Value = rs.Fields("toto")
Chktata.Value = rs.Fields("tata")
Else
MsgBox "Pas d'information dans la Base", vbCritical, "Attention"
Exit Sub
End If
'dbOpenSnapshot à la place du dbOpenDynaset en mode "écriture"
sql = "select * from Table1 where Nom='" & TxtNom.Text & "' and Age='" & TxtAge & "' "
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
TxtDossier.Text = rs.Fields("Auto")
TxtNom.Text = rs.Fields("Nom")
TxtPrenom.Text = rs.Fields("Prenom")
TxtAge.Text = rs.Fields("Age")
TxtNumDossier.Text = rs.Fields("Dossier")
Chktoto.value = rs.Fields("toto")
Chktata.Value = rs.Fields("tata")
MsgBox "Chargement des Valeurs Réussi", vbInformation, "Chargement..."
'Une fois les valeurs définies, on met à jour
rs.Close
End Sub |
