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

[mohsen.gh 48]

سلام من اینجوری دیتابیسم رو فراخوانی کردم ولی موقع اجرا برنامه خطا میده و میگه که برنامه در این لاین متوقف میشه

cursor1 = SQL1.ExecQuery("SELECT sms FROM smstb")

اینم سورسش

Sub Activity_Create(FirstTime As Boolean)
    If File.Exists(File.DirInternal,"data") = False Then
    File.Copy(File.DirAssets,"data",File.DirInternal,"data")
    End If
    
    If SQL1.IsInitialized = False Then
    SQL1.Initialize(File.DirInternal,"data",True)
    End If
cursor1 = SQL1.ExecQuery("SELECT sms FROM smstb")

    myfont = Typeface.LoadFromAssets("BNazanin.ttf")
    Activity.LoadLayout("sv")
    For i=0 To cursor1.RowCount-1
    cursor1.Position=i
    text= cursor1.GetString("sms")
    ScrollView1.Panel.Color = Colors.Transparent
    Dim p1 As Panel
    p1.Initialize("")
    p1.LoadLayout("main")
    ScrollView1.Panel.AddView(p1,0,panelHeight,100%x,100dip)
    Label4.Text="فیلم و سریال ایرانی"
    Label4.Typeface=Typeface.LoadFromAssets("BTitrTGEBold.ttf")
    
    btncopy.Tag = i
    btnshare.Tag = i
    btnfavorite.Tag = i
    btnnumber.Text = i + 1
    btnnumber.Typeface = Typeface.LoadFromAssets("BNazanin.ttf")
    
    ht=art(text,Label1,myfont,20)
    Label1.TextColor=Colors.LightGray
    p1.Height=ht+70dip
    panelHeight=panelHeight+70dip
    Next
    ScrollView1.Panel.Height=panelHeight
    Label5.Text="فیلم و سریال ایرانی"
    Label5.Typeface = Typeface.LoadFromAssets("BTitrTGEBold.ttf")
    
End Sub

لطفا اشکال کار رو بهم بگید ممنون

[Kazem Forghani 2,928]

سلام.

بفرمایید سورس رو تعمیر کردم  : http://s6.picofile.com/file/8199405100/sourc.rar.html

اگر مشکلی داشت بگید ...

[mohsen.gh 48]

بنده خودم بارها پیش اومده دیتابیس رو اصلا براش پسوند نگذاشتم یا اصلا پسوند رو مثلا گذاشتم iz !

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

If File.Exists(File.DirInternal,"salamat.f2mi") = False Then

به نظرم یک ایراد بسیار کوچک در کار شما وجود داره که بدون پیوست سورس خطایابی دقیقتش خیلی خیلی سخته.

ببخشید باعث زحمتتون شدم اینم سورس فایل ممنون میشم کمکم کنید

sourc.zip

[Nemesis 1,846]

1.شما فایل دیتابیس استفاده میکنید و نامشو data گداشتید در زمان initialize اون رو کامل معرفی کینید

        If File.Exists(File.DirInternal,"data.db") = False Then
        File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db")
    End If

2.بنده در تصویر ستون sms نمیبینم در زمان مقدار دهی کرسر از * استفاده کنید

cursor1 = SQL1.ExecQuery("SELECT * FROM smstb")

[mohsen.gh 48]

کسی نیست کمک کنه؟؟؟؟

[mohsen.gh 48]

یکی کمک کنه لطفا

[مهدی ایزدی 9,203]

درود

لطفا عکس از خطایی که در شبیه شاز نمایش داده میشه هم قرار بدید !

[mohsen.gh 48]

درود

لطفا عکس از خطایی که در شبیه شاز نمایش داده میشه هم قرار بدید !

سلام عکس خطا و دیتابیس و سورس رو پیوست کردم راهنمایی کنید لطفا

[مهدی ایزدی 9,203]

موقع Initialize کردن

اون True رو به False تغییر بدید

نتیجه رو گزارش بدید !

[mohsen.gh 48]

موقع Initialize کردن

اون True رو به False تغییر بدید

نتیجه رو گزارش بدید !

نه داداش فایده ای نداشت بازم همون ارور رو میده

[مهدی ایزدی 9,203]

امکان پیوست سورس براتون وجود داره ؟

کد نویسی واقعا هیچ مشکلی نداره

فوق العاده عجیبه این مسئله !

[جواد زبیدی زاده 570]

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

 If File.Exists(File.DirInternal,"data") = False Then
    File.Copy(File.DirAssets,"data",File.DirInternal,"data")
    End If
    

به این صورت 

 If File.Exists(File.DirInternal,"data.sqlite") = False Then
    File.Copy(File.DirAssets,"data.sqlite",File.DirInternal,"data.sqlite")
    End If

[مهدی ایزدی 9,203]

بنده خودم بارها پیش اومده دیتابیس رو اصلا براش پسوند نگذاشتم یا اصلا پسوند رو مثلا گذاشتم iz !

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

If File.Exists(File.DirInternal,"salamat.f2mi") = False Then

به نظرم یک ایراد بسیار کوچک در کار شما وجود داره که بدون پیوست سورس خطایابی دقیقتش خیلی خیلی سخته.