یه برنامه خیلی ساده نوشتم برای واکشی اطلاعات از جدول
اول مشکل این بود که وقتی به جدولم چند تا رکورد اضافه می کردم متوجه نمیشد!! و همون چند تا رکورد اول رو نشون میداد.اومدم فایل db از گوشی پاک کردم. و دوباره برنامه رو اجرا کردم.حالا همش اشکال میگیره و از برنامه میاد بیرون
Public Sub WithfldID
If File.Exists(File.DirInternal,"Mydb.db")=False Then
File.Copy(File.DirAssets,"Mydb.db",File.DirInternal,"Mydb.db")
End If
If Sql1.IsInitialized=False Then
Sql1.Initialize(File.DirInternal,"Mydb.db",False)
End If
Dim Cur1 As Cursor
Cur1=Sql1.ExecQuery("select fld1 from tbl1")
For i=0 To Cur1.RowCount-1
Cur1.Position=i
Msgbox(Cur1.GetString("fld1"),"")
Next
Cur1.Close
End Sub
اشکالی هم که میگیره اینه
java.io.FileNotFoundException: /mnt/sdcard/Android/data/b4a.example/files/virtual_assets/Mydb.db (No such file or directory)
سوال
hooooman 11
سلام
یه برنامه خیلی ساده نوشتم برای واکشی اطلاعات از جدول
اول مشکل این بود که وقتی به جدولم چند تا رکورد اضافه می کردم متوجه نمیشد!! و همون چند تا رکورد اول رو نشون میداد.اومدم فایل db از گوشی پاک کردم. و دوباره برنامه رو اجرا کردم.حالا همش اشکال میگیره و از برنامه میاد بیرون
Public Sub WithfldID If File.Exists(File.DirInternal,"Mydb.db")=False Then File.Copy(File.DirAssets,"Mydb.db",File.DirInternal,"Mydb.db") End If If Sql1.IsInitialized=False Then Sql1.Initialize(File.DirInternal,"Mydb.db",False) End If Dim Cur1 As Cursor Cur1=Sql1.ExecQuery("select fld1 from tbl1") For i=0 To Cur1.RowCount-1 Cur1.Position=i Msgbox(Cur1.GetString("fld1"),"") Next Cur1.Close End Subاشکالی هم که میگیره اینه
لینک ارسال
به اشتراک گذاری در سایت های دیگر
14 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.