جستجویی در برنامم قرار دادم که هم در متن و هم در تیتر درست عمل میکنه، اما برای هایلایت کلمه مورد نظر به مشکل خوردم
جسیجو در دیتابیس است
حاصل رو در یک لیست ویو نمایش میده
نمونه کد جستجو در تیتر
Sub Button1_Click
Dim cur10 As Cursor
Dim cursor1 As Cursor
Dim sql10 As SQL
Dim farakhani1 As Farakhani
If sql10.IsInitialized=False Then
sql10.Initialize(File.DirInternal,"behdasht.db",False)
End If
Dim num As Int
ListView1.Clear
farakhani1.SingleLineTitr("behdasht.db",sql10,cursor1,"SELECT * FROM ahadis WHERE titr LIKE '%" & ed.Text & "%'",ListView1,"titr","id")
num = cur10.rowcount
If num = 0 Then
ToastMessageShow("error",False)
Else
For i = 0 To cur10.RowCount-1
cur10.Position = i
ListView1.AddSingleLine(cur10.GetString("titr"))
Next
End If
End Sub
همه مطالب مورد نظرو خوندم اما در دیتابیس هایلایت نمیکنه
سوال
sedat 11
سلام و خسته نباشید خدمت دوستان
جستجویی در برنامم قرار دادم که هم در متن و هم در تیتر درست عمل میکنه، اما برای هایلایت کلمه مورد نظر به مشکل خوردم
جسیجو در دیتابیس است
حاصل رو در یک لیست ویو نمایش میده
نمونه کد جستجو در تیتر
Sub Button1_Click Dim cur10 As Cursor Dim cursor1 As Cursor Dim sql10 As SQL Dim farakhani1 As Farakhani If sql10.IsInitialized=False Then sql10.Initialize(File.DirInternal,"behdasht.db",False) End If Dim num As Int ListView1.Clear farakhani1.SingleLineTitr("behdasht.db",sql10,cursor1,"SELECT * FROM ahadis WHERE titr LIKE '%" & ed.Text & "%'",ListView1,"titr","id") num = cur10.rowcount If num = 0 Then ToastMessageShow("error",False) Else For i = 0 To cur10.RowCount-1 cur10.Position = i ListView1.AddSingleLine(cur10.GetString("titr")) Next End If End Subهمه مطالب مورد نظرو خوندم اما در دیتابیس هایلایت نمیکنه
راهنمایی کنید دوستان
ممنون
لینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.