数据备份与还原

Question

我用VB做了一个小系统,想在里面做一个数据备份和还原,可是从来没有接触过,这应该怎么做呢,大家帮帮忙吧,有代码最好了,

Answer 1

建一个共享的文件夹 If Dir(appPath & "backup", 16) = "" Then
        MkDir appPath & "backup"
    End If
    init = MsgBox("首先确认您的计算机有一名为 BACKUP (完全共享)的文件夹！                                               数据备份要求很长一段时间，是否继续进行？请确认！", 4 + 32 + 256)
    If init <> 6 Then Exit Sub
    Screen.MousePointer = 11
    cn.CommandTimeout = 0
    cn.Execute "BACKUP DATABASE ysgl TO DISK = '\\" & ComputerName & "\backup\ys.bak'"
    If Err = 0 Then MsgBox "数据备份成功！"
    Screen.MousePointer = 0

Answer 2

最简单的办法:你直接在你的"备份"按钮下写:
backup database dbname to disk = '路径'

Answer 3

还可以用一个叫做databack的控件