recordset.find HELP !!!

Question

Set table = New ADODB.Recordset

sql = "SELECT * FROM fabricants"

table.Open sql, bd

Call table.Find("nom ='" + Text1.Text + "'")

J'ai ensuite une erreur : l'ensemble de lignes ne prend pas le retour arrière.

Quelqu'un peut m'aider ???

dzeusse · Answer

fait dabord un moveFirst et ensuite lance ton .find

pat6521 · Answer

Coher dans référence projet
Microsoft ActiveX Data Objects 2.1 library

Met la variable connect en global tu pourras ainssi la réutiliser
partout dans ton programme

global connect As New ADODB.Connection

puis

connect .ConnectionString = "DSN=MaDSN;UID=LoginSgbd;PWD=PwdSgbd"
connect .open

puis
private sub MAProcedure()
dim MonRecordset as New ADODB.Recordset

sql = "SELECT * FROM fabricants"

MonRecordset .Open sql, connect

while MonRecordset .eof = false
   'traitement du recorset
   'N'oublie pas de traiter la valeur Null dans ton recordset
   ' ou ta requete
   if Text1.Text = MonRecordset ("MonChamp") then
      'Tu fais ton traitement
   end if
   MonRecordset .movenext
wend
MonRecordset .close

end sub
c'est tout

Recordset.find HELP !!!

2 réponses

Discussions similaires