Dim Conn As New ADODB.Connection
Conn.Open "Provider='Microsoft.Jet.OLEDB.4.0';Data Source= 'E:\芝租赁\数据库\物业资料2010版BETA.accdb';"
一运行就显示“不可识别的数据库格式'E:\芝租赁\数据库\物业资料2010版BETA.accdb“
Conn.Open "Provider='Microsoft.ACE.OLEDB.12.0';" _
& ";Data Source= 'E:\芝租赁\数据库\物业资料2010版BETA.accdb';"
strSQL = "UPDATE 租赁合同基本资料 SET 合同状态 = 1 " _
& "WHERE 合同编号ID = " & Me.预订合同查询子窗体!合同编号ID
Conn.Execute strSQL
.........
改成这样后,显示“至少一个参数没有指定值”,请帮忙再看看
不大确定 “至少一个参数没有指定值”, 这个错误原因, 是连接的时候, 没有传入呢。
还是 UPDATE 的时候有问题。
你可以先 把那个 strSQL 赋值为 "SELECT 1 "
再执行一下, 看看是那个 连接字符串有问题? 还是 UPDATE 的 SQL 有问题。