ايران ويج

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

متشکرم

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

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

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

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

اينم از كدش

[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]

اينم از كدش

[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]