| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 如何把异地SQL数据库用代码备份到本机？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=41900) |
| -- 作者：lihe60 -- 发布时间：2013/10/30 8:01:00 -- 如何把异地SQL数据库用代码备份到本机？ 数据库存放到异地，需要定期把异地数据库的数据备份（或复制）到本机，这样的代码如何写？ [此贴子已经被作者于2013-10-30 8:07:20编辑过]
|
| -- 作者：泡泡 -- 发布时间：2013/10/30 8:25:00 -- 搬个板凳来关注 我也查过类似问题，无果 |
| -- 作者：Bin -- 发布时间：2013/10/30 8:43:00 -- 折中方案 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=32783 |
| -- 作者：lihe60 -- 发布时间：2013/10/30 8:58:00 -- 以下是引用Bin在2013-10-30 8:43:00的发言：
折中方案 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=32783 没有实践通。 |
| -- 作者：有点甜 -- 发布时间：2013/10/30 22:33:00 -- 理论上是可以的。如果你能连上ftp，就能下载具体文件夹下的文件。 |
| -- 作者：rjh4078 -- 发布时间：2013/10/30 22:39:00 -- http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=35184&replyID=&skin=1 |
| -- 作者：yyzlxc -- 发布时间：2013/10/31 8:04:00 -- 可以生成名为数据源的ACC文件，保存在本地e:\\Data\\文件夹，按钮代码。 \'加载全部表 For Each dt As DataTable In DataTables DataTables( dt.Name ).LoadFilter = "" DataTables( dt.Name ).Load DataTables( dt.Name ).Save() Next Dim Result As DialogResult Result = MessageBox.Show("数据表加载完成,是否生成ACC?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.no Then Vars("_jssj") = Date.Now Return Else \'生成ACC For Each dt As DataTable In DataTables If (DataTables( dt.Name ).basetable.Columns.Contains("_Sortkey")) = True Dim colNames As String = "[_Identify],[_Locked],[_Sortkey]" For Each c As DataCol In dt.DataCols colNames += "," & c.Name Next Dim ex As New Exporter ex.SourceTableName = dt.Name ex.Fields = colNames ex.filepath = "e:\\Data\\数据源.mdb" ex.Export() ElseIf (DataTables( dt.Name ).basetable.Columns.Contains("_Identify")) = True Dim colNames As String = "[_Identify],[_Locked]" For Each c As DataCol In dt.DataCols colNames += "," & c.Name Next Dim ex As New Exporter ex.SourceTableName = dt.Name ex.Fields = colNames ex.filepath = "e:\\Data\\数据源.mdb" ex.Export() Else Dim ex As New Exporter ex.SourceTableName = dt.Name ex.filepath = "e:\\Data\\数据源.mdb" ex.Export() End If Next MessageBox.Show("数据源已保存到 e:\\Data文件夹") End If
|