سلام دوستان موقع اجرا جدول دوم از یک دیتابیس در یک اکتیویتی مجزا با این خطلا موجه می شم اگه دوستان راهنمایی کنند ممنون می شم android.database.sqlite.SQLiteException: no such table: dar (code 1): , while compiling: SELECT * FROM dar پایین هم سورسی که ایراد میگیره
Sub Process_Globals
Dim sql1 As SQL
End Sub
Sub Globals
Dim cur2 As Cursor
Private AutoCompleteEditText1 As AutoCompleteEditText
Private AutoCompleteEditText2 As AutoCompleteEditText
Private EditText1 As EditText
Private EditText2 As EditText
Private Label1 As Label
Private Label2 As Label
Private Label3 As Label
Private Spinner1 As Spinner
Private Spinner2 As Spinner
Private Spinner3 As Spinner
Private Label4 As Label
Private ListView1 As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main2")
If File.Exists(File.DirInternal,"taxi.db")=False Then
File.Copy(File.DirAssets,"taxi.db",File.DirInternal,"taxi.db")
End If
sql1.Initialize(File.DirInternal,"taxi.db",False)
cur2=sql1.ExecQuery("select * from dar")
For i=0 To cur2.RowCount-1
cur2.Position=i
ListView1.AddSingleLine(cur2.GetInt("id") &"|"&cur2.GetString("tarikh") &"|"&cur2.GetString("mosafer") &"|"&cur2.GetString("maghsad") &"|"&cur2.GetString("keraye") &"|"&cur2.GetString("com"))
Next
End Sub
سوال
imanarman 2
سلام دوستان موقع اجرا جدول دوم از یک دیتابیس در یک اکتیویتی مجزا با این خطلا موجه می شم اگه دوستان راهنمایی کنند ممنون می شم
android.database.sqlite.SQLiteException: no such table: dar (code 1): , while compiling: SELECT * FROM dar
پایین هم سورسی که ایراد میگیره
Sub Process_Globals Dim sql1 As SQL End Sub Sub Globals Dim cur2 As Cursor Private AutoCompleteEditText1 As AutoCompleteEditText Private AutoCompleteEditText2 As AutoCompleteEditText Private EditText1 As EditText Private EditText2 As EditText Private Label1 As Label Private Label2 As Label Private Label3 As Label Private Spinner1 As Spinner Private Spinner2 As Spinner Private Spinner3 As Spinner Private Label4 As Label Private ListView1 As ListView End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("main2") If File.Exists(File.DirInternal,"taxi.db")=False Then File.Copy(File.DirAssets,"taxi.db",File.DirInternal,"taxi.db") End If sql1.Initialize(File.DirInternal,"taxi.db",False) cur2=sql1.ExecQuery("select * from dar") For i=0 To cur2.RowCount-1 cur2.Position=i ListView1.AddSingleLine(cur2.GetInt("id") &"|"&cur2.GetString("tarikh") &"|"&cur2.GetString("mosafer") &"|"&cur2.GetString("maghsad") &"|"&cur2.GetString("keraye") &"|"&cur2.GetString("com")) Next End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.