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

bjdzdy

谢谢赵老师

li720608

正在学ACCESS,下载学习！

ruxuehuayu

谢谢大神，努力学中

fantom-fighter

mark 一下，慢慢学习~~~~

bjyunfei

下载学习，谢谢赵老师。

zoujialing

超版，请教一个问题，如果我的表格主键是由两个字段的信息组合而成的，要如何判断字段是否存在？下面SQL该怎么改？

    SQL = "select a.* from [Excel 12.0;Database=" & ActiveWorkbook.FullName & "].[数据$" & Range("a1").CurrentRegion.Address(0, 0) _
        & "] a left join " & myTable & " b on a.学生编号=b.学生编号 where b.学生编号 is null"

zhaogang1960

zoujialing 发表于 2014-6-11 17:34
超版，请教一个问题，如果我的表格主键是由两个字段的信息组合而成的，要如何判断字段是否存在？下面SQL该怎 ...

1. Sql = "select a.* from [Excel 12.0;Database=" & ActiveWorkbook.FullName & "].[数据$" & Range("a1").CurrentRegion.Address(0, 0) _
   
2.         & "] a left join " & myTable & " b on a.字段1=b.字段1 and a.字段2=b.字段2 where b.字段1 is null"
   

复制代码

zoujialing

zhaogang1960 发表于 2014-6-11 17:41

原来如此，多谢，等下回去试试

tclnxc

先收藏再说，谢谢楼主

tclnxc

请教赵老师，想将两个表中的客户名称先提取，然后得出在第三个表中不存在的名称，不知怎么组合
第一与第二表中得到的数据：StrSql = "select DISTINCT 客户名称  from [销售发票序时簿$]a where 期间 =" & ActiveSheet.Name & " Union select 客户名称 from [Excel 12.0;Database=" & datename & "].[销售发票序时簿$]b where 期间 =" & ActiveSheet.Name
第三表中的数据：StrSql = " select 客户名称 from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$] ) order by 客户名称 DESC"
中间不知道怎么连接了，请指点一下，谢谢！