对SQL数据库迁移的遗留VB6应用程序访问

Question

我公司有100多个表格的vb6应用程序。应用程序采用VB6和Access开发。现在，我的公司希望我将现有应用程序从me转换为Server。应用程序正在使用DAO与Access连接。我已经用数据将Access数据库转换为SQL。然后我改变了

Private db As Database
Set db = OpenDatabase(Access_File_Path, dbDriverComplete, False, ";pwd=access_password;")

至

Set db = OpenDatabase("", False, False, "odbc;dsn=Database_ODBC_Name")

所有select、insert、update、delete查询工作正常。

但是我在这样的线路上遇到了错误

.Recordset.AddNew
.Recordset.Delete
.Recordset.Update
.Recordset.CancelUpdate

得到错误，比如

运行时错误3027不能更新，只能读取数据库或对象

和

ODBC错误

在SQL中使用现有代码有任何解决方案或方法吗？

Answer 1

正如您的错误信息所述：

数据库是只读的，原因之一是：

• 您使用了OpenDatabase方法并打开数据库进行只读访问。
• 在中，您正在使用数据控件，并将ReadOnly属性设置为True。
• 数据库文件被定义为操作系统或网络中的只读文件.
• 数据库文件存储在只读媒体上.
• 在网络环境中，您没有数据库文件的写入权限。
• 在使用安全数据库时，数据库或其对象之一(如字段或表)可设置为只读。您可能没有使用用户名和密码访问此数据的权限。

关闭数据库，解析只读条件，然后重新打开文件以进行读写访问。