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

ایرادیابی کد فراخوانی دیتابیس


qashqaie

سوال

سلام

برای قسمتی از برنامه نیاز دارم که از دیتابیس 3 اطلاعات بگیرم و به صورت لیست وار پشت سر هم نشون بدم.

 

الان اومدم یک Table با نام Khabarnegaran  ساختم و 4 عدد فیلد با نامهای code,name,matlab2,pic قرار دادم.

سپس در بیسیک اومدم با کلیک بر روی یک گزینه layout رو فراخوانی کردم و کدها را نوشتم.ولی موقع اجرا میاد ProgressDialogShow2 رو نشون میده و دیگه روی همین میمونه و چیز دیگه ای نشون داده نمیشه،بدون هیچ اروری...!

 

کدهای بیسیک هم از این قرار هست:

Sub khabarnegar_Click
	Activity.LoadLayout("Khabarnegaran")
	ProgressDialogShow2("لطفا چند لحظه تامل فرمایید",True)
	If File.Exists(File.DirAssets,"khabarnegar.db") Then
	File.Copy(File.DirAssets,"khabarnegaran.db",File.DirInternal,"khabarnegaran.db")
	If sql1.IsInitialized=False Then
	sql1.Initialize(File.DirInternal,"khabarnegaran.db",False)	
    End If
	cursor1 = sql1.ExecQuery("SELECT * FROM khabarnegaran")
	For i=0 To cursor1.RowCount-1
    cursor1.Position=i
	ListView1.AddTwoLinesAndBitmap2(cursor1.GetString("name"),cursor1.GetString("matalb2"),LoadBitmap(File.DirAssets,cursor1.GetString("pic")),"")
	 
    Dim img As ImageView
    img = ListView1.TwoLinesAndBitmap.ImageView
    img.Left = Activity.Width - img.Width -  10%x 

    Dim lbl As Label
    lbl = ListView1.TwoLinesAndBitmap.Label
    lbl.Gravity = Gravity.RIGHT
    lbl.Left=lbl.Left-10dip
    lbl.Typeface = Typeface.LoadFromAssets("yekan.ttf")
    lbl.TextColor = Colors.RGB(9,135,255)
    Dim lbl2 As Label
    lbl2 = ListView1.TwoLinesAndBitmap.SecondLabel
    lbl2.Gravity = Gravity.RIGHT
    lbl2.Left=lbl.Left
    lbl2.Typeface = Typeface.LoadFromAssets("yekan.ttf")
    lbl2.TextColor = Colors.RGB(61,61,61)
Next	
	End If
 End Sub

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

 

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

post-1211-0-71739300-1445897353_thumb.png

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

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

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

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

 

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

یکی دیگه از ایرادها غلط تایپی بود در فراخوانی از دیتابیس

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

If File.Exists(File.DirAssets,"khabarnegar.db") Then
	If sql1.IsInitialized=False Then
    End If

حالا اگر من بخوام همین دیتابیسم رو از طریق گزینه ای هر از چند گاهی از طریق هاست دانلود و جایگزین دیتابیس قبلی کنم به چه شکل باید عمل کنم!؟

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

ابتدا توی انجمن largefiledownload رو سرچ بزن.کارش اینه که میاد یک فایل رو دانلود میکنه. میرید سورسش رو باز میکنین و مسیر هاست خودت رو بده و بعد مسیر ذخیره شده اش رو هم برابر مسیری بده که دیتابیست اونجاست

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

بایگانی شده

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

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

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