لود عکس در پنل با استفاده از آدرس آن در دیتابیس

[hossein92 74]

سلام دوستان

در حال ساخت یک برنامم که داخلش 30 تا عکس داره

عکسهارو از طریق منو فایل ادد کردم

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

File.DirAssets,"3.png"

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

میخوام با زدن دکمه آدرس عکسو از دیتا بیس بخونه ودر پنل لود کنه و با زدن دوباره دکمه به صورت رندم تغییر کنه

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

از اساتید بزرگوار درخواست کمک دارم

اینم کدی که در باتن قراردادم

Dim rn As IntDim c1 As Cursor


Dim h As String
c1 = sql1.ExecQuery("select * from tst1_pic")
   rn=Rnd(0,30)
   c1.Position = rn
   h=c1.GetString("address")

   pnl_img.SetBackgroundImage(LoadBitmap(h))

[پژمان نیکروان 6,055]

سلام.

اونجوری ادرس فایل رو تو دیتابیس ذخیره نکن.

به صورت 2.png ذخیره کن و برای لود اینو بنویس:

Dim rn As IntDim c1 As Cursor


Dim h As String
c1 = sql1.ExecQuery("select * from tst1_pic")
   rn=Rnd(0,30)
   c1.Position = rn
   h=c1.GetString("address")

   pnl_img.SetBackgroundImage(LoadBitmap(file.DirAsset,h))

[hossein92 74]

مشکل جدید پیش اومده با اینکه فایل هارو ادد کردم از قسمت فایل ولی ارور file not found میده

[پژمان نیکروان 6,055]

الان این عکسا داخل پوشه Files شما هست. درسته؟

و تو پوشه فایل همه ی عکسا با پسوند png هستن؟

تو دیتا بیس به صورت 1 و 2 و 3 و 4 و... ذخیره کنید. یعنی دیگه پسوند نذارید.

و برای لود اینکارو بکنید:

Dim rn As IntDim c1 As Cursor


Dim h As String
c1 = sql1.ExecQuery("select * from tst1_pic")
   rn=Rnd(0,30)
   c1.Position = rn
   h=c1.GetString("address")

   pnl_img.SetBackgroundImage(LoadBitmap(file.DirAssets,h&".png"))  

اگه فایل ها وجود داشته باشن لود میشن.

و در ضمن جای File.DirAssets شما s رو آخر نذاشته بودید. حالا کد بالا رو تست کنید. و کاری که گفتم بکنید.

[hossein92 74]

ممنون آقای نیکروان

مشکل حل شد

چون قبلا فایل دیتابیس ذخیره شده بود با همون قبلی کار میکرد . با یک clear data کار درست شد کد درست بود . ممنون