如何在vb中使用sql中的backup命令.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 30 行

在VB中使用sql命令备份，我没试过。但SQL中有一个自动功能，可以试一试。 
    在数据库上右击，选择All Tasks>>Backup Database>>Schedule.... 
<END>     
execute "sp_aqddumpdevice ..." 
    还可以用execute "backup database {databasename} to <backup_file" 
    创建一个临时备份文件。 
<END>     
最好使用SQLDMO的backup 对象，如何使用请查看Sql server的 book online。不过要懂点 COM。 
<END>     
Dim Svr As New SQLDMO.SQLServer 
    Dim DB As SQLDMO.Database 
    Dim BK As New SQLDMO.Backup 
    Dim DV As New SQLDMO.BackupDevice 
    Svr.Connect "(local)", "sa" 
    DV.Type = SQLDMODevice_DiskDump 
    DV.Name = "pubsbak" 
    DV.PhysicalLocation = "c:\mssql7\bakup\pubs.bak" 
    On Error Resume Next 
    Svr.BackupDevices.Add DV 
    On Error GoTo 0 
    BK.Database = "pubs" 
    BK.Devices = "pubsbak" 
    BK.Initialize = True 
    BK.SQLBackup Svr 
    Svr.BackupDevices.Remove "pubsbak" 
<END>