vb实现数据备份

Question

Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim strSql As String
Dim strConn As String
Dim fileName As StringOn Error GoTo errEnd
MsgBox "您确定要备份数据吗？", vbOKCancel + vbOKOnly, "警告！"
strConn = "driver={sql server};server=(local);uid=sa;pwd="
conn.Open strConn
strSql = "BACKUP DATABASE Datas TO DISK='C:\WINDOWS\Desktop\123 " & CStr(Format(Date, "m-d")) & ".bak'"
Label1.Visible = True
Label1.Caption = "正在备份数据库，请稍候......"
DoEvents
conn.Execute strSql
DoEvents
Label1.Caption = ""
DoEvents
conn.Close
Set conn = Nothing
MsgBox "本机数据备份库完成！", vbOKOnly + vbInformation, "备份成功！"
Unload Me
Exit Sub
errEnd:
Label1.Caption = ""
MsgBox Err.Description, vbInformation, "Error"
conn.Close
Set conn = Nothing
Exit Sub
End Sub

Answer 1

其实SQL Server备份只要在服务器设定定时备份就行了
对于手工备份，按你自己要求将相关表(或整个数据库）导出就行了啊。。

Answer 2

同意cgh1970(阿刀)的，用SQL语言实现。

Answer 3

用编程的方式或者就用SQL数据库管理软件的功能。

Answer 4

1、打开SQL的跟踪器
2、在SQL的企业管理器中备份一个数据库
3、vb程序
dim sql=SQL的跟踪器的语句
ado连接.execute sql

Answer 5

WYZSC(007) ( ) 信誉：100  2002-11-28 08:35:00  得分:0 
 我想知道SQL的跟踪器的使用，我可以单独开个帖，