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

[mamad20 18]

با سلام . قبلا نمیتونستم از بانک لود کنم . الان برای نمایش مشکل دارم . آخرین داده از دیتا بیس رو نشون میده در صورتی که میخوام مثل آرایه به ترتیب نشون بده کجای این کد باید اصلاح بشه ؟

Dim cur1 As Cursor
Dim bit1 As Bitmap
Dim sql1 As SQL
	sql1.Initialize(File.DirInternal,"ganjdb.db",False)
	cur1 = sql1.ExecQuery("SELECT * from tbl_list order by num1 desc")
For i = 0 To cur1.RowCount-1
	cur1.Position = i
    Dim Buffer() As Byte
    Buffer = cur1.GetBlob("pic1")
    Dim InputStream1 As InputStream
    InputStream1.InitializeFromBytesArray(Buffer,0, Buffer.Length)
    bit1.Initialize2(InputStream1)
    InputStream1.Close

	gpimage.SetBackgroundImage(bit1)
	Next
	Dim cur2 As Cursor
	cur2 = sql1.ExecQuery("select answer1 from tbl_list")
For i = 0 To cur2.RowCount-1
		cur2.Position = i
	sword = cur2.GetString("answer1")
	Next

[dostmobile 329]

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

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

[porya 959]

سلام این تاپیکو یه نگاه دقیق بندازید...

http://answercenter.ir/topic/3978-%D9%82%D8%B1%D8%A7%D8%B1-%D8%AF%D8%A7%D8%AF%D9%86-%D8%B9%DA%A9%D8%B3-%D8%A7%D8%B2-%D8%AF%DB%8C%D8%AA%D8%A7-%D8%A8%DB%8C%D8%B3-%D8%B1%D9%88%DB%8C-%D9%85%D9%88%D9%84%D8%AA%DB%8C-%D9%BE%D9%86%D9%84/

[mamad20 18]

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

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

با سلام و تشکر

یه بازی ساختم که شبیه بازی آفتابه به شما در هر مرحله یه عکس میده و یه کلمه جوابش رو میخواد . کاری به مولتی پنل نداره . 

[mamad20 18]

کمک لطفا ...

[mamad20 18]

سلام این تاپیکو یه نگاه دقیق بندازید...

http://answercenter.ir/topic/3978-%D9%82%D8%B1%D8%A7%D8%B1-%D8%AF%D8%A7%D8%AF%D9%86-%D8%B9%DA%A9%D8%B3-%D8%A7%D8%B2-%D8%AF%DB%8C%D8%AA%D8%A7-%D8%A8%DB%8C%D8%B3-%D8%B1%D9%88%DB%8C-%D9%85%D9%88%D9%84%D8%AA%DB%8C-%D9%BE%D9%86%D9%84/

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