Builder中，sqlserver在客户端调用存储过程向服务器端备份

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

1.Createabackupdatabasestoredprocedureinmasterdatabase.

CREATEPROCEDUREbackupdb
 @databasevarchar(10),
 @directoryvarchar(100)
AS
 backupdatabase@database
 todisk=@directory

2.Getpathof.

AnsiString__fastcallTFrmDM::GetsqlserverPath(){
 AnsiStringresult,tmp;
 TADOQuery*Query=newTADOQuery(this);
 Query->Connection=ADOConnection_Master;
 Query->Close();
 Query->SQL->Clear();
 Query->SQL->Add("selectfilenamefromsysdatabaseswherename='master'");
 Query->Open();
 tmp=Query->FieldByName("filename")->AsString;
 result=tmp.SubString(1,tmp.Length()-15);
 Query->Free();
 returnresult;
}

3.Callthebackupdatabasestoredprocedure.

 d=FormatDateTime("yyyy-mm-ddhh-mm-ss",FrmDM->GetServerTime());
 try{
    path=FrmDM->GetsqlserverPath()+"backup//";
    FrmDM->ADOStoredProc1->Close();
    FrmDM->ADOStoredProc1->Connection=FrmDM->ADOConnection_Master;
    FrmDM->ADOStoredProc1->Prepared=true;
    FrmDM->ADOStoredProc1->ProcedureName="backupdb;1";
    FrmDM->ADOStoredProc1->Parameters->ParamByName("@database")->Value="db_name_to_backup";
    FrmDM->ADOStoredProc1->Parameters->ParamByName("@directory")->Value=path+"db_name_to_backup"+d;
    FrmDM->ADOStoredProc1->ExecProc();
    Application->MessageBox("备份完成","提示",MB_OK+MB_ICONINFORMATION);
    this->Close();
  }
  catch(...){
    Application->MessageBox("备份出错，请重新再来","警告",MB_OK+MB_ICONWARNING);
    return;
  }

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>