Miles
尊榮會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:27 回覆:662 積分:622 註冊:2002-07-12
發送簡訊給我
|
各為先進大家好:
InterBase的資料庫若損壞時我們可以在IBConsole用Validation來修復,
但要如何寫在我們的程式裡, 按一顆按鈕即可修復?
感謝不吝賜教 ![]() 我不是高手, 高手是正在銀幕前微笑的人.
------
我不是高手, 高手是正在銀幕前微笑的人.
|
P.D.
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](http://delphi-ktop-com-tw.my-hot.com/download/upload/4d3347caa4141_pdlogo.jpg) 發表:603 回覆:4038 積分:3874 註冊:2006-10-31
發送簡訊給我
|
引言:
各為先進大家好:
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
|
Miles
尊榮會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:27 回覆:662 積分:622 註冊:2002-07-12
發送簡訊給我
|
感謝P.D.大大的回答:
要找到壞掉的資料庫也真是可遇不可求, 我使用時還沒發生過,
但客戶那邊偶爾會有, 機率很低, 之前都要跑去客戶那邊實在
是浪費人力, 所以想說直接寫個按鈕去調, 我發現IBValidationService1
在Delphi Demo裡有, 不過還是靠P.D.先進一語點中才知道, 再次感謝. 我不是高手, 高手是正在銀幕前微笑的人.
------
我不是高手, 高手是正在銀幕前微笑的人.
|
danny
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:100 回覆:522 積分:595 註冊:2002-03-11
發送簡訊給我
|
引言:
IBX元件盤中有一個IBValidationService1可以做到, 不過我到目前為止(三年), 還沒有遇到IBfile有毀損的現象, 所以沒有實作可提供, 我蠻好奇, 檔案
是如何毀損, 我想取得一個已毀損的檔案來做測試! P.D. 兄:
要製造一個損壞的 .GDB 其實也不難.
1.使用 InterBase v6.0 open source Winodws version
2.在寫檔中(和 IB Server同台)將 PC Reset 就可以製造出來了, 機率還蠻高的.
------ 將問題盡快結案也是一種禮貌!
|
Miles
尊榮會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:27 回覆:662 積分:622 註冊:2002-07-12
發送簡訊給我
|
不好意思各位先進大大們:
我已經可以Validation了, 但是他卻只是找出錯誤並不會修復,
要如何在程式中寫修復這一段?
感謝指較~~~ 我不是高手, 高手是正在銀幕前微笑的人.
------
我不是高手, 高手是正在銀幕前微笑的人.
|
delphiyd
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:2 回覆:3 積分:1 註冊:2003-05-27
發送簡訊給我
|
要是真的坏了,都是致命的,无法修复 Delphi园地 专业Delphi资源平台 http://www.delphifans.com
|