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

AnswerCenter

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

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

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

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


  • 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 پاسخ به این سوال تا کنون داده شده است

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

  • 0
محمدرضا شاهپیری    3,621

معاون انجمن

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

سلام 

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

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

 

 

 

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

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


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
پاسخ به این سوال ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.


×
×
  • جدید...