如何使用Perl DBI進行SQL Server備份

Question

我正在嘗試通過Perl DBI備份Sql Server數據庫。 通過do（）調用“備份數據庫”會運行，但通常不會產生備份。 啟用ODBC跟蹤時，調用do（）會創建一個備份。 調用prepare（）和execute（）失敗。

我在Windows 7 Professional和Sql Server 2008 R2上使用ActiveState Perl。 這是下載源代碼和各種日志的鏈接http://www.fileswap.com/dl/4VnYbCdk6R/ToZip.zip.html （單擊慢速下載）

這是日志摘要

BothTraces made 3 backups but program aborted
-rwx------+ 1 SYSTEM SYSTEM 160256 Jan 16 09:39 perlEasy.bak
-rwx------+ 1 SYSTEM SYSTEM 160256 Jan 16 09:39 perlHard.bak
-rwx------+ 1 SYSTEM SYSTEM 160256 Jan 16 09:38 queryOS.bak

NoTracing made 1 backup, program aborted
-rwx------+ 1 SYSTEM SYSTEM 160256 Jan 16 10:15 queryOS.bak

DbiTrace made 1 backup, program aborted
-rwx------+ 1 SYSTEM SYSTEM 160256 Jan 16 10:19 queryOS.bak

OdbcTrace made 3 backup but program aborted
-rwx------+ 1 SYSTEM SYSTEM 159744 Jan 16 10:21 perlEasy.bak
-rwx------+ 1 SYSTEM SYSTEM 160256 Jan 16 10:21 perlHard.bak
-rwx------+ 1 SYSTEM SYSTEM 160256 Jan 16 10:21 queryOS.bak

這是我的程序：

#!perl -w
#try to use DBI for SQL Server backup 

#connect to database server 
   use v5.14;        #enable modern Perl 
   use DBI;          #database interface
   my $dbHandle = DBI->connect("dbi:ODBC:Driver={SQL Server};Server=DavidZ") or die;   #dbi prints a detailed error message 
   $dbHandle->{RaiseError} = 1;    #enable failure on DBI problems; obviates the need for "or die" with every DBI call
   $dbHandle->{PrintError} = 0;    #don't duplicate error messages 

#enable debugging 
   $dbHandle->trace(1); 
   $dbHandle->{odbc_trace} = 1;                                  #not helpful 
   $dbHandle->{odbc_trace_file} = 'C:\David\dump\tracer.file';   #not helpful 

#run a SQL command to verify connection, write a note to ERRORLOG  
   $dbHandle->do ('use master');
   $dbHandle->do ("raiserror ('New run of backup.pl', 0, 0) with log"); 
   say 'Verified database connection';

#backup commands 
   my $perlEasy = "backup database dz to disk='C:\\David\\dump\\perlEasy.bak'";
   my $perlHard = "backup database dz to disk='C:\\David\\dump\\perlHard.bak'";
   my $queryOS  = "backup database dz to disk='C:\\David\\dump\\queryOS.bak'";

#make a backup via sqlcmd.  this works 
   my $sysCmd = "sqlcmd -Q \"$queryOS\" "; 
   system ($sysCmd) == 0
      or die "The following system command failed:  $sysCmd \n"; 
   say 'Created backup via sqlcmd';

#try to make a backup via DBI 
   $dbHandle->do ($perlEasy);   #runs silently but does not produce a backup file 
   say 'Created backup the easy way';

#more complicated DBI method 
   my $stHandle = $dbHandle->prepare($perlHard);
   $stHandle->execute();     #statement starts a backup then fails, no furter code is executed 

   do 
   {
     #print dbi results 
     say "DBI reports $DBI::errstr"; 

     while (my @row = $stHandle->fetchrow_array())   #recommended by someone, but makes no sense for a backup 
        { say "Returned values: @row" }              #recommended by someone, but makes no sense for a backup 
   } while ($stHandle->{odbc_more_results});

   say 'Created backup the hard way'; 

#program completion
   say 'Program completed successfully';
   exit 0; 

Answer 1

您顯示的Perl代碼沒有錯。 但是，ODBC跟蹤文件顯示DBD :: ODBC在錯誤之前進行了這些調用：

SQLPrepare backup database dz to disk='C:\David\dump\perlHard.bak'
SQLExecute returns SQL_SUCCESS_WITH_INFO and
  Processed 208 pages for database 'dz', file 'dz_test' on file 1. (4035) 
then a few calls for various handles to SQLErrorW
SQLRowCount returns ok and -1 for row count
SQLNumResultCols returns SQL_ERROR and ]Invalid cursor state

我一生都無法看到這是一個無效的游標狀態（自己查看ODBC的有效狀態轉換），所以我不得不說這看起來像您正在使用的SQL Server ODBC驅動程序中的錯誤。 您可以嘗試獲取更新的版本，或者改用SQL Server本機客戶端驅動程序（您可能已經擁有了兩者）。

您可以忽略sql服務器日志中的錯誤，因為它們是正確的，錯誤1235是ERROR_REQUEST_ABORTED。