Foxtable(狐表)用户栏目专家坐堂 → 求助 用FTP上报数据


  共有1985人关注过本帖平板打印复制链接

主题:求助 用FTP上报数据

帅哥哟,离线,有人找我吗?
jackyfashion
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:655 积分:5085 威望:0 精华:0 注册:2013/10/7 22:27:00
求助 用FTP上报数据  发帖心情 Post By:2019/4/28 21:40:00 [只看该作者]

老师:

您 好!

我是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编辑过]

 回到顶部