求SQL备份与恢复的源代码！！！！！！！

[hzh_wen_x]

求SQL备份与恢复的源代码！！！！！！！

[zhang_pi]

On Error GoTo ErrHandler:
Dim mBackup As SQLDMO.Backup
Dim pJudge As ClsLogin

Set pJudge = New ClsLogin
Set mBackup = New SQLDMO.Backup

If TxtFname.Text = "" Then
MsgBox "ÇëÊäÈ뱸·ÝÎļþÃû£¡", vbOKOnly + vbInformation, "Êý¾Ý¿â±¸·Ý"
TxtFname.SetFocus
Else
' If pJudge.DB_BakPower(FrmLogin.mWork_UserID) = True Then
mBackup.Database = infoBak.DB_Base
mBackup.Files = dirMain.Path & "\" & TxtFname.Text

mBackup.SQLBackup mSQLServer

MsgBox "Êý¾Ý¿â±¸·Ý³É¹¦£¡", vbOKOnly, "Êý¾Ý¿â±¸·Ý"
' Else
' MsgBox "µ±Ç°Óû§ÎÞ´ËȨÏÞ£¡", vbOKOnly + vbInformation, "Êý¾Ý¿â±¸·Ý"
' Exit Sub
' End If
End If

filMain.Refresh
Exit Sub

ErrHandler:
MsgBox "Êý¾Ý¿â±¸·Ýʧ°Ü£¡", vbOKOnly + vbInformation, "Êý¾Ý¿â±¸·Ý"

[zhang_pi]

On Error GoTo ErrHandler:
Dim mRestore As SQLDMO.Restore
Dim pJudge As ClsLogin
Set mRestore = New SQLDMO.Restore
Set pJudge = New ClsLogin

' If pJudge.DB_ResPower = True Then
mRestore.Database = infoRes.DB_Base
mRestore.Files = filMain.Path & "\" & filMain.FileName

mRestore.SQLRestore mSQLServer
MsgBox "Êý¾Ý¿â»Ö¸´³É¹¦£¡", vbOKOnly, "Êý¾Ý¿â»Ö¸´"
' Else
' MsgBox "µ±Ç°Óû§ÎÞ´ËȨÏÞ£¡", vbOKOnly + vbInformation, "Êý¾Ý¿â»Ö¸´"
' Exit Sub
' End If
Exit Sub

ErrHandler:
MsgBox "Êý¾Ý¿â»Ö¸´Ê§°Ü£¡", vbOKOnly + vbInformation, "Êý¾Ý¿â»Ö¸´"