فراخوانی متن از دیتابیس با زدن دکمه

[hamidspeed 20]

سلام

من یه متنی تو دیتابیس دارم و میخوام با زدن هر دکمه مطلب مربوط به اون قسمت نمایش داده بشه

البته آموزش های زیادی تو انجمن در این مورد بود ولی اکثرشون با لیست ویو بود یه آموزش هم بود که آقای ایزدی زحمتشو کشیده بودن با multi panel بود که طبق آموزش جلو رفتم  ولی موقع اجرا این ارور رو میداد

لینک اموزش  آموزش تصویری ساخت و خواندن اطلاعات دیتابیس با Multi Panel - آموزش های تصویری - مرکز پاسخگویی به سوالات برنامه نویسی

 

 

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

دانلود سورس

 

Multi Panel

[reza sabouri 444]

درود

در دو قسمت کد نویسیتون مشکل ریزی وجود داره

1- لاین 41

select صحیحه نه sellect

2- لاین 54

txt  هستش اسم ستون در جدول ، نه text

#Region  Project Attributes 
	#ApplicationLabel: B4A 
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#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.

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 ScrollView1 As ScrollView
		Private Label1 As Label
	Private Panel1 As Panel

	Dim cur1 As Cursor
	Dim sql1 As SQL
	Dim stop As Int = 3%y
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("scrollLayout")
    If File.Exists(File.DirInternal,"data.db") = False Then
	File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db")
	End If
	sql1.Initialize(File.DirInternal,"data.db",False)
	cur1 = sql1.ExecQuery("SELLECT * FROM tbl")'**********select
	
	For i = 0 To cur1.RowCount-1
	cur1.Position = i
	
	
	
	
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
	stop = stop + 35%y
	p.LoadLayout("main")
	Label1.Text = cur1.GetString("text")'************txt
	ScrollView1.Panel.Height = stop
	Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

[hamidspeed 20]

در 19 دقیقه قبل، رضا صبوری گفته است :

درود

در دو قسمت کد نویسیتون مشکل ریزی وجود داره

1- لاین 41

select صحیحه نه sellect

2- لاین 54

txt  هستش اسم ستون در جدول ، نه text

#Region  Project Attributes 
	#ApplicationLabel: B4A 
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#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.

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 ScrollView1 As ScrollView
		Private Label1 As Label
	Private Panel1 As Panel

	Dim cur1 As Cursor
	Dim sql1 As SQL
	Dim stop As Int = 3%y
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("scrollLayout")
    If File.Exists(File.DirInternal,"data.db") = False Then
	File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db")
	End If
	sql1.Initialize(File.DirInternal,"data.db",False)
	cur1 = sql1.ExecQuery("SELLECT * FROM tbl")'**********select
	
	For i = 0 To cur1.RowCount-1
	cur1.Position = i
	
	
	
	
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
	stop = stop + 35%y
	p.LoadLayout("main")
	Label1.Text = cur1.GetString("text")'************txt
	ScrollView1.Panel.Height = stop
	Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

دمت گرم