0

VBA (MS-ACCESS) で SQL Server データベースをコピーしようとしています。

だから私は.bakを作成するためにこのクエリを得ました

DECLARE @name VARCHAR(50) -- database name  
DECLARE @path VARCHAR(256) -- path for backup files  
DECLARE @fileName VARCHAR(256) -- filename for backup  
DECLARE @fileDate VARCHAR(20) -- used for file name


-- specify database backup directory
SET @path = 'D:\Backup\'  


-- specify filename format
SELECT @fileDate = CONVERT(VARCHAR(20),GETDATE(),112) 


DECLARE db_cursor CURSOR FOR  
SELECT name 
FROM master.dbo.sysdatabases 
WHERE name NOT IN ('master','model','msdb','tempdb')  -- exclude these databases


OPEN db_cursor   
FETCH NEXT FROM db_cursor INTO @name   


WHILE @@FETCH_STATUS = 0   
BEGIN   
       SET @fileName = @path + @name + '.BAK'  
       BACKUP DATABASE @name TO DISK = @fileName  


       FETCH NEXT FROM db_cursor INTO @name   
END   


CLOSE db_cursor   
DEALLOCATE db_cursor

次に、データベースを復元するためにこれを入手しました

RESTORE DATABASE SMD
FROM DISK='\\SRV_FILESMTL\SMD\SMD.bak'
WITH 
MOVE 'smd' TO 'c:\Program Files\Microsoft SQL Server\MSSQL11.SQLEXPRESS\MSSQL\DATA\SMD.mdf',
MOVE 'smd_log' TO 'c:\Program Files\Microsoft SQL Server\MSSQL11.SQLEXPRESS\MSSQL\DATA\SMD_log.ldf',
REPLACE

これらは両方とも、このようなボタンクリックでメインフォームで呼び出されます

On Error GoTo Error
    Dim os As String

    lblWait.Visible = True
    Me.Repaint

    CurrentDb.Execute ("qryToBackupServer")
    CurrentDb.Execute ("qryToRestoreDataW7")


    MsgBox ("Data imported successfully")
    lblWait.Visible = False
    Exit Sub
Error:
        MsgBox Err.Description
        lblWait.Visible = False
        Exit Sub

うまくいったと思いましたが、新しいデータがインポートされていないことに気付きました。したがって、.bak が正しく作成されているかどうかを確認しました。コンピューターに .bak をコピーし、SQL Management Studio を使用して復元すると機能するためです。

復元するクエリに問題はありますか? エラーはありませんが、.bakをコピーしたときは5goで5分かかったので、30秒かかるはずですか？

このデータベースにリンクされているテーブルを使用して Access でこれらの関数を呼び出すため、データベースがロックされているのではないかと考えていましたが、エラーは発生しませんでした。

別のサーバーから .bak を取得したため、問題はありますか?

ありがとうございました

4

1 に答える 1

2

バックアップを行うたびに .bak ファイルのサイズが増加していることがわかりました。ということで、削除して別のものを作りました。4合じゃなくて33000コだった…

これでバックアップが機能します。

そのため、VBA では、バックアップを行う前にファイルを削除します。

于 2013-05-01T18:08:34.767 に答える