System.Data.SQLite.SQLiteException尝试在Windows 8上编写只读数据库

Question

我开发了一个工作正常的应用程序<= Windows 7.它使用带有VB和C#的SQLlite数据库.但是在Windows 8上(从未在其他Windows操作系统上遇到此特定问题)尝试写入数据库时​​出现问题

System.Data.SQLite.SQLiteException: Attempt to write a read-only database

我在Windows 8 pc上创建了数据库文件,如:

 Try
     If (Not File.Exists(System.Environment.CurrentDirectory & "\MY_DB.db")) Then
                Dim conn = New SQLite.SQLiteConnection("Version=3;New=True;Compress=False;Read Only=False;Data Source=" & System.Environment.CurrentDirectory & "\MY_DB.db")
                conn.Open()
                '...DO STUFF  
                conn.Close()
                conn.Dispose()
                conn = Nothing
     End If

 Catch ex As Exception
            'Throw ex
            Return False
 End Try

但没有奏效.

所以基本上我尝试过:

1. Read Only=False在创建db文件时添加但不起作用.
2. 数据库所在的文件夹必须具有写入权限以及实际的数据库文件.所以,它没有工作(在Windows 7上看起来像).

我该怎么做才能使数据库可写？

Answer 1

我不知道你电话的当前目录是什么,但我肯定会把我的数据库放在一个文件夹中,每个用户都有设计的读/写权限.

为什么不使用Environment.SpecialFolder枚举表示的文件夹？

您可以将代码更改为这样的代码

 Try
      Dim appFolder = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData)
      appFolder = Path.Combine(appFolder, "MyAppDatabaseFolder")
      If Not Directory.Exists(appFolder) Then
           Directory.CreateDirectory(appFolder)
      End If
      Dim myDB = Path.Combine(appFolder, "MY_DB.db")
      If (Not File.Exists(myDB)) Then
          .....
      End If
 Catch ex As Exception
      'Throw ex
      Return False
 End Try