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

ah313mad · 17 خرداد، ۱۳۹۴

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

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

یعنی وقتی . باتون " فهرست " رو بزنم . یه صفحه باز بشه که 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 · 17 خرداد، ۱۳۹۴

عزیزم کدش رو براتون قرار دادم بالا دیگه
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 · 17 خرداد، ۱۳۹۴

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

shahab.es · 17 خرداد، ۱۳۹۴

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

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

ah313mad · 17 خرداد، ۱۳۹۴

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

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

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

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

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

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

shahab.es · 17 خرداد، ۱۳۹۴

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

ببین

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

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

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

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

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

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

ah313mad · 17 خرداد، ۱۳۹۴

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

کد کل صفحه

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 · 18 خرداد، ۱۳۹۴

خوب ببین

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

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

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

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

ebham · 18 خرداد، ۱۳۹۴

سلام

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

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

تیبل 2 - 20 تا

تیبل 3 - 20 تا

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

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

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

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

shahab.es · 22 خرداد، ۱۳۹۴

احمد جان سلام

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

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

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

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

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

ah313mad · 19 خرداد، ۱۳۹۴

اره ایمیل کن

[email protected]

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

shahab.es · 19 خرداد، ۱۳۹۴

سلام احمد جان

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

ah313mad · 18 خرداد، ۱۳۹۴

خوب ببین

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

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

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

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

ممنون

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

shahab.es · 18 خرداد، ۱۳۹۴

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

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

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

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

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

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

ah313mad · 18 خرداد، ۱۳۹۴

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

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

شما این کارو برای صفحه ی متنتون باید انجام بدید
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 · 21 خرداد، ۱۳۹۴

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

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

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

shahab.es · 18 خرداد، ۱۳۹۴

مراحمی داداش

اره ایمیل کن

[email protected]

shahab.es · 17 خرداد، ۱۳۹۴

سلام

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

SLECT * FROM table WHERE bakhsh = 1

موفق باشی

ah313mad · 17 خرداد، ۱۳۹۴

سلام

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

SLECT * FROM table WHERE bakhsh = 1

موفق باشی

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

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

shahab.es · 17 خرداد، ۱۳۹۴

ببین عزیزم

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

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

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

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

ah313mad · 17 خرداد، ۱۳۹۴

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

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

ورود

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

سوال

ah313mad 34

لینک ارسال

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

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

ارسال‌های توصیه شده

ah313mad 34

لینک ارسال

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

sganji 678

لینک ارسال

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

shahab.es 5,429

لینک ارسال

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

ah313mad 34

لینک ارسال

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

shahab.es 5,429

لینک ارسال

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

ah313mad 34

لینک ارسال

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

shahab.es 5,429

لینک ارسال

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

ebham 232

لینک ارسال

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

shahab.es 5,429

لینک ارسال

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

ah313mad 34

لینک ارسال

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

shahab.es 5,429

لینک ارسال

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

ah313mad 34

لینک ارسال

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

shahab.es 5,429

لینک ارسال

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

ah313mad 34

لینک ارسال

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

ah313mad 34

لینک ارسال

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

shahab.es 5,429

لینک ارسال

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

shahab.es 5,429

لینک ارسال

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

ah313mad 34

لینک ارسال

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

shahab.es 5,429

لینک ارسال

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

ah313mad 34

لینک ارسال

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

بایگانی شده

کاربران آنلاین در این صفحه 0 کاربر