以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  回写数据至SQL SERVER  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105934)

--  作者:1186
--  发布时间:2017/8/29 15:07:00
--  回写数据至SQL SERVER

图片点击可在新窗口打开查看此主题相关图片如下:201772914324799252.png
图片点击可在新窗口打开查看
平时对这四个字段进行数据维护,而维护后的数据存放在狐狸数据库,现想把这四个字段的值,通过一个按钮更新到SQL SERVER数据库里,有没有什么办法可以解决?
--  作者:chen3728060
--  发布时间:2017/8/29 15:09:00
--  
遍历行,然后SqlReplaceFor,好像只能这样
--  作者:有点甜
--  发布时间:2017/8/29 15:46:00
--  

查找修改保存

 

http://www.foxtable.com/webhelp/scr/2901.htm

 


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

 

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

 

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


--  作者:1186
--  发布时间:2017/8/31 10:24:00
--  
以下是引用有点甜在2017/8/31 9:01:00的发言:

 

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

 

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

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


--  作者:有点甜
--  发布时间:2017/8/31 10:28:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2137.htm

 


--  作者:1186
--  发布时间: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编辑过]

--  作者:有点蓝
--  发布时间: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