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


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

主题:求助 用FTP上报数据

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


加好友 发短信
等级:三尾狐 帖子:668 积分:5184 威望: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编辑过]

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


加好友 发短信
等级:三尾狐 帖子:668 积分:5184 威望:0 精华:0 注册:2013/10/7 22:27:00
  发帖心情 Post By:2019/4/29 20:47:00 [显示全部帖子]

是的老师,请指教!!!
谢谢!!!

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


加好友 发短信
等级:三尾狐 帖子:668 积分:5184 威望:0 精华:0 注册:2013/10/7 22:27:00
  发帖心情 Post By:2019/4/30 21:18:00 [显示全部帖子]

谢谢老师!!!

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


加好友 发短信
等级:三尾狐 帖子:668 积分:5184 威望:0 精华:0 注册:2013/10/7 22:27:00
  发帖心情 Post By:2019/4/30 21:46:00 [显示全部帖子]

老师:
您 好!
灰复及备份数据库,我已抄写,可以用.
但是灰复会复盖原来的数据.
使用sql跨数据库导数据,我真不懂的操作,
请问老师可不可以在按键写代码,合并数据?
请指教!!!
谢谢!!!

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


加好友 发短信
等级:三尾狐 帖子:668 积分:5184 威望:0 精华:0 注册:2013/10/7 22:27:00
  发帖心情 Post By:2019/4/30 22:18:00 [显示全部帖子]

谢谢老师!!!
谢谢!!!

 回到顶部