Foxtable(狐表) → 用户栏目 → 专家坐堂 → 跨数据库取数


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

主题：跨数据库取数
帅哥哟，离线，有人找我吗？
zhuxinhui
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1827 积分：5010 威望：0 精华：0 注册：2017/11/8 17:37:00 		跨数据库取数  发帖心情 Post By：2021/4/6 16:17:00 [只看该作者]

现在有两个数据库都是ACCESS，数据库放在局域网的主机里，我又不想把二个数据源加载在一起，现在想A数据库的B表直接采另一个数据库的C表的数，有什么办法可以直接采取呢????

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/4/6 16:39:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
zhuxinhui
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1827 积分：5010 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2021/4/6 19:49:00 [只看该作者]

已学习了

 回到顶部
帅哥哟，离线，有人找我吗？
zhuxinhui
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1827 积分：5010 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2021/4/6 19:51:00 [只看该作者]

我想采集数据后，在外部表相应行的列注上备注，这个要怎样写

 回到顶部
帅哥哟，离线，有人找我吗？
zhuxinhui
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1827 积分：5010 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2021/4/6 19:53:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20210406195226.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/4/6 20:52:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=69632

示例五

ExecuteReader有一个可选参数，如果设置为True，那么生成的DataTable不仅可以增加、删除和修改数据，还可以保存。
新建一个文件，在命令窗口测试下面的代码，会在A的第一行的第一列写入123，并删除第二行：

Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名称"
Dim dt As DataTable
cmd.CommandText = "Select * From {表A}"
dt = cmd.ExecuteReader(True) '记得将参数设置为True
dt.DataRows(0)("第一列") = 123
dt.DataRows(1).Delete()
dt.Save()
DataTables("表A").Load() '重新加载表A,看看值是否已经变化
 回到顶部
帅哥哟，离线，有人找我吗？
zhuxinhui
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1827 积分：5010 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2021/4/7 8:44:00 [只看该作者]

多谢
 回到顶部
帅哥哟，离线，有人找我吗？
zhuxinhui
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1827 积分：5010 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2021/4/8 9:41:00 [只看该作者]

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim sCols() As String = {"单据编码","客户全称","单据类型","送货日期","货品编码","产品名称","规格","单位","数量","含税单价","含税金额","税率","不含税金额","税额","合同号"}
Dim dCols() As String = {"单号","往来名称","单据类型","日期","货物编码","货物名称","规格","单位","数量","含税单价","含税金额","税率","不含税金额","税额","合同号"}
cmd.C
cmd.CommandText = "SELECT * Fr om {销售明细}"
dt = cmd.ExecuteReader(True)

'For Each dr1 As DataRow In DataTables("销售开单").Select("[会计年度] Is not null")

'For Each dr As DataRow In dt.DataRows
'If dr("过帐") = Nothing  Then
'Dim nr As DataRow = DataTables("销售明细").AddNew()
'For i As Integer =0 To sCols.Length -1
'nr(dCols(i)) = dr(sCols(i))
'Next
'dr("过帐") = 123
'End If
'Next


这样还是不行
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/4/8 10:15:00 [只看该作者]

没有保存

cmd.CommandText = "SELECT * From {销售明细} where 过帐 is null"
dt = cmd.ExecuteReader(True)

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
    dr("过帐") = 123
Next

dt.save
 回到顶部
帅哥哟，离线，有人找我吗？
zhuxinhui
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1827 积分：5010 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2021/4/8 10:29:00 [只看该作者]

多谢
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询