armm1388
سه شنبه 24 مهر 1397, 18:42 عصر
با سلام
کد زیر را از سایت فرادرس پیدا کردم و در خود پروژه اش اجرا می شود ولی وقتی به پروژه خودم ضمیمه می کنم به خط اجرای کویری که می رسد برنامه بسته می شود.
If File.Exists(File.DirInternal,"story.db") = False Then
File.Copy(File.DirAssets,"story.db",File.DirInternal,"story.db")
End If
sql.Initialize(File.DirInternal,"story.db",False)
c1 = sql.ExecQuery("SELECT Sgroup , (SELECT image from tblImage WHERE tblBook.Sgroup = tblImage.Sgroup) as image from tblBook GROUP BY Sgroup")
فایل های مربوطه را هم اضافه کرده ام ولی ارور می دهد
با تشکر
کد زیر را از سایت فرادرس پیدا کردم و در خود پروژه اش اجرا می شود ولی وقتی به پروژه خودم ضمیمه می کنم به خط اجرای کویری که می رسد برنامه بسته می شود.
If File.Exists(File.DirInternal,"story.db") = False Then
File.Copy(File.DirAssets,"story.db",File.DirInternal,"story.db")
End If
sql.Initialize(File.DirInternal,"story.db",False)
c1 = sql.ExecQuery("SELECT Sgroup , (SELECT image from tblImage WHERE tblBook.Sgroup = tblImage.Sgroup) as image from tblBook GROUP BY Sgroup")
فایل های مربوطه را هم اضافه کرده ام ولی ارور می دهد
با تشکر