Foxtable(狐表)用户栏目专家坐堂 → 如何把异地SQL数据库用代码备份到本机?


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

主题:如何把异地SQL数据库用代码备份到本机?

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


加好友 发短信
等级:七尾狐 帖子:1528 积分:10618 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By: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

 回到顶部