Foxtable(狐表)用户栏目专家坐堂 → 回写数据至SQL SERVER


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

主题:回写数据至SQL SERVER

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


加好友 发短信
等级:婴狐 帖子:47 积分:383 威望:0 精华:0 注册:2017/8/5 12:49:00
回写数据至SQL SERVER  发帖心情 Post By:2017/8/29 15:07:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:201772914324799252.png
图片点击可在新窗口打开查看
平时对这四个字段进行数据维护,而维护后的数据存放在狐狸数据库,现想把这四个字段的值,通过一个按钮更新到SQL SERVER数据库里,有没有什么办法可以解决?

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


加好友 发短信
等级:二尾狐 帖子:388 积分:5098 威望:0 精华:0 注册:2013/11/2 0:01:00
  发帖心情 Post By:2017/8/29 15:09:00 [只看该作者]

遍历行,然后SqlReplaceFor,好像只能这样

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/29 15:46:00 [只看该作者]


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


加好友 发短信
等级:婴狐 帖子:47 积分:383 威望:0 精华:0 注册:2017/8/5 12:49:00
  发帖心情 Post By:2017/8/31 8:51:00 [只看该作者]

有没有办法把SQL数据和狐狸数据进行比较,不同的数据更新到SQL去。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/31 9:01:00 [只看该作者]

以下是引用1186在2017/8/31 8:51:00的发言:
有没有办法把SQL数据和狐狸数据进行比较,不同的数据更新到SQL去。

 

把你的sql数据表添加到foxtable。

 

编写代码查找和对比不同,然后赋值。


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


加好友 发短信
等级:婴狐 帖子:47 积分:383 威望:0 精华:0 注册:2017/8/5 12:49:00
  发帖心情 Post By:2017/8/31 10:24:00 [只看该作者]

以下是引用有点甜在2017/8/31 9:01:00的发言:

 

把你的sql数据表添加到foxtable。

 

编写代码查找和对比不同,然后赋值。

这个有没有代码可以参考下


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/31 10:28:00 [只看该作者]


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


加好友 发短信
等级:婴狐 帖子:47 积分:383 威望:0 精华:0 注册:2017/8/5 12:49:00
  发帖心情 Post By:2017/9/2 9:54:00 [只看该作者]

Dim cmd As New  SQLCommand
 Dim dt As DataTable
 Dim sCols() As String = {"业务数量", "已发货数量"}
 Dim  dCols()  As  String = {"BUSINESS_QTY", "DELIVER_BUSINESS_QTY"} 
 cmd.C
cmd.CommandText = "select [DOC_NO],{SALES_ORDER_DOC_SD}.[BUSINESS_QTY],[DELIVER_BUSINESS_QTY] fro m {SALES_ORDER_DOC_D} left JOIN {SALES_ORDER_DOC} ON {SALES_ORDER_DOC}.[SALES_ORDER_DOC_ID] = {SALES_ORDER_DOC_D}.[SALES_ORDER_DOC_ID] Inner JOIN {SALES_ORDER_DOC_SD} ON {SALES_ORDER_DOC_SD}.[SALES_ORDER_DOC_D_ID] = {SALES_ORDER_DOC_D}.[SALES_ORDER_DOC_D_ID] "
dt =  cmd.ExecuteReader()
 For Each dr As DataRow In dt.DataRows
     Dim nr As DataRow = DataTables("员工").AddNew()
     For i As Integer =0 To sCols.Length -1
          nr(dCols(i)) = dr(sCols(i))
     Next
 Next

 

这部分代码可以实现数据表数据与SQL SERVER数据库数据的对比吗?


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170902100120.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/9/2 10:01:59编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110624 积分:563022 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/9/2 10:17:00 [只看该作者]

这是赋值,不是比较

Dim cmd As New  SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "xx"
cmd.CommandText = "select * from 表B"
dt =  cmd.ExecuteReader(True)
For Each dr As DataRow In DataTables("表A")..DataRows
    Dim nr As DataRow = dt.Find("xxx条件")
    If nr IsNot Nothing Then
        nr("第一列") = dr("第一列")
    End If
Next
dt.Save

 回到顶部