根据工作表批量更新Access数据库并向数据库添加不存在的记录(不使用循环)

shun2233

zhaogang1960 发表于 2015-8-13 17:40
下面语句没有问题：
    SQL = "update " & myTable & " a,[Excel 12.0;Database=" & ActiveWorkbook.Ful ...

"update " & myTable & " a,[Excel 12.0;Database=" & ActiveWorkbook.FullName & "].[数据$"   & Range("a1").CurrentRegion.Address(0, 0) & "] b set a.学生编号=b.编号更正 where a.学生编号=b.学生编号"


移植到2010就出错提示，不知何原因

知道了，加了个 imex=0; 后通过了，谢谢了

Will.li

请问赵老师，假如where 条件语句中b表的字段有重复的话是怎么更新数据的呢（a中的一条记录对应b中的多条记录）？以第一条数据为准吗？

    '生成更新SQL语句
    SQL = "update " & myTable & " a,[Excel 8.0;Database=" & ActiveWorkbook.FullName & "].[数据$" _
        & Range("a1").CurrentRegion.Address(0, 0) & "] b set " & Mid(strTemp, 2) & " where a.学生编号=b.学生编号"
    cnn.Execute SQL '不判断，更新可能存在的“学生编号”

zhaogang1960

Will.li 发表于 2015-12-10 10:19
请问赵老师，假如where 条件语句中b表的字段有重复的话是怎么更新数据的呢（a中的一条记录对应b中的多条记 ...

估计更新最后一条记录，这种情况应该避免

Will.li

zhaogang1960 发表于 2015-12-10 12:23
估计更新最后一条记录，这种情况应该避免

我刚才测试了一下，是用的第一条的数据更新的。

jhzghua

下载学习，正好要用到，太谢谢了

szqsunny

赵老师，能不能帮忙解释下，Sql = "update " & myTable & " a,[Excel 8.0;Database=" & ActiveWorkbook.FullName & "].[Sheet1$" & Range("a1").CurrentRegion.Address(0, 0) & "] b set " & Mid(strTemp, 2) & " where a.学生编码=b。学生编码"，我只能看懂是学生编码一致时，做出更新，但是从代码:&myTable & " a,[Excel 8.0;Database=" & ActiveWorkbook.FullName & "].[Sheet1$" & Range("a1").CurrentRegion.Address(0, 0) & "] b set " & Mid(strTemp, 2) &这里我实在看不懂

zhaogang1960

szqsunny 发表于 2016-3-30 19:37
赵老师，能不能帮忙解释下，Sql = "update " & myTable & " a,[Excel 8.0;Database=" & ActiveWorkbook.Ful ...

用实例说话吧，假设只有3个字段：学生编码、字段2、字段3，数据区域为A1:C20，程序所在工作簿全名是E:\Book1.xls

Sql = "update " & myTable & " a,[Excel 8.0;Database=E:\Book1.xls].[Sheet1$A1:C20] b set a.字段2=b.字段2,a.字段3=b.字段3 where a.学生编码=b.学生编码"

afdadas

想学ado和sql，在哪学？

plc123

赵老师你好，根据工作表批量更新Access数据库并向数据库添加不存在的记录(不使用循环)。我用后想把重复字段设置为家庭电话，由于有固定电话，开头为0，修改为文本型后出现，表达式类型不匹配，请问如何修改。谢谢

zhaogang1960

plc123 发表于 2016-4-12 22:23
赵老师你好，根据工作表批量更新Access数据库并向数据库添加不存在的记录(不使用循环)。我用后想把重复字段 ...

数据库该字段设置为文本类型