Chercher enregistrements semblables

Question

Bonjour,je travaille sous ado,vb6,et je veux par exemple chercher par nom un certain enregistrement,si par exemple j'ai plusieurs enregistrements qui ont le meme nom,ma recherche s'arrête au premier qu'elle trouve identique à ce qu'on cherche,comment puis je faire pour passer aux autres enregistrements  grâce à un msgbox vbokno,??
Merci d'avance et j'espere recevoir vos idées et suggestions

cs_loulou69 · Answer

Bonjour

je propose ceci pour une base Sql Server : à adapter

Sub ParcourirEnregistrements( serv, log,pwd, db,  table, param)

    Dim ch_conn As String
    Dim objRS
    Dim objConn
    Dim SQL
    Dim iRet as integer

    ch_conn = "driver={SQL Server};server=" & serv & ";uid=" & log & ";pwd=" & pwd & ";database=" & db
    Set objConn = CreateObject("ADODB.Connection")
    Set objRS = CreateObject("ADODB.RecordSet")
    objConn.Open ch_conn, "", ""
    SQL = "select * from " & table & "like '%" & param & "%'"
    objRS.Open SQL, objConn
    iRet= vbYes
    while not objRS.EOF and iRet=vbYes
      iret= MsgBox objRS.Fiels(0), vbYesNo
      objRS.MoveNext
    Wend
End sub

cs_lebienestrare · Answer

Bonjour,merci infiniment pr ton code,ça a marché ,


juste un petit truc,c'est que ça parcourt toute la liste,et ne s'arrête pas juste aux noms que je veux!!


Merci

Chercher enregistrements semblables

2 réponses

Votre réponse

Discussions similaires