跨数据库取数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3508人关注过本帖树形打印复制链接主题：跨数据库取数

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/6 16:39:00 [显示全部帖子]

通过sql加载：http://www.foxtable.com/webhelp/topics/2137.htm

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：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,看看值是否已经变化

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：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))

dr("过帐") = 123

dt.save

下一主题 >> << 上一主题

主题：跨数据库取数