Sql : enregistrement existe ?Résolu

Question

Bonjour,
Alors voila j'aimerais savoir si un enregistrement existe ou pas dans ma table ! je suis aller voir sur le forum vbfrance et j'ai trouver sa :
http://www.vbfrance.com/forum.v2.aspx?id=330167
mais je n'est pas compri comment sa marcher :
moi j'ai ceci :

Set db = OpenDatabase(App.Path & "\Efd97.mdb")
sql = "select * from Materiels where Nom=" & Text1.Text
rs = db.OpenRecordset(sql).
 If  rs.EOF Then
    rs.Close
....
j'ai essayer de faire comme ils disent mai mon prog s'arrete &#224; rs = db.OpenRecordset(sql).
Savez vous ou est l'erreur ? :)
merci d'avance et bonne continuation a tous !!!!

cs_phil23 · Accepted Answer

Dim db As DAO.Database
Dim sql As String
Dim rs As DAO.Recordset


Set db = OpenDatabase(App.Path & "\Efd97.mdb")
sql = "select * from Materiels where Nom='" & Text1.Text & "'"


Set rs = db.OpenRecordset(sql, dbOpenDynaset)

If rs.EOF Then
    MsgBox "Nom introuvable."
Else
    MsgBox "Nom trouv&#233;."
End If


rs.Close

cs_Booster · Answer

Ps : Voici le message d'erreur : Utilisation incorrect de la propri&#233;t&#233;

Tuning Max · Answer

voil&#224; ce qu moi j'utiliserais, j'esp&#232;re que cela pourra t'aider

Dim rs As DAO.Recordset, Db As DAO.Database, Param As String

Param = 3272 ' tu met ici les param&#232;tres de selection
Set Db = CurrentDbSet rs Db.OpenRecordset("SELECT * FROM tblClient&#232;le WHERE RefClient " & Param & "", dbOpenDynaset)
' Test l'existance d'un enregistrement dans le recordset ouvert ci dessus
 If rs.EOF Then
    rs.Close
 Else:
    MsgBox "Le nom du client est : " & rs.Fields("Nom").Value
 End If


'Lib&#233;ration des objets
rs.Close
Db.Close
Set rs = Nothing
Set Db = Nothing

cs_Booster · Answer

phil23 je te remerci au meme moment ou j'ai vu ton poste je me suis dit "Hann les guillemet" ^^ Je te remercie ;) et bonne continuation a tous !

Sql : enregistrement existe ?

4 réponses

Discussions similaires