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

[amiro72 17]

سلام

 

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

 

کامل میگم

 

اول عکس از دیتابیس 

جدول اول به اسم  diet

 

 

جدول دوم به اسم  onvan3

 

 

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

و سه تا اکتیویتی

حالا اومدم توی اکتیویتی اول یه لیست اوردم  که یه عنوان و یه دسته از دیتابیس میگیره تا اینجا درسته 

 

کد ها رو ببینید 

Sub Process_Globals
	Dim sql1 As SQL
	Dim daste As String
End Sub


Sub Globals
	Dim cur As Cursor
	Dim inx As Int =0
End Sub



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

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


If sql1.IsInitialized=False Then
sql1.Initialize(File.DirInternal,"db.db",False)
End If


LoadRecords

end sub







Sub LoadRecords() 
		cur = sql1.ExecQuery("SELECT * FROM diet WHERE daste > " & inx & " LIMIT 0,10") 


	For i = 0 To cur.RowCount-1
		cur.position = i
		Dim btn As Button : btn.Initialize("btn")

		btn.text = cur.GetString("Onvan")
btn.Tag = cur.GetString("daste")

	PanelHeight = PanelHeight + btn.Height + 1%y
		inx = inx + 1
	Next
end sub



Sub btn_click

Dim b As Button
b=Sender
daste=b.Tag
cur = sql1.ExecQuery("SELECT * FROM diet WHERE daste = " & daste)
StartActivity(onvaaan)
	myCode.SetAnimation("file3","file4")
End Sub

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

کد های اکتیویتی دوم ببینید 

 

Sub Process_Globals
Dim sql1 As SQL
Dim daste2 As String
End Sub


Sub Globals
Dim cur5 As Cursor
End Sub




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

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

If sql1.IsInitialized = False Then
sql1.Initialize(File.DirInternal,"db.db",False)
End If
'
cur5 = sql1.ExecQuery("SELECT * FROM onvan3 WHERE daste1 ="&Content.daste)
cur5.Position=0


LoadRecords

End Sub



Sub LoadRecords() 
		    cur5.GetInt("daste1")

	For i = 0 To cur5.RowCount-1
		cur5.position = i
		Dim btn As Button : btn.Initialize("btn")


btn.text = cur5.GetString("onv6")
btn.Tag = cur5.GetString("daste1")

	Next


End Sub



Sub btn_click
Dim b As Button
b=Sender
daste2=b.Tag
'cur5 = sql1.ExecQuery("SELECT * FROM onvan3 WHERE daste1 = " & daste2)
StartActivity(contentc)
End Sub

و حالا اکتیویتی  سوم که مشکل من هم اینجاست 

کد ها رو ببینید 

Sub Process_Globals
	Dim sql1 As SQL
	Dim daste2 As String
End Sub


Sub Globals
	Dim cur1 As Cursor
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("textrr")

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

If sql1.IsInitialized = False Then
sql1.Initialize(File.DirInternal,"db.db",False)
End If
'
cur1 = sql1.ExecQuery("SELECT * FROM onvan3 WHERE daste1 =" &onvaaan.daste2)
cur1.Position=0


		show


End Sub


Sub show


cur1 = sql1.ExecQuery("SELECT * FROM onvan3 WHERE daste1 =" &onvaaan.daste2)

For i = 0 To cur1.RowCount-1
		cur1.position = i
			cur1.GetInt("daste1")
		label1.Initialize("label1")
		label1.Text=cur1.GetString("matn2")
		label1.SendToBack

Next

End sub

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

 

[amiro72 17]

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

 

ممنونم قرار دادم  لینک زیر

 

http://dllup.ir/downloadf-test-rar.html

 

 

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

اما اینجوری نیست 

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

[amiro72 17]

ممنونم قرار دادم  لینک زیر

 

http://dllup.ir/downloadf-test-rar.html

 

 

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

اما اینجوری نیست 

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

 

کسی نیست :/  همه چیو کامل گفتم یه راهنمایی کنید

[مهدی ایزدی 9,203]

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

 

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

 مشکل خاصی نداشت

این که میگید نمیشه یعنی چی؟ ارور میده؟ ارور نمیده ؟ اگه ارور میده روی کدوم خط ارور میده ؟ چه اروری میده ؟

از dEBUG و Try Catch کمک بگیرید بگید چه خطایی میده

[amiro72 17]

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

مشکل خاصی نداشت

این که میگید نمیشه یعنی چی؟ ارور میده؟ ارور نمیده ؟ اگه ارور میده روی کدوم خط ارور میده ؟ چه اروری میده ؟

از dEBUG و Try Catch کمک بگیرید بگید چه خطایی میده

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

سورس رو دادم کامپایل کنید ببینید

 

 

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

[amiro72 17]

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

سورس رو دادم کامپایل کنید ببینید

 

 

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

 

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

 

ینی کسی نیست :/

[mehrabmmp 528]

اگه اروری چیزی میده یه عکس بگیرید بفرستید

[amiro72 17]

اگه اروری چیزی میده یه عکس بگیرید بفرستید

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

[mehrabmmp 528]

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