各為先進大家好: InterBase的資料庫若損壞時我們可以在IBConsole用Validation來修復, 但要如何寫在我們的程式裡, 按一顆按鈕即可修復?        感謝不吝賜教 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

引言: 各為先進大家好: InterBase的資料庫若損壞時我們可以在IBConsole用Validation來修復, 但要如何寫在我們的程式裡, 按一顆按鈕即可修復? 感謝不吝賜教 我不是高手, 高手是正在銀幕前微笑的人. < face="Verdana, Arial, Helvetica"> IBX元件盤中有一個IBValidationService1可以做到, 不過我到目前為止(三年), 還沒有遇到IBfile有毀損的現象, 所以沒有實作可提供, 我蠻好奇, 檔案 是如何毀損, 我想取得一個已毀損的檔案來做測試!

以下是截取 IBX.HLP中的內容
The following procedure illustrates how to set database validation options using check box components.    procedure TForm1.Button3Click(Sender: TObject);    begin
 with IBValidationService1 do
  begin
  ServerName := 'Poulet';
  DatabaseName := 'c:\interbase\tutorial\tutorial.gdb';
  LoginPrompt := False;
  Params.Add('user_name=sysdba');
  Params.Add('password=masterkey');
  Active := True;
  Options := [];
    try
      if CheckBox1.Checked then Options := Options   [LimboTransactions];
      if CheckBox2.Checked then Options := Options   [CheckDB];          if CheckBox3.Checked then Options := Options   [IgnoreChecksum];
      if CheckBox4.Checked then Options := Options   [KillShadows];
      if CheckBox5.Checked then Options := Options   [MendDB];
      if CheckBox6.Checked then Options := Options   [SweepDB];
      if CheckBox7.Checked then Options := Options   [ValidateDB];
      if CheckBox8.Checked then Options := Options   [ValidateFull];        finally
      Active := False;
    end;
  end;
end;

發表人 - P.D. 於 2003/08/26 23:44:58

感謝P.D.大大的回答: 要找到壞掉的資料庫也真是可遇不可求, 我使用時還沒發生過, 但客戶那邊偶爾會有, 機率很低, 之前都要跑去客戶那邊實在 是浪費人力, 所以想說直接寫個按鈕去調, 我發現IBValidationService1 在Delphi Demo裡有, 不過還是靠P.D.先進一語點中才知道, 再次感謝. 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

引言: IBX元件盤中有一個IBValidationService1可以做到, 不過我到目前為止(三年), 還沒有遇到IBfile有毀損的現象, 所以沒有實作可提供, 我蠻好奇, 檔案 是如何毀損, 我想取得一個已毀損的檔案來做測試!

P.D. 兄: 要製造一個損壞的 .GDB 其實也不難. 1.使用 InterBase v6.0 open source Winodws version 2.在寫檔中(和 IB Server同台)將 PC Reset 就可以製造出來了, 機率還蠻高的.

不好意思各位先進大大們: 我已經可以Validation了, 但是他卻只是找出錯誤並不會修復, 要如何在程式中寫修復這一段? 感謝指較~~~ 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

要是真的坏了,都是致命的,无法修复 Delphi园地 专业Delphi资源平台 http://www.delphifans.com