Discussion :

[morgan47]

Bonjour,
je débute avec les base de données et j'ai un code qui permet d'ajouter une nouvelle entrée a une table.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Command2_Click()
 
sql = "select * from client" 
Set rs = db.OpenRecordset(sql, dbOpenDynaset) 
rs.AddNew 
 
rs.Fields("nom") = nom.Text
rs.Fields("prenom") = prenom.Text
 
rs.Update 
rs.Close
ok
End Sub

Mais je voudrai vérifier avant d'enregistrer que le nom et le prénom ne sons pas déjas entré dans la table.
je ne voit pas comment je peut faire ça.
quelqu'un aurait des indice
merci d'avance

[colooo]

tu peux faire une requete du genre "select nom from CLIENT where nom = " & nom.text
et ensuite voir le nombre de ligne retournee dans ton record set

tu peux aussi utiliser une procedure stockee que tu auras faites dans ta base (mais ca doit etre bien plus chiant je pense)

[morgan47]

d'accord merci de ta réponce.
mais je ne sais pas comment on compte le nombre d'enregistrement trouvé.

[sovo]

pour compter le nombre d'enregistrements c'est tout simplement

rs.recordcount qui te renvoie le nombre total d'enregistrements.

[jacma]

Mais je voudrai vérifier avant d'enregistrer que le nom et le prénom ne sons pas déjas entré dans la table.

Tout d'abord, pourquoi le nom ET le prénom? Le nom peut s'expliquer (et encore...), mais il peut y avoir plusieurs noms pour le même prénom.

Ceci étant, tu pourrais utiliser la méthode Find. Ou si tu as accès à la base, déclarer une clé composée (nom et prénom). Ce serait sans doute la meilleure des approches si elle t'est possible.

[morgan47]

voila je me suis dépatouillé et j'ai ce code maintenant qui marche impec.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
sql = "select * from client Where nom = '" & nom.Text & "' and prenom = '" & prenom.Text & "' "
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
zero = rs.RecordCount
rs.Close
Set rs = Nothing
 
If zero <> 0 Then
MsgBox "une entrée similaire existe déjasé"
Exit Sub
End If