如何备份后台SQLSERVER数据库

koutx

哪位给讲一下：在ACCESS中如何通过VBA代码实现对SQLSERVER数据库的备份。
补充说明：就象在企业管理器中右键备份的那样。
或者:用shell "osql.exe"........而运行备份脚本文件的语法.

zhuyiwen

本地ADP，可以这样：

1. Public Function BackupDatabase()
   
2.     On Error Resume Next
   
3.     DoCmd.RunCommand acCmdBackup
   
4.     Err.Clear
   
5.     On Error GoTo 0
   
6. End Function
   
7. 
   
8. Public Function RestoreDatabase()
   
9.     On Error Resume Next
   
10.     DoCmd.RunCommand acCmdRestore
    
11.     Err.Clear
    
12.     On Error GoTo 0
    
13. End Function

复制代码

BackupDatabase：备份
RestoreDatabase：恢复

koutx

不是在ADP中，是在MDB中使用。
用以下语句链接后台（本地服务器名server）SQLSERVER中的表：
strConn = "ODBC;DRIVER=SQL Server;SERVER=server;UID=WD=;DATABASE=Qb"
DoCmd.TransferDatabase acLink, "ODBC", strConn, acTable, strbm, strbm
用您的代码运行出错：

koutx

看来不能直接在ACCESS中解决了，只好用笨办法：批处理执行脚本了