Question

vb sql数据库备份和恢复

我刚接触sql数据库备份和恢复,我从网上拷了一份代码下来,可是运行错误,各位高手帮看一下,谢谢!!!
Dim itmX As ListItem '定义一个ListItem对象
Dim key, list, sql As String '定义字符串变量
Private Sub Form_Load()
Option1.Value = True '设置Option1的值为真
Dir1_Change
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
'添加数据备份卡到列表中
ListView1.ListItems.Clear
If File1.ListCount <> 0 Then
a = 0 '给变量a设置初值
Do While File1.ListIndex < File1.ListCount - 1
File1.ListIndex = a '赋值给变量a
key = File1.FileName
Set itmX = ListView1.ListItems.Add(, , key, 1)
a = a + 1
Loop
End If
File1_Click
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Label1.Caption = Dir1.Path & "\" & File1.FileName '获得路径
End Sub
Private Sub ListView1_Click()
Label1.Caption = Dir1.Path & "\" & ListView1.SelectedItem '获得路径
End Sub
Private Sub CmdBackup_Click()
Dim S As String
Dim MesText As String
Dim sql As String
If Option1.Value = True Then
'备份数据库
S = Dir1.Path & "\" & Date & ".BAK"
If Label1.Caption = S Then
MsgBox "数据备份卡已存在！", , "提示窗口"
Else
'备份SQL Server数据库
sql = "backup DATABASE ChineseMedicine TO disk='" & S & "'"
Cnn.Execute sql
Cnn.Close
MsgBox "数据库备份成功！", , "提示窗口"
key = Date & ".BAK"
Set itmX = ListView1.ListItems.Add(, , key, 1)
End If
End If
If Option2.Value = True Then
'恢复指定路径下的数据库
If File1.ListCount <> 0 Then
If Label1.Caption <> "" Then
'数据恢复语句
sql = "RESTORE DATABASE ChineseMedicine from disk='" & Label1.Caption & "'"
Cnn.Execute sql '执行SQL语句
Cnn.Close
MsgBox "数据库恢复成功！", , "提示窗口"
Else
MsgBox "请选择要恢复的数据备份卡！", , "提示窗口"
End If
Else
MsgBox "请选择要恢复的数据备份卡！", , "提示窗口"
End If
End If
End Sub
能解决问题还可加分哦!!!

Answer 1

你应该明白,数据的备份和恢复都是针对服务器上的资源,
而你写的是本机的文件,所以,你的程序只能在服务器上用,而不能在客户机上用.
不然会有程序的错误.
再还有,数据还原过程,应该关闭所有该数据库的连接,不然会冲突.
只提这2点问题.

Answer 2

cv cv

Answer 3

你为什么要学VB啊，建议你学C语系的