رفتن به مطلب
  • 0

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


mamad20

سوال

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

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

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

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

با سلام و تشکر

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

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

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

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

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...