VB读取access数据

Question

Dim cn As ADODB.Connection, n As Long
Set cn = New ADODB.Connection
cn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\1.mdb;" 
cn.Execute "UPDATE chk_serial SET chk_flg = 1 WHERE product_code='" & Text1 & "' AND kibam_name ='" & Text2 & "' AND serial_id = '" & Text3 & "'", n
cn.Close
Set cn = Nothing
If n Then MsgBox "Updated"

Answer 1

cn.Execute "UPDATE chk_serial SET chk_flg = 1 WHERE product_code='" & Text1 & "' AND kibam_name ='" & Text2 & "' AND serial_id = '" & Text3 & "'", n
提示不允许操作

Answer 2

检查一下你的系统是否有权限限制的设置，比如说该路径禁止文件写。还要确保没有其他应用程序独占打开它（比如你正在用 Access 看它）。试试：
cn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\1.mdb;User Id=admin;Password=;" 或者换到其他路径试试。再看看此路径或文件是否设置为“只读”。最后，你把 SQL 语句（注意把 TextBox 控件的变量都变为实际的字符串值）贴到 Acess 中执行一下。