以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于“自行编码合并外部数据”  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172189)
--  作者：winwtj
--  发布时间：2021/9/28 17:18:00
--  关于“自行编码合并外部数据”
在帮助文件“sql应用实例”里有讲到合并外部数据的例子：例如项目中有一个员工表，要从一个外部文件中合并数据到这个员工表中，希望在合并过程中检查身份证号码，如果员工表已经存在相同身份证号码的行，则跳过此行。

假定被合并的表和员工表的结构相同，代码如下：


Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "SE LECT * From {员工}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.DataRows
    If DataTables("员工").Find("身份证号码 = \'" & dr("身份证号码") & "\'") Is Nothing Then
        Dim nr As DataRow = DataTables("员工").AddNew()
        For Each dc As DataCol In dt.DataCols
            nr(dc.name) = dr(dc.name)
        Next
    End If
Next
那么如果外部文件是一个access的数据文件，如何设置数据源，是利用代码设置一个临时的数据源吗？
--  作者：有点蓝
--  发布时间：2021/9/28 17:32:00
--  
直接在菜单里添加数据源。或者利用代码设置一个临时的数据源都可以。