فراخوانی متن از دیتا بیس

[meysam313 0]

با سلاممن میخوام یک متن رو از دیتابیس فراخونی کنم. کدهای زیر رو نوشتم ، اسکرول ویو میاد ولی متنی توی لیبلش نیست ارورم نمیده میخواستن علتش و بدونم.

    Dim cur As Cursor
    Dim sv As ScrollView
    Dim sq As SQL
    Dim lbl1 As Label
    sv.Initialize(100dip)
    lbl1.Initialize("lbl1")
    Activity.RemoveAllViews
    Activity.LoadLayout("lmosghor")
    
    sv.Panel.LoadLayout("lmosghor2")
    
    sq.Initialize(File.DirInternal,"data.db" ,True)
        
    cur=sq.ExecQuery("SELECT matn FROM tblmatlab WHERE fehid=1")
    cur.Position=0
    sv.Panel.RemoveAllViews
    sv.Panel.AddView(lbl1,12%x , 4%y , 95%x , 100%y)
    lbl1.Enabled=True
    lbl1.Text=cur.GetString("matn")
    lbl1.Color=Colors.White
    lbl1.TextColor=Colors.Black

    

[Javad25564 10]

در در 1397/10/14, 13:13:17، meysam313 گفته است :

با سلاممن میخوام یک متن رو از دیتابیس فراخونی کنم. کدهای زیر رو نوشتم ، اسکرول ویو میاد ولی متنی توی لیبلش نیست ارورم نمیده میخواستن علتش و بدونم.

    Dim cur As Cursor
    Dim sv As ScrollView
    Dim sq As SQL
    Dim lbl1 As Label
    sv.Initialize(100dip)
    lbl1.Initialize("lbl1")
    Activity.RemoveAllViews
    Activity.LoadLayout("lmosghor")
    
    sv.Panel.LoadLayout("lmosghor2")
    
    sq.Initialize(File.DirInternal,"data.db" ,True)
        
    cur=sq.ExecQuery("SELECT matn FROM tblmatlab WHERE fehid=1")
    cur.Position=0
    sv.Panel.RemoveAllViews
    sv.Panel.AddView(lbl1,12%x , 4%y , 95%x , 100%y)
    lbl1.Enabled=True
    lbl1.Text=cur.GetString("matn")
    lbl1.Color=Colors.White
    lbl1.TextColor=Colors.Black

    

من توی سورستون ندیدم که دیتتبیس را کپی کرده باشید توی فایل گوشی.چک کنید

[meysam313 0]

چرا توی Activity_Create نوشتم اینم کدش. کد بالا رو توی button نوشتم

ub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("lfehrest2")

    If FirstTime=True  Then
        
        If File.Exists(File.DirInternal , "data.db") = False Then
            File.Copy(File.DirAssets , "data.db" , File.DirInternal , "data.db")
            
        End If
        If sq.IsInitialized = False Then
            sq.Initialize(File.DirInternal,"data.db" ,True)
            
        End If

        
End If

End Sub

[rezac 13]

چرا در دوقسمت مختلف از کد activity.removeAllViews استفاده کردید؟

با این کد هر ویو که در صفحه ساخته شده باشه از بین میره