coding for searching in vb6

[soilarmoon]

please help me..
i want know the coding searching..
how can find search coding in vb 6.0?

[AndreRet]

Soilarmoon,

Are you talking about searching specific data in a database?

Please tell us more in specifics on what you need to search for.

[abu taher]

need more information. what kind of search you want? from database, from text file or other?

[soilarmoon]

i want to know how to create a search code for ADODC??

[AndreRet]

Well, there is quite a few ways depending on WHAT you want to search for. Below is a few samples -

rs.Open "Select FirstName,LastName,Balance from Patients Where Balance > 0", cn, adOpenKeyset, adLockOptimistic
'Will search for a monetary value.

rs.Open "Select FirstName,LastName,Gender,City,ID from Patients Where Gender='Female' and City='Cape Town'", cn, adOpenKeyset, adLockOptimistic
'Will search for a gender or city

rs.Open "Select FirstName,LastName,FirstVisitDate from Patients Where FirstVisitDate >= DateValue('1/1/2009')", cn, adOpenKeyset, adLockOptimistic
'Will search for a specific date.

rs.Open "Select * from Patients Where left(FirstName,1)='E'", cn, adOpenKeyset, adLockOptimistic
'Will search for all names starting with "E".

rs.Open "Select FirstName,LastName,Diagnosis from Patients", cn, adOpenKeyset, adLockOptimistic
rs.Filter = "Diagnosis Like '*Stomach Pain*'"
'Will search for any name where either stomach or pain is in the data.

I hope this helps in searching for the correct data.

Happy coding.

[vbboy]

Hi soilarmoon, may also use this code from this site
http://visualbasic-source-code.com/visual-basic-6-categories/visual-basic-6

Hopefully it may help.

'Code
Function Search_Data()
On Error GoTo errHandler
Dim mSQL$
mSQL = “Select Code,Name,Address From Supplier Where Code Like ‘%” & text1 & “%’ Or Name Like ‘%” & text1 & “%’ ” & _
” Or Address Like ‘%” & t & “%’ Order by Name Asc ”
Adodc1.ConnectionString = ConStr
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = mSQL
Set dg1.DataSource = Adodc1
cmdOK.Enabled = True
Adodc1.Refresh
If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
cmdOK.Enabled = False
End If
Exit Function
errHandler:
MsgBox CStr(Err.Number) + Err.Description

End Function