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

Question

我开发了一个运行良好的应用程序 Windows 8 上（在其他 Windows 操作系统上从未遇到过此特定问题）尝试写入数据库时​​出现问题

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

我在 Windows 8 电脑上创建了数据库文件，例如：

 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. 在创建 db 文件时添加了 Read Only=False 但不起作用。
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