رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

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

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • 0
mom

جست و جو در دیتابیس

سوال

mom    0

کاربر عادی

سلام 

لطفا یه سورس کد درباره جست و جو در دیتابیس و اینکه وقتی روش کلیک میکنی داخل صفحه مورد نظر بره رو بذارید 

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

 

 

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim s As SQL
	Dim idonvan As String
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

'	Private ListView1 As ListView
	Private EditText1 As EditText
	Private Button1 As Button
	Private Panel_onvan As Panel
	Private Label_onvan As Label
	Private ScrollView1 As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("layout_search")
	afrazlab.DatabesCopy(s,"jsonn.db",True)
	
'	Dim lbl As Label
'	lbl=ListView1.SingleLineLayout.Label
'	lbl.Gravity=Gravity.LEFT
'	lbl.Left=lbl.Left+5dip
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub onvanMatnha(scroollneme As ScrollView)
	
	afrazlab.DatabesCopy(s,"jsonn.db",True)
	'ListView1.Clear
	Dim cur As Cursor
	cur=s.ExecQuery("SELECT * FROM ddx WHERE onvan LIKE '%"&EditText1.Text&"%'")
	
	Dim h As Int=1%y
	
	For i =0 To cur.RowCount-1
		cur.Position=i
		
		Dim p1 As Panel
		p1.Initialize("p1")
		p1.LoadLayout("l_Panel_onvan")
		p1.Color=0xFF007236
	
		Label_onvan.Text=cur.GetString("onvan")
		Label_onvan.TextColor=Colors.Black
		Label_onvan.TextSize=20
		Label_onvan.Gravity=Bit.Or(Gravity.CENTER,Gravity.RIGHT)
		Label_onvan.Tag=cur.GetString("id")
	
		scroollneme.Panel.AddView(p1,0,h,100%x,100%y)
		h=h+14%y
	
	
	Next

	scroollneme.Panel.Height=h+5%y
	
End Sub





Sub Button1_Click


	onvanMatnha(ScrollView1)
End Sub

Sub Label_onvan_Click
	Dim l As Label
	l=Sender
	idonvan=l.Tag
	StartActivity(matn_ddx)
		
End Sub

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تا کنون داده شده است

پست های پیشنهاد شده

محمدرضا شاهپیری    3,746

معاون انجمن

در 15 ساعت قبل، mom گفته است :

سلام 

لطفا یه سورس کد درباره جست و جو در دیتابیس و اینکه وقتی روش کلیک میکنی داخل صفحه مورد نظر بره رو بذارید 

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

 

 

 

این خط ( (afrazlab.DatabesCopy(s,"jsonn.db",True چیه؟ و چرا تو هر بار کلیک کپی میکنید دیتابیسو؟

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
مهمان
این موضوع برای عدم ارسال قفل گردیده است.

×
×
  • جدید...