پیدا کردن متن داخل تکست باکس [بایگانی]

fazelm

پنج شنبه 17 تیر 1389, 13:48 عصر

سلام من بادستور زیر متن تکست باکس رو توی بانک ام پیدا می کنم ولی مشکل اینجاست باید دقیقا متن داخل بانک رو توی تکست باکس نوشت ولی من می خوام اگر متن تکست باکس جزیی از نوشته داخل بانک هم بود اون رو پیدا کنه

Data1.Recordset.FindNext ("Name = '" & Text3.Text & "' ")

ameri110

پنج شنبه 17 تیر 1389, 18:12 عصر

باید ابتدا به یک حلقه هر فیلد رو داخل برنامه لود کنی
بعد ببینی که متن داخل تکست باکس در اون رشته هست یا نه
برای این کار میتونی حرف اول تکس باکس رو بگیری و همینطور یه حرف یه حرف، حرف های متن اصلی رو
هروقت هم که این دو مقدار با هم برابر شدند بری سراغ هر بعدی تکست باکس اما این بار باید حرف بعد رو با همون حرفی مقایسه کنی که بعد حرف مشابه در دو مقدار بوده
این کار را باید به تعداد حروف تکست باکس انجام بدی بعد اگر همه حرف ها به ترتیب وجود داشتند متوجه میشه که در اون فیلد دی بی اون رشته وجود داشته

fazelm

پنج شنبه 17 تیر 1389, 21:47 عصر

باید ابتدا به یک حلقه هر فیلد رو داخل برنامه لود کنی
بعد ببینی که متن داخل تکست باکس در اون رشته هست یا نه
برای این کار میتونی حرف اول تکس باکس رو بگیری و همینطور یه حرف یه حرف، حرف های متن اصلی رو
هروقت هم که این دو مقدار با هم برابر شدند بری سراغ هر بعدی تکست باکس اما این بار باید حرف بعد رو با همون حرفی مقایسه کنی که بعد حرف مشابه در دو مقدار بوده
این کار را باید به تعداد حروف تکست باکس انجام بدی بعد اگر همه حرف ها به ترتیب وجود داشتند متوجه میشه که در اون فیلد دی بی اون رشته وجود داشته

این کار که خیلی ابتدایی هست
توی وی بی دات نت یه چیز به نام rowfilter داره که این کار رو میکنه ولی توی وی بی 6 نمیدونم چیه

sajjad_india

پنج شنبه 17 تیر 1389, 23:20 عصر

نظر من بهتره از SQL دستور Like استفاده کنی . خیلی خوبه و توپ .....

parselearn

جمعه 18 تیر 1389, 00:13 صبح

نظر من بهتره از SQL دستور Like استفاده کنی . خیلی خوبه و توپ .....
من زياد با بانك كار نكردم
ولي خب اين دستور SQL هست

sqlStatment = _
"SELECT * " & _
"FROM tb_WebSite " & _
"WHERE " & FieldName & " LIKE '%" & Value & "%'"

محسن شامحمدی

جمعه 18 تیر 1389, 23:22 عصر

من زياد با بانك كار نكردم
ولي خب اين دستور SQL هست

sqlStatment = _
"SELECT * " & _
"FROM tb_WebSite " & _
"WHERE " & FieldName & " LIKE '%" & Value & "%'"

این کد خیلی توپه ولی مشکل اصلی اینه که sql توی Vb6 فارسی ساپورت نمی کنه
تنها راه عملی ولی نسبتا کند
از اول تا آخر دیتابیس رو بخون
هر فیلد رو مقدارشو بگیر و با تابع instr ببین متن شما در این متقیر هست یا نه اگه بود خیر و برکت:لبخند: اگر هم نبود هی چی
برو به رکورد بعدی