＋设为首页 ＋添加到收藏夹
我要做一个“数据备份”的功能 ，数据库是 SQL Server。
请问怎样做？是否能有原码？
我就是用这个：
On Error GoTo ErrHandler:
Dim oBackup As SQLDMO.Backup
txtStatus.Text = ""
gDatabaseName = cmbDatabaseName.Text
Set oBackup = New SQLDMO.Backup
Set oBackupEvent = oBackup 使 events 有效
oBackup.Database = gDatabaseName
gBkupRstrFileName = txtDataFileName.Text
oBackup.Files = gBkupRstrFileName
删除已有的同名文件，创建新文件
会覆盖原来的已有的文件
If Len(Dir(gBkupRstrFileName)) > 0 Then
Kill (gBkupRstrFileName)
End If
Screen.MousePointer = vbHourglass
备份数据库.
oBackup.SQLBackup gSQLServer
Screen.MousePointer = vbDefault
Set oBackupEvent = Nothing 使 events 无效
Set oBackup = Nothing
Exit Sub
ErrHandler:
txtStatus.Text = ""
PrintStat "错误信息：" + vbCrLf & " " & Err.Description
MsgBox "错误信息 " & Err.Description, , gTitle
Resume Next
