مشکل در جستجو

[سیدمحمد 248]

دوستان سلام.

نمیدونم چرا وقتی متنی توی ادیت تکست وارد میکنم و کلید سرچ رو میزنم،

میگه کالومن فصل که یکی از ستون های دیتابیسم هست موجود نیست. برام عجیبه واقعا

مشکل کجاست به نظرتون؟

اینم کد اکتیویتی جست و جوی من به همراه تصویر خطای برنامه

Sub Globals
Dim cur As Cursor
Dim check As Int = 0
Private EditText1 As EditText
Private matnha As ImageView
Private onvan As ImageView
Private Label2 As Label
Private Label1 As Label
Private search As ImageView
Private lv As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
 
	Activity.LoadLayout("search")


	If File.Exists(File.DirInternal,"data.db")=False Then
	File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db")
	End If
	If menu.s.IsInitialized=False Then
	menu.s.Initialize(File.DirInternal,"data.db",False)
	End If
	
	
	cur=menu.s.ExecQuery("SELECT * FROM tbl1")

	
	lv.SingleLineLayout.ItemHeight=10%y
	lv.SingleLineLayout.Label.Gravity= Gravity.CENTER
	
End Sub

Sub onvan_Click
	check=0
	onvan.Bitmap = LoadBitmap(File.DirAssets,"check.png")
	matnha.Bitmap = LoadBitmap(File.DirAssets,"uncheck.png")
End Sub

Sub matnha_Click
	check=1
	onvan.Bitmap = LoadBitmap(File.DirAssets,"uncheck.png")
	matnha.Bitmap = LoadBitmap(File.DirAssets,"check.png")
End Sub

Sub lv_ItemClick (Position As Int, Value As Object)
	menu.fasl=Value
	StartActivity(act_matlab)
End Sub



Sub search_Click
	If EditText1.Text.Trim.Length = 0 Then
	ToastMessageShow("متن وارد شده صحیح نیست",False)
	Else
	search2
	End If
End Sub

Sub search2
	lv.Clear
	
	 If check = 0 Then 
	 cur= menu.s.ExecQuery("SELECT onvan FROM tbl1 WHERE onvan LIKE '%" & EditText1.Text & "%' ")
Else
	cur= menu.s.ExecQuery("SELECT onvan FROM tbl1 WHERE matn LIKE '%" & EditText1.Text & "%' ")
	End If
	If cur.RowCount=0 Then
	ToastMessageShow("چیزی پیدا نشد",False)
Else
	For i=0 To cur.RowCount -1
	cur.Position= i
	lv.AddSingleLine2(cur.GetString("onvan"),cur.GetString("fasl"))
	Next
	End If
End Sub

[محمد رشوند 1,209]

دوست عزیز شما اینجا

	 cur= menu.s.ExecQuery("SELECT onvan FROM tbl1 WHERE onvan LIKE '%" & EditText1.Text & "%' ")

باید تعریف کنی کل دیتابیس رو سلکت کنه

شما وقتی فقط ستون onvan رو سلکت کردید دیگه با ستون های دیگه کاری نداره

مثل همین ستون فصل

یا اگر نمیخواهید که داخل این خط کل ستون هارو سلکت کنید

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

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

یک کرزر دیگه بسازید

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

	 cur= menu.s.ExecQuery("SELECT * FROM tbl1 WHERE onvan LIKE '%" & EditText1.Text & "%' ")