جستجو در Adodc1

[aleas2]

سلام خسته نباشید بنده میخوام توسط Adodc1 هر رکودی که اولش اونی که من داخل text1 وارد میکنم نمایش بده تعداد حروفی هم که داخل text1 وارد میکنم مشخص نیست مثلا داخل تکست وارد میکنم www.news تو بانک هر رکوردی اولش www.news هسته نمایش بده یا مثلا داخل تکست p30 هر رکوردی اولش p30 هسته نمایش بده چکار باید بکنم تو انجمن هم سرج کردم دوسه تا تاپیک در این مورد دیدم ولی خطا میداد کار نمیکردن

من از این کد استفاده میکنم ولی این کد باید کل رکوردی که میخواهی پیدا کنی وارد کنی نمیشه چند ا کلمه اول وارد کرد که پیدا کنه


a=text1.text
Adodc1.RecordSource = "select link from Table1 WHERE ((Table1.link)=" & "'" & Trim(a) & "'" & " )"
Adodc1.Refresh

[M.T.P]

Dim StrSearch As String
Dim StrSql As String
StrSearch = Trim(Text1.Text)
StrSql = "Select link From Table1 Where link ='" & StrSearch & "%'"
Adodc1.RecordSource = StrSql
Adodc1.Refresh

[aleas2]

سلام ممنون این کدی شما دادین کار نمیکنه
اینم همینی شما دادین بصورت سورس نوشتمش که ببینین دانلودش کنین توهمین ممنون میشم درستش کنین بهم بدین

دانلود (http://www.pic.iran-forum.ir/images/15fikthgo0gynogt2u07.zip)

[M.T.P]

درسته کلمه کلیدی Like جا افتاده:

Dim StrSearch As String
Dim StrSql As String
StrSearch = Trim(Text2.Text)
StrSql = "Select link From Table1 Where link like'" & StrSearch & "%'"
Adodc1.RecordSource = StrSql
Adodc1.Refresh

[aleas2]

بله الان درست شد ممنون