• Home
 · 
• Miscellaneous
 · 
• string searching into recordset

string searching into recordset

string searching into recordset

Rate string searching into recordset

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

     'rsown is record set name
     rsown.MoveFirst        
     compbare = vbBinaryCompare
     While rsown.EOF = False
          Position = InStr(Position + 1, rsown.Fields("emp_name"), txtname, bTextCompare)
          If Position > 0 Then
               Call toload1
               Exit Sub
          Else
               rsown.MoveNext
          End If
     Wend
end sub