sql update, 提示“操作必须是一个可更新的查询”，请帮看看哪里错了？

tyxvba7529 · 发表于 2017-2-9 11:46

本帖最后由 tyxvba7529 于 2017-2-9 11:47 编辑

sql update, 提示“操作必须是一个可更新的查询”，哪里错了？

Sub 替换箱号2()
Dim mydata As New 类1
Dim sql As String
sql = "update [box2$] A,[123$A1:B11] B set A.箱号=B.new where A.箱号=B.old and 项目号='A'"
mydata.执行sql命令 sql
End Sub

复制代码

microyip · 发表于 2017-2-9 12:29

IMEX=0

Property Get 表()
'ECO表 = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=no;IMEX=2';Data Source=D:\DP\ECO\ECO记录表.xlsm"
'cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;HDR=yes;IMEX=2';data source=" & ThisWorkbook.FullName
表 = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=0';Data Source=" & ThisWorkbook.FullName
End Property

复制代码

tyxvba7529 · 发表于 2017-2-9 12:57

microyip 发表于 2017-2-9 12:29
IMEX=0

谢谢，原来是这里。。。

tyxvba7529 · 发表于 2017-2-9 13:04

microyip 发表于 2017-2-9 12:29
IMEX=0

请问123表的数据关系不在工作表中，能有办法转换吗？
因为这个关系是每个打开的工作簿都需要的，但在那工作簿中没这个表。

tyxvba7529 · 发表于 2017-2-9 13:31

microyip 发表于 2017-2-9 12:29
IMEX=0

找了个共享目录放这个关系表，搞定了，谢谢。

sql = "update [box$] A,[Excel 12.0;Database=" & myfile & "].[123$] B set A.箱号=B.new where A.箱号=B.old and 项目号="'A'"

复制代码

microyip · 发表于 2017-2-9 13:31

不知道你说什么

LMY123 · 发表于 2018-6-11 10:29

update [box2$] A,[123$A1:B11] B set A.箱号=B.new where A.箱号=B.old and 项目号='A',有类模块

		自动登录	找回密码
密码			免费注册

[求助] sql update, 提示“操作必须是一个可更新的查询”，请帮看看哪里错了？