就楼上最后的一个问题,昨晚我的提问可以对你有所帮助。
我也要解决从外部数据表提取部分数据到内部表。
最后是这样处理的:
'说明:
'“测试表”为内部表,{远程}为外部数据源的表名,表结构相同。
' 连接名称为“测试”
'以上这些数据都可以按需要变更
“filler”是加载数据至某表,而不是“添加”。
’实现了按条件把外部数据源的数据“添加”至“测试表”:
'增加新数据
'先把数据加载至表b
DataTables("表b").Fill("Select * From {远程} where [datetime] >= #" & StartDate & "# And [datetime] < #" & EndDate & "#" , "测试",False)
'再接受数据
Dim f As New Filler
f.SourceTable = DataTables("表b") '指定数据来源
f.SourceCols = "jqno,datetime" '指定数据来源列
f.DataTable = DataTables("测试表") '指定数据接收表
f.DataCols = "jqno,datetime" '指定数据接收列
f.Fill() '填充数据
DataTables("测试表").Save