شرط به آخر رسیدن آیدی در Database (دیتابیس)

[Kazem Forghani 2,927]

سلام

چطوری یه شرط بگذارم که اگر آیدی داخل دیتابیس آخرین بود یه کاری انجام بده ؟

یعنی مثلا اگر 12 عدد آیدی دارم . مثلا بگیم آخرین بود یعنی 12 ؟

فقط فوریه! تمام برنامه را نوشتم به جز همین !

پیشاپیش ممنون.

[Nemesis 1,846]

شما چرا از cur.position استفاده نمیکینی؟

 

شما حقه for رو به این ثورت تعربف میکنی برای خواندن

For i = 0 To cur.RowCount -1

درسته؟

حالا این شرط رو بذار

If i=cur.RowCount -1 then
'YOur IF
End if

اگه مدنظر داری چندجای دیگه هم این کارو بکنی از Select Case استفاده کن

[afraz11 246]

آقایون راه دیگه ای نیست ؟ هر چی امتحان می کنم نمی شه . آقای فراز هم اگر کد بگذارید ممنون می شم.

 

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

[Kazem Forghani 2,927]

شما چرا از cur.position استفاده نمیکینی؟

 

شما حقه for رو به این ثورت تعربف میکنی برای خواندن

For i = 0 To cur.RowCount -1

درسته؟

حالا این شرط رو بذار

If i=cur.RowCount -1 then
'YOur IF
End if

اگه مدنظر داری چندجای دیگه هم این کارو بکنی از Select Case استفاده کن

سلام

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

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

[Kazem Forghani 2,927]

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

من مشکل ندارم .

از RowCount که امتحان کردم نشد ، شما راه دیگه ای دارید ؟

[Nemesis 1,846]

من مشکل ندارم .

از RowCount که امتحان کردم نشد و شما راه دیگه ای دارید ؟

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

 

فقط یه سوال نشد یعنی چی؟

اخطار گرفتی؟

[Kazem Forghani 2,927]

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

 

فقط یه سوال نشد یعنی چی؟

اخطار گرفتی؟

 

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

 

فقط یه سوال نشد یعنی چی؟

اخطار گرفتی؟

نخیر .

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

[Nemesis 1,846]

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

 

ولی این مسئله میتونه باگ باشه در کتابخانه

 

نمیشه اینطوری گفت

[afraz11 246]

من مشکل ندارم .

از RowCount که امتحان کردم نشد ، شما راه دیگه ای دارید ؟

 

آقای کاظم صد در صد راهی که من به شما گفتم آسون ترین راه و عملی ترین راه بود 

حالا نمیدونم شما چی نوشتی که مشکل داری یه بار دیگه برو اون پستهای که من قرار دادم رو بخون و طبق اونا پیش برو 100در صد تضمین میکنم که مشکلت حل میشه

[Kazem Forghani 2,927]

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

 

ولی این مسئله میتونه باگ باشه در کتابخانه

 

نمیشه اینطوری گفت

سلام مجدد

یعنی پروژه رو پ خ کنم استاد ؟

 

کدی نیست با همین کتابخانه فراخوانی که بشه آخرین آیدی رو گرفت ؟

 

آقای افراز afraz11 هم یه کد داده بودن که نام Table رو بگیرم . بعد هم آیدی را. آیا این روش عملیست ؟

 

پروژه من 2 تیبل فقط نداره . 30 تا هست حدودا .

[Nemesis 1,846]

ببین من تا حالا با این کتابخونه کار نکردم ولی یه سوال به اطلاعات دیتابیست اضافه میشه ؟

[afraz11 246]

سلام مجدد

یعنی پروژه رو پ خ کنم استاد ؟

 

کدی نیست با همین کتابخانه فراخوانی که بشه آخرین آیدی رو گرفت ؟

 

آقای افراز afraz11 هم یه کد داده بودن که نام Table رو بگیرم . بعد هم آیدی را. آیا این روش عملیست ؟

 

پروژه من 2 تیبل فقط نداره . 30 تا هست حدودا .

 

خسته نباشی آقا

هنوز تازه میگه عملیه

بابا من چندتا از برنامه هامو با این روشا ساختم 

اصلا خود دانی

[Kazem Forghani 2,927]

خسته نباشی آقا

هنوز تازه میگه عملیه

بابا من چندتا از برنامه هامو با این روشا ساختم 

اصلا خود دانی

خوب شما کد بگذارید .

باور کنید الان بار 5 هست که من این فرمایش شما رو انجام می دم اما باز هم هیچ تغییری نمی کنه!

[afraz11 246]

خوب شما کد بگذارید .

باور کنید الان بار 5 هست که من این فرمایش شما رو انجام می دم اما باز هم هیچ تغییری نمی کنه!

 

خدا شاهده حوصله تایپ ندارم چه رسد سورس بزارم

شرمند کمی رو کدا فکر کن حل میشه

[Nemesis 1,846]

بذار ساختار کتابخونه رو بررسی کنم کدشو برات میذارم

[Nemesis 1,846]

خوب شما کد بگذارید .

باور کنید الان بار 5 هست که من این فرمایش شما رو انجام می دم اما باز هم هیچ تغییری نمی کنه!

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

						Cursor1 = SQL1.ExecQuery("SELECT * FROM faratable")
						For i = 0 To Cursor1.RowCount -1
							If i <> Cursor1.RowCount -1 Then
								Farakhani1.TwoLineAndBitmapTitr("faratest.db",SQL1,Cursor1,"SELECT * FROM faratable",ListView1,"FirstTitle","SecondTitle","id","Image",bitmap1)
							Else
								Log("تمام شده است")
							End If
						Next

[shahab.es 5,429]

 

شما چرا از cur.position استفاده نمیکینی؟

 

سلام

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

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

 

 

سلام دوستان

اقا کاظم کتابخونه فراخوانی، کدهارو تو خودش داره و تغییری توی position و ... نمیتونی ایجاد کنی

بهترین راه اینه برای استفاده از کمک دوستان، از روش اصلی بری

مانور اصلی که تو کتابخونه فراخوانی میتونی بدی، صرفا دستور sql هست

موفق باشی

[Kazem Forghani 2,927]

 

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

						Cursor1 = SQL1.ExecQuery("SELECT * FROM faratable")
						For i = 0 To Cursor1.RowCount -1
							If i <> Cursor1.RowCount -1 Then
								Farakhani1.TwoLineAndBitmapTitr("faratest.db",SQL1,Cursor1,"SELECT * FROM faratable",ListView1,"FirstTitle","SecondTitle","id","Image",bitmap1)
							Else
								Log("تمام شده است")
							End If
						Next

متاسفانه جواب نداد

بگذارید مفصل توضیح بدم :

من یک برنامه آموزش زبان انگلیسی دارم می نویسم . به صورت بخش به بخش هست. یعنی مثلا خانواده رنگها و .... . برای هر بخش یک Table ساختم .

این ها کلا توی یک اکتیویتی نمایش می دم . ( هر دو جدول )

من اومدم یه دکمه next و back گذاشتم . برای جا به جایی بین لغات

این رو بلدم که وقتی آیدی یک باشه دکمه back نشون داده نشه .

اما نمی دونم چطوری بگم که وقتی به آخرین رکورد رسید دکمه next نشون داده نشه .

راهی وجود داره ؟

[Nemesis 1,846]

من همین الان این رو تست کردم جواب گرفتم

[Nemesis 1,846]

تیکه کد فراخوانیتو بذار

[Kazem Forghani 2,927]

من همین الان این رو تست کردم جواب گرفتم

این هم کل کد هام :

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

Sub Process_Globals
	Dim SQL1 As SQL
	Dim CUR1 As Cursor
End Sub

Sub Globals
	Private Pictures As ImageView
	Private Russian As Label
	Private English As Label
	Private Pasian As Label
	Private Btn_Back As Button
	Private Btn_Next As Button
	Dim bitmap2 As Bitmap
	Dim fara As Farakhani
	Dim id As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Student")
	id = 1
	
	If id = 1 Then
	Btn_Back.Visible=False
	Else
	Btn_Back.Visible=True
	End If
	
	Russian.TextColor = Colors.Black
	Russian.Gravity = Gravity.CENTER
	Russian.TextSize = 39dip
	Russian.Typeface = Typeface.LoadFromAssets("BYekan.ttf")
	
	English.TextColor = Colors.Black
	English.Gravity = Gravity.CENTER
	English.TextSize = 25dip
	English.Typeface = Typeface.LoadFromAssets("BYekan.ttf")
	
	Pasian.TextColor = Colors.Black
	Pasian.Gravity = Gravity.CENTER
	Pasian.TextSize = 20dip
	Pasian.Typeface = Typeface.LoadFromAssets("BYekan.ttf")
	
	If Main.ListViewValue = 1 Then
	fara.FarakhaniImage("database.db",SQL1,CUR1,"SELECT * FROM family Where id=",id,"Pic",bitmap2)
	Pictures.Bitmap = bitmap2
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM family Where id=",id,Russian,"R_name")
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM family Where id=",id,English,"E_name")
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM family Where id=",id,Pasian,"P_name")
	End If
	
	If Main.ListViewValue = 2 Then
	fara.FarakhaniImage("database.db",SQL1,CUR1,"SELECT * FROM Color Where id=",id,"Pic",bitmap2)
	Pictures.Bitmap = bitmap2
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM Color Where id=",id,Russian,"R_name")
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM Color Where id=",id,English,"E_name")
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM Color Where id=",id,Pasian,"P_name")
	End If
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Btn_Next_Click
	id = id + 1
	
	If id = 1 Then
	Btn_Back.Visible=False
	Else
	Btn_Back.Visible=True
	End If
	
	If Main.ListViewValue = 1 Then
	fara.FarakhaniImage("database.db",SQL1,CUR1,"SELECT * FROM family Where id=",id,"Pic",bitmap2)
	Pictures.Bitmap = bitmap2
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM family Where id=",id,Russian,"R_name")
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM family Where id=",id,English,"E_name")
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM family Where id=",id,Pasian,"P_name")
	End If
	
	If Main.ListViewValue = 2 Then
	fara.FarakhaniImage("database.db",SQL1,CUR1,"SELECT * FROM Color Where id=",id,"Pic",bitmap2)
	Pictures.Bitmap = bitmap2
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM Color Where id=",id,Russian,"R_name")
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM Color Where id=",id,English,"E_name")
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM Color Where id=",id,Pasian,"P_name")
	End If
	
End Sub

Sub Btn_Back_Click
	id = id - 1
	
	If id = 1 Then
	Btn_Back.Visible=False
	Else
	Btn_Back.Visible=True
	End If
	
	If Main.ListViewValue = 1 Then
	fara.FarakhaniImage("database.db",SQL1,CUR1,"SELECT * FROM family Where id=",id,"Pic",bitmap2)
	Pictures.Bitmap = bitmap2
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM family Where id=",id,Russian,"R_name")
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM family Where id=",id,English,"E_name")
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM family Where id=",id,Pasian,"P_name")
	End If
	
	If Main.ListViewValue = 2 Then
	fara.FarakhaniImage("database.db",SQL1,CUR1,"SELECT * FROM Color Where id=",id,"Pic",bitmap2)
	Pictures.Bitmap = bitmap2
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM Color Where id=",id,Russian,"R_name")
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM Color Where id=",id,English,"E_name")
	fara.FarakhaniMatn("database.db",SQL1,CUR1,"SELECT * FROM Color Where id=",id,Pasian,"P_name")
	End If
End Sub