Connection Base de D et les Tables

**MeRc|LeSs** · 28/06/2006, 01h19

Salut je veux savoire se qui manque pour se code pour qu'il fonctionne bien , la table Agent a une relation avec une autre table est-ce je dois ouvrire les 2 tables? et changé la requétte ou qu'est ce qu'il 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
 
Public passe As ADODB.Recordset
Public conec As ADODB.Connection
 
Private Sub main()
On Error GoTo Fin
 
 Set conec = New ADODB.Connection
 Set passe = New ADODB.Recordset
 
conec.ConnectionString = (App.Path & "\Assurance.mdb")
conec.Provider = "microsoft.jet.oledb.4.0"
conec.CursorLocation = adUseClient
conec.Open
If conec.State = 1 Then conec.Close
conec.Open
 
frmmotpass.Show
Exit Sub
Fin:
MsgBox "Erreur n°:" & Str(Err.Number) & vbLf & Err.Description
End Sub
 
Public Sub pass()
passe.CursorType = adOpenDynamic
passe.CursorLocation = adUseClient
passe.LockType = adLockBatchOptimistic
passe.ActiveConnection = conec
passe.Source = "select * from Agent"
passe.Open
End Sub

Pour le formulaire frmmotpass : j'ai mit se code mais il marche pas :s

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
 
 
Dim X, c
 
Private Sub rcmdentrer_Click()
If txtagent.Text <> passe!pass And txtpass.Text <> passe!pass Then
c = c + 1
X = MsgBox("Mot de passe incorrect" & c & "/3", vbExclamation, "Attention")
txtagent = ""
txtpass = ""
txtagent.SetFocus
If c = 3 Then
MsgBox "Vous avez depasser le nombre d'essai, le programme va étre arrété!", vbInformation, "Essai éronné!"
Unload Me
End If
End If
If txtagent = passe!pass And txtpass = passe!pass Then
Unload Me
frmMenu.Show
End If
End Sub
 
 
Private Sub Form_Activate()
txtagent.SetFocus
 
End Sub
 
Private Sub Form_Load()
pass
c = 0
End Sub
 
Private Sub txtagent_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
rcmdentrer_Click
End If
End Sub