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

[qashqaie 19]

سلام

برای قسمتی از برنامه نیاز دارم که از دیتابیس 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

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

 

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

[qashqaie 19]

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

 

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

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

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

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

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

[salmana 174]

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