يه جستجوگر خوب كه با adodcو datagridg6 کار کند

[sinacomputer]

سلام
لطفا ممکن است نحوه نوشتن یه search را که با adodc و datagrid کار کند و نیز روی datagrid نتیجه را هایلایت کند را برای من بنویسید البته من از این کد استفاده می کنم که با adodc و datagrid جواب نمیده و فقط با data جواب میده هر چی هم باش سروکله زدم نشد.

متشکرم

[sinacomputer]

اينم كدش
Data1.RecordSource = "select*from phone where fname='" + Text1.Text + "'order by lname"
Data1.Refresh

[sinacomputer]

آقا يكي يه جوابي بده ديگه
آقا اشكان به دادم برس....

[sinacomputer]

آقا دمتون گرم خودم نوشتمش تموم كه شد ميزارمش تو سايت

[Mohandese_Javan]

سلام!
دوست عزيز با عرض معذرت! همون تيكه كد رو كه ياد گرفتي ميشه همينجا بزاري منم ببينم؟
ممنون! دمت گرم!

[sinacomputer]

اينم از كدش

[member.Adpersonel.Recordset.MoveFirst

If member.Option2.Value = True Then
s = finds.Text1.Text
s = "stdid='" + s + "'"
Else
s = finds.Text1.Text
s = "lname='" + s + "'"
End If
member.Adpersonel.Recordset.Find s
If member.Adpersonel.Recordset.EOF Then
r = MsgBox("!ÇØáÇÚÇÊ ãæÑÏ äÙÑ ãæÌæÏ äãíÈÇÔÏ", 48)
Text1.Text = ""
Text1.SetFocus
'find.Hide
Else
'Call print1(Adodc1.Recordset)
End If


member.DataGrid1.Refresh[/code]

[sinacomputer]

اينم از كدش

[member.Adpersonel.Recordset.MoveFirst

If member.Option2.Value = True Then
s = finds.Text1.Text
s = "stdid='" + s + "'"
Else
s = finds.Text1.Text
s = "lname='" + s + "'"
End If
member.Adpersonel.Recordset.Find s
If member.Adpersonel.Recordset.EOF Then
r = MsgBox("!ÇØáÇÚÇÊ ãæÑÏ äÙÑ ãæÌæÏ äãíÈÇÔÏ", 48)
Text1.Text = ""
Text1.SetFocus
'find.Hide
Else
'Call print1(Adodc1.Recordset)
End If


member.DataGrid1.Refresh[/code]