من یه دیتابیس چند تیبله دارم که هرکدوم شامل چند تا لیست و متن هستن.
برای مثال : table1-table2-table3
اسم فایل دیتابیس هم همون :database
حالا مشکل من اینجاس
من از کد زیر برای هرتیبل استفاده کردم:
If File.Exists(File.DirInternal,"database.db") = False Then
("File.Copy(File.DirAssets,"database.db",File.DirInternal,"database.db
End If
If SQL1.IsInitialized = False Then
(SQL1.Initialize(File.DirInternal,"database.db",True
End If
Dim cur As Cursor
("cur = SQL1.ExecQuery("SELECT * FROM table3
For i = 0 To cur.RowCount - 1
cur.Position = i
(("ListView1.AddSingleLine2(cur.GetString("LIST"),cur.GetInt("ID
Next
برای دو تیبل 1 و 2 درست کار میکنه.
اما برای تیبل 3 داخل برنامه وقتی رو گزینش کلیک میشه این خطا رو میده:
ناگفته نماند یه بار برای table2 اتفاق افتاد ولی دیتابیسو یبار از تو بیسیک حذف کردم دوباره گذاشتم درست شد.
اما اینبار چند بار حذف کردم دوباره ریختم اما نمیشه.
اینم بگم که اول دیتابیسم یه تیبل داشت و بعد بهش اضافه کردم.
هربارم که تیبل بهش اضافه میکردم از بیسیک فایلشو کلا حذف میکردم و دوباره میریختم.
سوال
ghost 70
سلام
من یه دیتابیس چند تیبله دارم که هرکدوم شامل چند تا لیست و متن هستن.
برای مثال : table1-table2-table3
اسم فایل دیتابیس هم همون :database
حالا مشکل من اینجاس
من از کد زیر برای هرتیبل استفاده کردم:
برای دو تیبل 1 و 2 درست کار میکنه.
اما برای تیبل 3 داخل برنامه وقتی رو گزینش کلیک میشه این خطا رو میده:
ناگفته نماند یه بار برای table2 اتفاق افتاد ولی دیتابیسو یبار از تو بیسیک حذف کردم دوباره گذاشتم درست شد.
اما اینبار چند بار حذف کردم دوباره ریختم اما نمیشه.
اینم بگم که اول دیتابیسم یه تیبل داشت و بعد بهش اضافه کردم.
هربارم که تیبل بهش اضافه میکردم از بیسیک فایلشو کلا حذف میکردم و دوباره میریختم.
پیشاپیش مچکر
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.