خطای نوشتن روی دیتابیس

[erayan 23]

با سلام، من در مانیفست پرمیشن نوشتن هم تعریف کردم ولی مشکل نوشتن روی دیتابیس برطرف نشد! دیتابیس هم بررسی کردم قابلیت Read و write فعال هست.

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

فایل مانیفیست:

'This code will be applied to the manifest file during compilation.
'You do not need to modify it in most cases.
'See this link for for more information: http://www.basic4ppc.com/forum/showthread.php?p=78136
AddManifestText(
<uses-sdk android:minSdkVersion="6" android:targetSdkVersion="28"/>
<supports-screens android:largeScreens="true" 
    android:normalScreens="true" 
    android:smallScreens="true" 
    android:anyDensity="true"/>
    <uses-permission android:name="android.permission.INTERNET" />
    <uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE" />)
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")
SetApplicationAttribute(android:theme, "@android:style/Theme.Holo.Light")
'End of default text.

 

[msd313 62]

سلام دوست عزیز لطفاً کدهای مربوط به دیتا بیس و مخصوصا دکمه علاقمندی رو بذار تا بتونیم کمک کنیم

[erayan 23]

در 5 ساعت قبل، msd313 گفته است :

سلام دوست عزیز لطفاً کدهای مربوط به دیتا بیس و مخصوصا دکمه علاقمندی رو بذار تا بتونیم کمک کنیم

 

	If File.Exists (File.DirInternal,"alin.db") = True Then
	File.Delete(File.DirInternal,"alin.db")
	End If
	
	 	If File.Exists (File.DirInternal,"alin.db") = False Then
	File.Copy(File.DirAssets,"alin.db",File.DirInternal,"alin.db")
	End If
	
	If menu.s.isinitialized=False Then
	 menu.s.initialize (File.Dirinternal,"alin.db",True)
	End If
	Dim cur As Cursor
	cur =  menu.s.ExecQuery ("SELECT * FROM main WHERE id= "&menu.fasl)
	cur.Position=0
	

	If cur.Getint("mark") = 0 Then
	bookmark_add.Visible = False
	Else
	bookmark_add.Visible = True
	End If

	
Sub bookmark_Click

Dim cur As Cursor
	cur =  menu.s.ExecQuery ("SELECT * FROM main WHERE id= "&menu.fasl)
	cur.Position=0
	If bookmark_add.Visible = False Then
	
		menu.s.ExecNonQuery("UPDATE main SET mark=1 WHERE id="&menu.fasl)
    	bookmark_add.Visible = True
		ToastMessageShow("به علاقه مندی ها اضافه شد",False)
	Else
		menu.s.ExecNonQuery("UPDATE main SET mark=0 WHERE id="&menu.fasl)
    	bookmark_add.Visible = False
		ToastMessageShow("از علاقه مندی ها حذف شد",False)
	End If
	
End Sub