فراخوانی بخشی از دیتابیس

[ah313mad 34]

سلام دوستان خسته نباشید.

 

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

 

یعنی وقتی . باتون " فهرست " رو بزنم . یه صفحه باز بشه که 10 تا باتوون داخلش باشه . بعد مثلا باتون " فصل اول " رو که میزنی فهرستی  از ردیف 1 تا ردیف 10 دیتابیس رو فراخوانی کنه . باتون " فصل 2 رو که بزنی .فهرستی  از ردیف 10 تا 20 رو از دیتابیس فراخوانی بکنه . ممنون میشم راهنمایی کنید

کد صفحه فراخوانی مطلبش پاییه

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


font=Typeface.LoadFromAssets("byekan.ttf")

SlidingMenu1.Initialize("menu")
listview2.Initialize("list")
SlidingMenu1.BehindOffset=45%x
SlidingMenu1.Mode=SlidingMenu1.LEFT
SlidingMenu1.Menu.AddView(listview2,0,58dip,250dip,160%x)

listview2.AddTwoLinesAndBitmap("خانه","",LoadBitmap(File.DirAssets,"Home-128.png"))
listview2.AddTwoLinesAndBitmap("جستجو","",LoadBitmap(File.DirAssets,"Search-128.png"))
listview2.AddTwoLinesAndBitmap("علاقه مندی ها","",LoadBitmap(File.DirAssets,"favorite1.png"))
listview2.AddTwoLinesAndBitmap("تنظیمات","",LoadBitmap(File.DirAssets,"Settings-128.png"))
listview2.AddTwoLinesAndBitmap("تماس با ما","",LoadBitmap(File.DirAssets,"message-mail-128.png"))
listview2.AddTwoLinesAndBitmap("درباره","",LoadBitmap(File.DirAssets,"about-128.png"))
listview2.TwoLinesAndBitmap.Label.Gravity=Gravity.LEFT
listview2.TwoLinesAndBitmap.Label.Top=15dip
listview2.TwoLinesAndBitmap.Label.TextColor = Colors.Blue
listview2.TwoLinesAndBitmap.Label.Typeface=font



Dim blistview1 As BitmapDrawable
blistview1.Initialize(LoadBitmap(File.DirAssets,"0.png"))
SlidingMenu1.Menu.Background=blistview1



If File.Exists(File.DirInternal,"dbrahsadsale.db")= False Then
(File.Copy(File.DirAssets,"dbrahsadsale.db",File.DirInternal,"dbrahsadsale.db"
End If

If SQL1.IsInitialized=False Then
(SQL1.Initialize(File.DirInternal,"dbrahsadsale.db",False
End If


Dim cur As Cursor
cur=SQL1.ExecQuery("SELECT * FROM Tbl1")

For i = 0 To cur.RowCount-1
    cur.Position=i
    ListView1.AddSingleLine2(cur.GetString("Fasl"),cur.GetInt("id"))
    ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
   
    ListView1.SingleLineLayout.Label.TextSize=18
ListView1.SingleLineLayout.Label.TextColor=Colors.Black
    ListView1.SingleLineLayout.ItemHeight=15%y
'*********************
Dim bd As BitmapDrawable
    bd.Initialize(LoadBitmap(File.DirAssets,"3-List.png"))
    ListView1.SingleLineLayout.Background=bd

Dim a As Typeface
    a=Typeface.LoadFromAssets("BYEKAN.ttf")
    ListView1.SingleLineLayout.Label.Typeface=a
Next


End Sub

[ah313mad 34]

 

عزیزم کدش رو براتون قرار دادم بالا دیگه

cur=Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE bakhsh = 1 AND id="&Menu1.Fasl)

 

کد رو طبق دستوراتتون وارد کردم . 

اما با خطای زیر مواجه میشم 

 

Parsing code.                           0.04

Compiling code.                         Error

Error compiling program.

Error description: Unknown member: sql1

Occurred on line: 66

(cur=menu1.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE bakhsh = 1 AND id="&menu1.Fasl

Word: sql1

[sganji 678]

متغیری به نام sql1 داری اصلن؟

 

 

 

[shahab.es 5,429]

میگه Sql1 رو نمیشناسه

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

[ah313mad 34]

میگه Sql1 رو نمیشناسه

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

 

شرمنده . ببخشید به خدا .

کد زیر رو بدون menu1 زدم بدون مشکل run شد

cur=SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE bakhsh = 1 AND id="&Fasl)

ولی وقتی اجراش میکنم به شکل تصویر زیر میشه

[shahab.es 5,429]

خواهش میکنم عزیزم

ببین

ممکنه که توی جدولت ، مثلا Bakhsh رو Bakhsh نوشته باشی

اینجور چیزا رو چک کن

میگه بغل مساوی خطا داری

که یا id هست یا اون شیئت (ادیت تکست) یا bakhsh یا مقدار بخش

اینارو کنترل کن

خبرشو بده ببینیم چه کنیم

[ah313mad 34]

چک کردم . هنوز همون جوره !؟ 

کد کل صفحه 

 

 

    cur=SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE Bakhsh = 2 AND id ="&Fasl)

 

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

Sub Process_Globals
	Dim SQL1 As SQL
	Dim Fasl As String
	Dim bakhsh As String
End Sub

Sub Globals
	Private btnFav As Button
	Private ListView1 As ListView
	Private OpenList As Button
	Private Settings As Button
	Private Searchlist As Button
	Dim SlidingMenu1 As SlidingMenu
	Dim listview2 As ListView
	Dim font As Typeface
	
	
	
End Sub
Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("frm1")
	

	font=Typeface.LoadFromAssets("byekan.ttf")

	SlidingMenu1.Initialize("menu")
	listview2.Initialize("list")	
	SlidingMenu1.BehindOffset=45%x
	SlidingMenu1.Mode=SlidingMenu1.LEFT
	SlidingMenu1.menu.AddView(listview2,0,58dip,250dip,160%x)

	listview2.AddTwoLinesAndBitmap("خانه","",LoadBitmap(File.DirAssets,"Home-128.png"))
	listview2.AddTwoLinesAndBitmap("جستجو","",LoadBitmap(File.DirAssets,"Search-128.png"))
	listview2.AddTwoLinesAndBitmap("علاقه مندی ها","",LoadBitmap(File.DirAssets,"favorite1.png"))
	listview2.AddTwoLinesAndBitmap("تنظیمات","",LoadBitmap(File.DirAssets,"Settings-128.png"))
	listview2.AddTwoLinesAndBitmap("تماس با ما","",LoadBitmap(File.DirAssets,"message-mail-128.png"))
	listview2.AddTwoLinesAndBitmap("درباره","",LoadBitmap(File.DirAssets,"about-128.png"))
	listview2.TwoLinesAndBitmap.Label.Gravity=Gravity.LEFT
	listview2.TwoLinesAndBitmap.Label.Top=15dip
	listview2.TwoLinesAndBitmap.Label.TextColor = Colors.Blue
	listview2.TwoLinesAndBitmap.Label.Typeface=font


	
	Dim blistview1 As BitmapDrawable
	blistview1.Initialize(LoadBitmap(File.DirAssets,"0.png"))
	SlidingMenu1.menu.Background=blistview1
	
	
	
	If File.Exists(File.DirInternal,"dbrahsadsale.db")= False Then
	File.Copy(File.DirAssets,"dbrahsadsale.db",File.DirInternal,"dbrahsadsale.db")
	End If
	
	If SQL1.IsInitialized=False Then
	SQL1.Initialize(File.DirInternal,"dbrahsadsale.db",False)
	End If
		Dim cur As Cursor

	cur=SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE Bakhsh = 2 AND id ="&Fasl)
	For i = 0 To cur.RowCount-1
    cur.Position=i
    ListView1.AddSingleLine2(cur.GetString("Fasl"),cur.GetInt("id"))
    ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
	    
    ListView1.SingleLineLayout.Label.TextSize=18
	ListView1.SingleLineLayout.Label.TextColor=Colors.Black
    ListView1.SingleLineLayout.ItemHeight=15%y
	'*********************
	Dim bd As BitmapDrawable
    bd.Initialize(LoadBitmap(File.DirAssets,"3-List.png"))
    ListView1.SingleLineLayout.Background=bd

	Dim a As Typeface
    a=Typeface.LoadFromAssets("BYEKAN.ttf")
    ListView1.SingleLineLayout.Label.Typeface=a
	Next
	
	
End Sub

[shahab.es 5,429]

خوب ببین

شما متغیری به اسم Fasl تعریف کردی

اما تو این صفحه نمیبینم مقدار بهش داده باشی؟

شاید به این گیر میده

تا جایی که من دیدم ، مقدار نداره

[ebham 232]

سلام 

برای اینکار بهتره که توی دیتابیس بیای و چنتا تیبل بزاری مثلا 

 

تیبل 1 - 20 تا رکرود داشته باشه 

تیبل 2 - 20 تا 

تیبل 3 - 20 تا 

 

حالا وقتی این کار رو کردی و دیتابیس رو کد نویسی کردی میای از tian  و celect  استفاده میکنی 

 

 

در اکت منو میای به تعداد تیبل ها باتن قرار میدی و توی کد هر باتن مینویسی که وقتی این باتن کلیک شد بره توی اکت لیست ولی با تیان مثلا 1 -- و همینطور باقی باتن های تیان 2 و 3 

 

توی اکت لیست میگی وقتی از اکت قبل تیان 1 برگشت از دیتا بیس فتیبل 1 رو سلکت کن -- اگر 2 تیان دو  

 

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

[shahab.es 5,429]

احمد جان سلام

این سورسو ببین

http://s3.picofile.com/file/8193278918/ahmad.rar.html

فک کنم مشکلتو حل کنه

ایمیلم کردم برات

ببخشید دیر انجام دادم

[ah313mad 34]

 

اره ایمیل کن

shahabeskandary16@gmail.com

 

سلام آقا شهاب . بنظرتون قابل اجرا هست به این نحو

[shahab.es 5,429]

سلام احمد جان

پیام خصوصیتون رو لطفا چک کنید

[ah313mad 34]

خوب ببین

شما متغیری به اسم Fasl تعریف کردی

اما تو این صفحه نمیبینم مقدار بهش داده باشی؟

شاید به این گیر میده

تا جایی که من دیدم ، مقدار نداره

 

ممنون 

 

ببخشید من حرفه ای نیستم . مقداز Fasl رو باید چجور وارد کنم . یعنی چند بزنم کجا بزنم؟؟؟؟  ببخشید

[shahab.es 5,429]

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

اصلا مقدار فصل لازم نیست

شما این کارو برای صفحه ی متنتون باید انجام بدید

cur=SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE Bakhsh = 2 )

اینو تست کن داداش

خبرشو بهمون بده ببینیم ردیفه یا نه

[ah313mad 34]

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

اصلا مقدار فصل لازم نیست

شما این کارو برای صفحه ی متنتون باید انجام بدید

cur=SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE Bakhsh = 2 )

اینو تست کن داداش

خبرشو بهمون بده ببینیم ردیفه یا نه

 

سلام آقا شهاب  . بازم مزاحمتون شدم . این خطا رو میده ( براتون سورس رو ایمیل کنم نگاه کنید؟ )

 

Parsing code.                           Error

Error parsing program.

Error description: Syntax error.

Occurred on line: 65

cur=SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE Bakhsh = 2 )

[ah313mad 34]

دوستان عزیز کسی نبود ما رو راهنمایی کنه . 

بخدا کارم گیره . 

 

یه فکری بحالم بکنید

[shahab.es 5,429]

مراحمی داداش

اره ایمیل کن

shahabeskandary16@gmail.com

[shahab.es 5,429]

سلام

ببین شما میتونی یه فیلد بذاری مثلا برای فصل 1 که عدد توش باشه 1 بعد بگی 

SLECT * FROM table WHERE bakhsh = 1

موفق باشی

[ah313mad 34]

سلام

ببین شما میتونی یه فیلد بذاری مثلا برای فصل 1 که عدد توش باشه 1 بعد بگی 

SLECT * FROM table WHERE bakhsh = 1

موفق باشی

 

ممنون . متوجه شدم ولی کم 

 

اگه میشه با کدهای بالا راهنماییم کنید.

[shahab.es 5,429]

ببین عزیزم

مربوط به کد نیست

شما فیلدشو باید تو دیتابیست اضافه کنی

یه ردیف به اسم مثلا Bakhsh از نوع integer که برای هر بخش یه عدد خاص داره

"SELECT * FROM Tbl1 WHERE bakhsh = 1 AND id="&Menu1.Fasl

[ah313mad 34]

بخشش رو اضافه کردم . برای هر بخش هم یه عدد اضافه کردم مثلا بخش 1 . عدد 1 و بخش2 عدد 2 .

 

الان باید چه کدی رو کجای کدهای بالا بزارم که فقط بخش 1 رو که داخل دیتابیس ردیف bakhsh هست رو فراخوانی کنه؟