老师:
您 好!
我是SQL数据库,不是Access数据库,
SQL数据库可不可以向Access数据库这样合并数据?
请老师指教!!!
谢谢!!!
Dim ex As
New
Exporter
ex.SourceTableName =
"订单"
ex.FilePath = "c:\temp\gd.mdb"
ex.Filter = "日期 = #" & Date.Today &
"#"
If FileSys.FileExists(ex.FilePath) Then '如果目标文件已经存在
FileSys.DeleteFile(ex.FilePath) '则删除之
End If
ex.Export()
'上传到FTP服务器
Dim
ftp1 As
new
ftpclient
ftp1.host="ftp.baidu.com"
ftp1.Account
= "foxtable"
ftp1.password = "168168"
ftp1.upload(ex.FilePath,"/gd.mdb",True) '上传
Dim mg As
New
Merger
mg.SourcePath =
"c:\temp\gd.mdb"
mg.SourceTableName =
"订单"
mg.DataTableName = "订单"
mg.Merge()
Filesys.DeleteFile("c:\temp\gd.mdb") '合并后删除下载文件
[此贴子已经被作者于2019/4/28 23:24:03编辑过]