用VB做了一个系统,在电脑A上操作电脑B的SQL数据库,现在在电脑A上备份数据库时,生成的备份文件都存到了B上,怎么才能存到A上呢?在A上恢复数据库也是一样的,A上没有备份数据库文件,造成无法恢复,请高手指点。下面是我进行备份时的代码: mSqlMaster = "provider=SQLOLEDB;server=" & IPstr & ";database=master;uid=sa;pwd=19801103"
cPmasterconn.CursorLocation = adUseClient
cPmasterconn.CommandTimeout = 0
cPmasterconn.Open mSqlMaster
On Error GoTo ERR_HAND txtSQL = "backup database carddatabase to disk='" & mFile2 & "'"
Set rs = cPmasterconn.Execute(txtSQL)
MsgBox "恭喜:成功备份今日数据库!", vbInformation + vbOKOnly, "操作提示"
Exit Sub
ErrHandler:
MsgBox "很遗憾,备份不成功!", vbInformation + vbOKOnly, "操作提示"
Exit Sub
进行恢复的时候部分代码:
mSqlMaster = "provider=SQLOLEDB;server=" & IPstr & ";database=master;uid=sa;pwd=19801103"
cPmasterconn.CursorLocation = adUseClient
cPmasterconn.CommandTimeout = 0
cPmasterconn.Open mSqlMaster
On Error GoTo ERR_HAND
f MsgBox("此操作将恢复 " & s & "!您确认吗(Y/N)?", vbYesNo, "系统提示!") = vbYes Then
Me.MousePointer = 11
'cmdRestore.Enabled = False
txtSQL = "RESTORE DATABASE carddatabase FROM DISK='" & s & "'"
' Set mrc = ExecuteSQL(txtSQL, Msgtext)
Set rs = cPmasterconn.Execute(txtSQL)
MsgBox "数据库恢复完毕!", vbInformation, "系统提示!"
Me.MousePointer = 0
'cmdRestore.Enabled = True
Else
cPmasterconn.Close
End If
cPmasterconn.CursorLocation = adUseClient
cPmasterconn.CommandTimeout = 0
cPmasterconn.Open mSqlMaster
On Error GoTo ERR_HAND txtSQL = "backup database carddatabase to disk='" & mFile2 & "'"
Set rs = cPmasterconn.Execute(txtSQL)
MsgBox "恭喜:成功备份今日数据库!", vbInformation + vbOKOnly, "操作提示"
Exit Sub
ErrHandler:
MsgBox "很遗憾,备份不成功!", vbInformation + vbOKOnly, "操作提示"
Exit Sub
进行恢复的时候部分代码:
mSqlMaster = "provider=SQLOLEDB;server=" & IPstr & ";database=master;uid=sa;pwd=19801103"
cPmasterconn.CursorLocation = adUseClient
cPmasterconn.CommandTimeout = 0
cPmasterconn.Open mSqlMaster
On Error GoTo ERR_HAND
f MsgBox("此操作将恢复 " & s & "!您确认吗(Y/N)?", vbYesNo, "系统提示!") = vbYes Then
Me.MousePointer = 11
'cmdRestore.Enabled = False
txtSQL = "RESTORE DATABASE carddatabase FROM DISK='" & s & "'"
' Set mrc = ExecuteSQL(txtSQL, Msgtext)
Set rs = cPmasterconn.Execute(txtSQL)
MsgBox "数据库恢复完毕!", vbInformation, "系统提示!"
Me.MousePointer = 0
'cmdRestore.Enabled = True
Else
cPmasterconn.Close
End If
你需要将 A 的目录共享给 B,然后按照 B 对 A 进行访问的 UNC 路径做备份/恢复。