مشکل در جستجو از دیتابیس

[mamal00 11]

با سلام دوستان 

من توی اکتیویتی جستجو ایجاد کردم و میخوام وقتی روی دکمه کلیک کردم بره به اکتیویتی که اسکرول داره و در اونجا نمایش بده،به اکتویتی اسکرول ارجاع داده میشه ولی نتیجه جستجو رو نمایش نمیده:

این سورس رو لطفا ببینید

Sub searchhover_Click


If search.Text="" Then
ToastMessageShow("لطفا عبارت جستجو را وارد کنید",False)
Return








Else


l1 = db.searchItem(search.Text)
listcontent.search = l1
StartActivity(listcontent)
     
End If






End Sub

خوب این برای اکتیویتی که جستجو توشه و دستورات sql رو داخل کلاس نوشتم اینم سورس اون قسمت: 

 

Sub Class_Globals
Dim sql1 As SQL 
Type tSMS(id As Int,titrlist As String,matnlist As String, sgroup As String)


End Sub


'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
If File.Exists(File.DirInternal,"brn.db")= False Then
File.Copy(File.DirAssets,"brn.db",File.DirInternal,"brn.db")
End If
sql1.Initialize(File.DirInternal,"brn.db",False)
End Sub


Sub searchItem(str As String) As List


Dim cur2 As Cursor
Dim list2 As List


list2.Initialize
cur2 = sql1.ExecQuery("SELECT * FROM tbl_list WHERE titrlist LIKE '%"&str&"%'")


For i =0 To cur2.RowCount - 1
cur2.Position = i
Dim t2 As tSMS
t2.Initialize


t2.titrlist = cur2.GetString("titrlist")
t2.id = cur2.GetInt("id")
t2.matnlist = cur2.GetString("matnlist")
t2.sgroup = cur2.GetString("sgroup")


list2.Add(t2)
Next 
Return list2
End Sub

 

 

اینم اکتویتی که قرار نتایج رکورد توش نمایش داده بشه

Sub Process_Globals
Dim groupname As String


Dim sql1 As SQL 
Dim search As List


End Sub


Sub Globals
Type tGroup2(titrb4a As String,id As Int)


Private listcontent As ListView
Private scrollcontent As ScrollView
Dim meghdar1 As String
Dim t1 As tGroup2
Dim list1 As List
    Dim lbl As Label


End Sub


Sub Activity_Create(FirstTime As Boolean)


Activity.LoadLayout("listlearn")
scrollcontent.Initialize(100%y)


If File.Exists(File.DirInternal,"brn.db")=False Then
File.Copy(File.DirAssets,"brn.db",File.DirInternal,"brn.db")
End If
sql1.Initialize(File.DirInternal,"brn.db",True)




If sql1.IsInitialized=False Then
 sql1.Initialize(File.DirInternal,"brn.db",True)
End If


        lbl.Initialize("lbl")
t1.Initialize
list1.Initialize
search.Initialize


listcontent.SingleLineLayout.Label.Gravity = Gravity.CENTER
listcontent.SingleLineLayout.Label.TextColor = Colors.Black
Dim cur2 As Cursor


cur2 = sql1.ExecQuery("SELECT * from tbl_list where sgroup = '"&groupname&"'")
For i = 0 To cur2.RowCount-1
cur2.Position = i


listcontent.AddSingleLine2(cur2.GetString("titrlist"),cur2.GetInt("id"))
lbl.TextColor=Colors.White
lbl.Gravity=Gravity.CENTER
lbl.Text=search




Next




End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub






Sub listcontent_ItemClick (Position As Int, Value As Object)
meghdar1=Value
StartActivity(content)
End Sub
Sub search_EnterPressed


End Sub

لطفا کمک کنید ممنون

[حاج حسین 2,098]

بفرمایید این برای یکی از برنامه هامه 

Dim check As Int = 0

Sub ImageView1_Click
	If EditText1.Text.Trim.Length = 0 Then
		ToastMessageShow("لطفا اطلاعات صحیح وارد کنید",True)
	Else
	search1
	End If
	
End Sub

Sub search1

	ListView1.Clear
	Dim cur As Cursor
	If check = 0 Then
	cur = Main.s.ExecQuery("select onvan from tbbookali where onvan LIKE '%" & EditText1.Text & "%' ")
	Else
	check=1
	cur = Main.s.ExecQuery("select  from tbbookali where matn LIKE '%" & EditText1.Text & "%' ")
	End If
	
	If cur.RowCount = 0 Then
		ToastMessageShow("چیزی پیدا نشد",True)
	Else
		For i = 0 To cur.RowCount -1
			cur.Position = i
			ListView1.AddSingleLine(cur.GetString("onvan"))
			
		Next	
		
	End If	

End Sub

در ضمن قبل از تاپیک زدن سرچ کنید مطالب زیادی در مورد سرچ تو دیتابیس هست 

یا حق

[mamal00 11]

کسی نیست جواب بده؟

دوستان من واقعا گیر کردم اگه حداقل نمونه سورس در زمینه ای که من میخوام دارین پیوست کنید،ممنون