Foxtable(狐表)用户栏目专家坐堂 → 两个外部数据源之间的更新


  共有2349人关注过本帖树形打印复制链接

主题:两个外部数据源之间的更新

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/5 16:43:00 [显示全部帖子]

如果都是sqlserver数据库,就好办。

 

不然,就要用代码解决,如 http://www.foxtable.com/help/topics/2137.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/5 16:50:00 [显示全部帖子]

Dim cmd1 As New  SQLCommand
Dim cmd2 As New  SQLCommand
Dim dt1 As DataTable
Dim dt2 As DataTable
Dim sCols() As String = {"列名1", "列名2", "列名3"}
Dim  dCols()  As  String = {"列名A", "列名B", "列名C"}
cmd1.ConnectionName = "1"
cmd2.ConnectionName = "2"
cmd1.CommandText = "S        ELECT * From {员工}"
cmd2.CommandText = "S        ELECT * From {员工}"
dt1 =  cmd1.ExecuteReader()
dt2 =  cmd2.ExecuteReader()

For Each dr As DataRow In dt1.DataRows
    Dim nr As DataRow = dt2.AddNew()
    For i As Integer =0 To sCols.Length -1
        nr(dCols(i)) = dr(sCols(i))
    Next
Next


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/5 17:25:00 [显示全部帖子]

哦,要这样

 

dt1 =  cmd1.ExecuteReader(true)
dt2 =  cmd2.ExecuteReader(true)

 

最后要保存一下的

 

dt2.Save


 回到顶部