مشکل لود در دیتابیس

[Angry Fox 48]

سلام

من یکه دیتابیس دارم که 79 تا ریکورد داره و قراره 100 تا بشه

 

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

 

خب من اومدم توی بیسیک sql و cursor رو درست تنظیم کردم و وقتی میخام توی حلقه فور مینویسم که توی اسکرول ویو یه پنل لود کنه و امیج ویو توی پنل مساوی با آدرسی که توی دیتابیس هست قرار بده(مولتی پنل رو میگم) فورس کلوز میده

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

آدرس عکس ها هم به این صورته:

img.Bitmap = aria.GetCircleBitmap(LoadBitmap(File.DirAssets,"Cur1.GetString("imageaddress")))

درضمن آدرس عکس هام توی دیتابیس هم اینجوریه

1.jpg 2.jpg 3.jpg ...

اون سه نقطه یعنی تا 79 ادامه پیدا میکنه

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

 

لطفا راهنمایی کنید کلافه شدم

[mohammad3250 206]

عکس هارو داخل پوشه فایل قرار دادید؟

ظاهرا کد هاتون مشکل نداره..

[arastooms 1,046]

سلام دوست عزیز 
اول باید خطای برنامه در چنین مواردی کپی کنید و برای ما ارسال کنید در پست تا بتونیم راهنمایی تون کنیم 

ولی طبق گفته شما فکر میکنم شما در حلقه for برنامه تعداد 22 رو به 79 تغیر ندادید و تو خوندن رکورد ها به مشکل میخوره 

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

[Angry Fox 48]

سلام مجدد

توی لاگ چیزی نمی نویسه و فقط فورس کلوس میده

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

	ScrollView1.Panel.RemoveAllViews
	If sql1.IsInitialized= False Then
	sql1.Initialize(File.DirRootExternal,"/Android/data/cache.db",False)
	End If
	Cur1 = sql1.ExecQuery("SELECT * FROM tbl1 ")
		stop = 3%y
	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 + 16%y
		p.LoadLayout("LPanel")
		lblNameF.Text = Cur1.GetString("namef")
		lblNameE.Text = Cur1.GetString("namee")
		img.Bitmap = aria.GetCircleBitmap(LoadBitmap(File.DirAssets,"image/"&Cur1.GetString("imageaddress")))
		ScrollView1.Panel.Height = stop
	Next

لطفا راهنمایی کنید

در هم اکنون، mohammad3250 گفته است :

عکس هارو داخل پوشه فایل قرار دادید؟

ظاهرا کد هاتون مشکل نداره..

بله توی پوشه هست ومن اون کد اول بدون دادن مسیر پوشه گذاشتم اما توی کد بالا مسیرو به صورت کامل گذاشتم و باز هم عمل نمیکنه

[mohammad3250 206]

در 6 ساعت قبل، Angry Fox گفته است :

سلام مجدد

توی لاگ چیزی نمی نویسه و فقط فورس کلوس میده

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

	ScrollView1.Panel.RemoveAllViews
	If sql1.IsInitialized= False Then
	sql1.Initialize(File.DirRootExternal,"/Android/data/cache.db",False)
	End If
	Cur1 = sql1.ExecQuery("SELECT * FROM tbl1 ")
		stop = 3%y
	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 + 16%y
		p.LoadLayout("LPanel")
		lblNameF.Text = Cur1.GetString("namef")
		lblNameE.Text = Cur1.GetString("namee")
		img.Bitmap = aria.GetCircleBitmap(LoadBitmap(File.DirAssets,"image/"&Cur1.GetString("imageaddress")))
		ScrollView1.Panel.Height = stop
	Next

لطفا راهنمایی کنید

بله توی پوشه هست ومن اون کد اول بدون دادن مسیر پوشه گذاشتم اما توی کد بالا مسیرو به صورت کامل گذاشتم و باز هم عمل نمیکنه

YouWave Android اندروید باز کن و برنامه رو release کن اینجوری نمیشه راهنمایی کرد

 

[Angry Fox 48]

من توی گوشی تست میکنم

 

واقعا کسی بلد نیست؟

[Mohammad.1379 12]

Sub Activity_Create(FirstTime As Boolean)
cur1 = sql.ExecQuery("SELECT  id,ax FROM tabel1")

For i=0 To cur1.RowCount-1
   	cur1.Position = i

Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0%x,stop,100%x,100%y)
	p.LoadLayout("l3")


 ImageView1.Bitmap = aph.RoundCorner(namayesh(i),200)
	 ImageView1.Tag = cur1.GetInt("id")
next
end sub

Sub namayesh(Position As String) As Bitmap

cur1 = sql.ExecQuery("SELECT id,ax FROM tabel1")
cur1.Position = Position
Dim Bytes() As Byte
Bytes = cur1.GetBlob("ax")

Dim input As InputStream
input.InitializeFromBytesArray(Bytes,0,Bytes.Length)

Dim b As Bitmap
b.Initialize2(input)
input.Close
Return(b)
End Sub

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

 

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