한국 델파이 개발자 모임 - Database 백업/복구

Database 백업/복구

윈도우 98/ 델파이3을 사용하고 있습니다.

DB는 파라독스를 사용하구요

DB 파일이 있는 디렉토리를 다른 디렉토리에 백업을 받은 후

그 백업 디렉토리에 있는 DB 파일을 SELECT 하여 INSERT하려고 합니다.

왜냐하면 테이블이 바뀌어서 새로운 테이블을 원래 디렉토리에 넣구 말입니다.

그런데 몇번 이 실행파일을 실행시키면 자꾸 에러가 나구 해서요...

'corrupt ~.px ... ' 등 DB 인덱스가 깨져서 그런건지 확실히 잘 모르겠어서요..

예로 소스를 올리겠습니다. 간단하게 하나의 테이블에 관한 것만 올리겠습니다.

procedure TForm1.FormCreate(Sender: TObject);

begin

table1.Open;

Query4.Close;

Query4.Open;

if table1.IsEmpty then begin

end

else begin

while not Query4.EOF do begin

table1.Delete;

if table1.IsEmpty then

exit;

end;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Query1.Close;

Query1.Open;

while Not Query1.EOF do begin

table1.Insert;

table1.FieldByName('Busi_cd').AsString := Query1.FieldByName('Busi_cd').AsString;

table1.FieldByName('Busi_nm').AsString := Query1.FieldByName('Busi_nm').AsString;

table1.FieldByName('Busi_type').AsString := Query1.FieldByName('Busi_type').AsString;

table1.FieldByName('city_nm').AsString := Query1.FieldByName('city_nm').AsString;

table1.FieldByName('Gu_nm').AsString := Query1.FieldByName('Gu_nm').AsString;

table1.FieldByName('Dong_nm').AsString := Query1.FieldByName('Dong_nm').AsString;

table1.FieldByName('Addr_etc').AsString := Query1.FieldByName('Addr_etc').AsString;

table1.FieldByName('Buy_ck').AsString := Query1.FieldByName('Buy_ck').AsString;

table1.FieldByName('president').AsString := Query1.FieldByName('president').AsString;

table1.FieldByName('In_Reserv1').AsString := Query1.FieldByName('In_Reserv1').AsString;

table1.FieldByName('In_Reserv2').AsString := Query1.FieldByName('In_Reserv2').AsString;

table1.FieldByName('Tel_no').AsString := Query1.FieldByName('Tel_no').AsString;

table1.FieldByName('Fax_no').AsString := Query1.FieldByName('Fax_no').AsString;

table1.FieldByName('Zip_code').AsString := Query1.FieldByName('Zip_code').AsString;

table1.FieldByName('Credit_Grade').AsString := Query1.FieldByName('Credit_Grade').AsString;

table1.FieldByName('Establish_dt').AsString := Query1.FieldByName('Establish_dt').AsString;

table1.FieldByName('Cust_kind').AsString := Query1.FieldByName('Cust_kind').AsString;

table1.FieldByName('Dept').AsString := Query1.FieldByName('Dept').AsString;

table1.FieldByName('Order_Nm').AsString := Query1.FieldByName('Order_Nm').AsString;

table1.FieldByName('Birthday').AsString := Query1.FieldByName('Birthday').AsString;

table1.FieldByName('Birthday_type').AsString := Query1.FieldByName('Birthday_type').AsString;

table1.FieldByName('Marriage').AsString := Query1.FieldByName('Marriage').AsString;

table1.FieldByName('sys_date').AsString := Query1.FieldByName('sys_date').AsString;

table1.Post;

Query1.Next;

end;

Showmessage('Data 변환이 모두 되었습니다.');

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Query1.Close;

table1.Close;

Close;

end;

이상이 소스구요.. 참고로 테이블은 한 34 정도가 되는 듯 싶군요..

SELECT 할 Query1 컴포넌트의 DatabaseName은 원래 DB가 존재하는 디렉토리로 설정했구요.

INSERT 할 Table1 컴포넌트의 DatabaseName은 백업받아 놓은 디렉토리로 설정했습니다.

그럼 고수님들의 답변을 기다리겠습니다..

파라독스는 잘 써보지를 않아서요.. 프로그램 업그레이드 하기가 어렵네요...

그럼 꾸벅.

이 게시물을

1 COMMENTS

권민호 • 2000.11.05 19:33

궁금이 wrote:

>

> 윈도우 98/ 델파이3을 사용하고 있습니다.

>

> DB는 파라독스를 사용하구요

>

> DB 파일이 있는 디렉토리를 다른 디렉토리에 백업을 받은 후

>

> 그 백업 디렉토리에 있는 DB 파일을 SELECT 하여 INSERT하려고 합니다.

>

> 왜냐하면 테이블이 바뀌어서 새로운 테이블을 원래 디렉토리에 넣구 말입니다.

>

> 그런데 몇번 이 실행파일을 실행시키면 자꾸 에러가 나구 해서요...

>

> 'corrupt ~.px ... ' 등 DB 인덱스가 깨져서 그런건지 확실히 잘 모르겠어서요..

>

> 예로 소스를 올리겠습니다. 간단하게 하나의 테이블에 관한 것만 올리겠습니다.

>

> procedure TForm1.FormCreate(Sender: TObject);

> begin

>

> table1.Open;

> Query4.Close;

> Query4.Open;

>

> if table1.IsEmpty then begin

> end

> else begin

> while not Query4.EOF do begin

> table1.Delete;

> if table1.IsEmpty then

> exit;

> end;

> end;

>

> end;

>

> procedure TForm1.Button1Click(Sender: TObject);

> begin

>

> Query1.Close;

>

> Query1.Open;

>

>

> while Not Query1.EOF do begin

> table1.Insert;

> table1.FieldByName('Busi_cd').AsString := Query1.FieldByName('Busi_cd').AsString;

> table1.FieldByName('Busi_nm').AsString := Query1.FieldByName('Busi_nm').AsString;

> table1.FieldByName('Busi_type').AsString := Query1.FieldByName('Busi_type').AsString;

> table1.FieldByName('city_nm').AsString := Query1.FieldByName('city_nm').AsString;

> table1.FieldByName('Gu_nm').AsString := Query1.FieldByName('Gu_nm').AsString;

> table1.FieldByName('Dong_nm').AsString := Query1.FieldByName('Dong_nm').AsString;

> table1.FieldByName('Addr_etc').AsString := Query1.FieldByName('Addr_etc').AsString;

> table1.FieldByName('Buy_ck').AsString := Query1.FieldByName('Buy_ck').AsString;

> table1.FieldByName('president').AsString := Query1.FieldByName('president').AsString;

> table1.FieldByName('In_Reserv1').AsString := Query1.FieldByName('In_Reserv1').AsString;

> table1.FieldByName('In_Reserv2').AsString := Query1.FieldByName('In_Reserv2').AsString;

> table1.FieldByName('Tel_no').AsString := Query1.FieldByName('Tel_no').AsString;

> table1.FieldByName('Fax_no').AsString := Query1.FieldByName('Fax_no').AsString;

> table1.FieldByName('Zip_code').AsString := Query1.FieldByName('Zip_code').AsString;

> table1.FieldByName('Credit_Grade').AsString := Query1.FieldByName('Credit_Grade').AsString;

> table1.FieldByName('Establish_dt').AsString := Query1.FieldByName('Establish_dt').AsString;

> table1.FieldByName('Cust_kind').AsString := Query1.FieldByName('Cust_kind').AsString;

> table1.FieldByName('Dept').AsString := Query1.FieldByName('Dept').AsString;

> table1.FieldByName('Order_Nm').AsString := Query1.FieldByName('Order_Nm').AsString;

> table1.FieldByName('Birthday').AsString := Query1.FieldByName('Birthday').AsString;

> table1.FieldByName('Birthday_type').AsString := Query1.FieldByName('Birthday_type').AsString;

> table1.FieldByName('Marriage').AsString := Query1.FieldByName('Marriage').AsString;

> table1.FieldByName('sys_date').AsString := Query1.FieldByName('sys_date').AsString;

>

> table1.Post;

>

> Query1.Next;

> end;

>

> Showmessage('Data 변환이 모두 되었습니다.');

>

> end;

>

> procedure TForm1.Button2Click(Sender: TObject);

> begin

> Query1.Close;

> table1.Close;

>

> Close;

>

> end;

>

> 이상이 소스구요.. 참고로 테이블은 한 34 정도가 되는 듯 싶군요..

>

> SELECT 할 Query1 컴포넌트의 DatabaseName은 원래 DB가 존재하는 디렉토리로 설정했구요.

> INSERT 할 Table1 컴포넌트의 DatabaseName은 백업받아 놓은 디렉토리로 설정했습니다.

>

>

> 그럼 고수님들의 답변을 기다리겠습니다..

>

> 파라독스는 잘 써보지를 않아서요.. 프로그램 업그레이드 하기가 어렵네요...

>

> 그럼 꾸벅.

>

>

특정한 테이블의 인덱스가 깨진상태로 보입니다.

자료실에보면 인덱스 복구하는 유틸리티가 있습니다.

복구후 다시 실행하여 보십시요.

<참고>

일반적인 백업방식은 아니라고 봅니다.

차라리 데이타디렉토리 전체를 압축하는 것이 어떨까요.

파일압축콤포넌트를 사용하여 쓰신다면 쉽게 구현이 됩니다.

위 방법시 한가지 주의해야할 것은 프로그램 종료를 시키고

백업 및 복원프로그램을 돌려야 합니다.

그렇지 않으로 파일이 오픈된상태라 읽지를 못하고 그냥 넘어가

완벽한 백업파일을 구축할 수 없답니다.

아래는 Zipmaster라는 압축콤포넌트를 사용하여 백업및복원하는

루틴입니다. 참고가 된다면 ...

<백업>

ZipMaster1.DLLDirectory := ExtractFilePath(Application.ExeName);

ZipMaster1.Load_Zip_Dll;

ZipMaster1.Load_Unz_Dll;

ZipMaster1.ZipFilename := ExtractFilePath(Application.ExeName)+'backup'+

'b'+FormatDateTime('yyyymmdd', now)+'.zip';

ZipMaster1.FSpecArgs.Add(ExtractFilePath(Application.ExeName)+'temp*.*');

ZipMaster1.Add;

ZipMaster1.Unload_Zip_Dll;

ZipMaster1.Unload_Unz_Dll;

FileListBox1.Update;

Screen.Cursor := Old;

MessageDlg('데이타 백업완료!!!', mtInformation, [mbOk], 0);

<복원>

ZipMaster1.DLLDirectory := ExtractFilePath(Application.ExeName);

ZipMaster1.Load_Zip_Dll;

ZipMaster1.Load_Unz_Dll;

ZipMaster1.ExtrBaseDir := ExtractFilePath(Application.ExeName)+'data';

ZipMaster1.ZipFilename := Edit1.text;

ZipMaster1.ExtrOptions := [ExtrOverWrite];

ZipMaster1.Extract;

MessageDlg('데이타 복원완료!!!', mtInformation, [mbOk], 0);

ZipMaster1.Unload_Zip_Dll;

ZipMaster1.Unload_Unz_Dll;
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 델파이초보
- •
- 2000.11.06 23:15
- 2 COMMENTS
- /
- 0 LIKES
한 프로그램에서 데이터베이스에 입력한 값이 다른 프로그램에 바로 나타나지 않습니다.
- 권민호
  
  •
  
  2000.11.06 23:16
  
  델파이초보 wrote: > 데이타베이스 관련 프로그램을 짜는데 > 데이터를 입력하면 그데이타가 데이터 베...
- 델초보
  
  •
  
  2000.11.06 23:16
  
  만약에 Table1이란 컴포넌트와 테이블이 물려있다면 저장이 성공적이로 이루어진 바로 직후 아래와 같이...
- 델피초보
- •
- 2000.11.06 01:44
- 1 COMMENTS
- /
- 0 LIKES
도와주세요
- linuxwiz
  
  •
  
  2000.11.06 18:32
  
  소스디렉터리에 보시면... dfm파일을 지우셨다는 얘긴가여... 아님 폼만 안뜬다는 얘긴지... 폼만 ...
- 호야
- •
- 2000.11.06 01:22
- 1 COMMENTS
- /
- 0 LIKES
TeeChart에서요.
- yosul
  
  •
  
  2000.11.07 03:54
  
  호야 wrote: > TeeChart에 막대그래프를 그렸습니다. > 막대그래프를 클릭했을때 막대그래프에관한 정보...
- won
- 2000.11.06 01:03
- 0 COMMENTS
- /
- 0 LIKES
ADO+델파이DB VCL 컴포넌트 의 버그 (BOF또는 EOF가..)
- Saki
- 2000.11.06 01:03
- 0 COMMENTS
- /
- 0 LIKES
Image 컴포넌트를 대용할 수 있는 것은 없나요?
- 델_초보
- •
- 2000.11.06 00:14
- 2 COMMENTS
- /
- 0 LIKES
인치당 픽셀 수를 조정하는 방법 좀 ....
- david
  
  •
  
  2000.11.06 22:14
  
  가장쉬운방법은요... 비트맵의 헤더부분중 가로와 세로의 pixel per meter 에 해당하는 부분이 있거덩요....
- 델_초보
  
  •
  
  2000.11.07 03:06
- 왕초보!
- •
- 2000.11.05 21:27
- 1 COMMENTS
- /
- 0 LIKES
폼이 안뜬다니깐여..ㅜ.ㅜ 답변점
- 이영근
  
  •
  
  2000.11.05 23:04
  
  왕초보! wrote: > 프로그램을 짤때는 폼이 있지만 실행만 시키면 폼이 없어져여. > > 달랑 코드만 보이...
- 궁금이
- •
- •
- 2000.11.05 10:50
- 1 COMMENTS
- /
- 1 LIKES
Database 백업/복구

윈도우 98/ 델파이3을 사용하고 있습니다. DB는 파라독스를 사용하구요 DB 파일이 있는 디렉토리를 다른 디렉토리에 백업을 받은 후 그 백업 디렉토리에 있는 DB 파일을 SELECT 하여 INSERT하려고 합니다. 왜냐하면 테이블이 바뀌어서 새...
- 권민호
  
  •
  
  2000.11.05 19:33
  
  궁금이 wrote: > > 윈도우 98/ 델파이3을 사용하고 있습니다. > > DB는 파라독스를 사용하구요 > ...
- 이재광
- •
- 2000.11.05 08:17
- 1 COMMENTS
- /
- 0 LIKES
윈도우 종료시 실행할 수 있는 프로그램을 만들려면 어떻게?
- 민주아빠
  
  •
  
  2000.11.11 22:00
  
  이재광 wrote: > 안녕하세요. 바쁘신 와중에 수고가 많으십니다. > > 제가 이번에 근태관련해서 프로그...
- 아기코알라
- •
- 2000.11.06 23:20
- 2 COMMENTS
- /
- 0 LIKES
엔터키로 mrOK 버튼과 같은 역할을 하게 하려면?
- 강인규
  
  •
  
  2000.11.06 23:21
  
  keypressevent에 코딩합니다. if key = #13 then begin key := #0; //띵~소리를 막기위해.... m...
- 오태양
  
  •
  
  2000.11.06 23:22
  
  아기코알라 wrote: > 안녕하세요 > mrOK버튼으로 입력창에서 데이타를 DB에 입력하고 있읍니다. > 그런...
- 델파이군
- 2000.11.05 08:13
- 0 COMMENTS
- /
- 0 LIKES
DIB 를 생성하기위한 요소..
- 방기남
- •
- 2000.11.05 06:59
- 2 COMMENTS
- /
- 0 LIKES
[MIDAS 기초] 단일 PC에서 제작가능??
- 권민호
  
  •
  
  2000.11.05 07:11
  
  방기남 wrote: > > 안녕하세요. 방기남(25)입니다. > > 이제 새로 취업을 했습니다. 월요일부터 출근...
- 홍재만
  
  •
  
  2000.11.05 21:26
  
  > > ; DB Server > > ; Appilication Server [미들웨어] > > ; WEB > > 3-Tier 에 대해서는 개념을 잡...
- 권민호
- 2000.11.05 06:46
- 0 COMMENTS
- /
- 0 LIKES
Re: 고수님들 만이 봐주심... 도와주세셔~~~~
- 깔삼이
- •
- 2000.11.05 05:37
- 2 COMMENTS
- /
- 0 LIKES
실수형을 반올림해서 정수형으로 만드는 함수좀 갈까주세요!(round아님)
- 권민호
  
  •
  
  2000.11.05 06:13
  
  깔삼이 wrote: > 안녕하십니까! > 고수님들의 한수 부탁드리고자 한자 적습니다.! > > round 함수를 ...
- 깔삼이
  
  •
  
  2000.11.05 19:57
  
  권민호 wrote: > 깔삼이 wrote: > > 안녕하십니까! > > 고수님들의 한수 부탁드리고자 한자 적습니다.! ...
- youngae
- •
- 2000.11.05 02:58
- 1 COMMENTS
- /
- 0 LIKES
함수정의
- 권민호
  
  •
  
  2000.11.05 06:20
  
  youngae wrote: > 역시 초보입니다... > 전.... > > 여러개의 폼에서 하나의 화일에 그 프로그램에서 ...
- 떠돌이
- •
- 2000.11.07 22:55
- 2 COMMENTS
- /
- 0 LIKES
메모장에서 출력된 자료를 한줄씩 DB에 저장하려면?
- 비
  
  •
  
  2000.11.07 22:54
  
  떠돌이 wrote: > 제발 저좀 도와주세요.부탁드립니다. > 메모장에서 출력된 자료를 한줄씩 db에저장하려...
- 권민호
  
  •
  
  2000.11.07 22:54
  
  비 wrote: > 떠돌이 wrote: > > 제발 저좀 도와주세요.부탁드립니다. > > 메모장에서 출력된 자료를 한...
- 뻐럭이
- •
- 2000.11.04 22:35
- 1 COMMENTS
- /
- 0 LIKES
Re: 고수님들 만이 봐주심... 도와주세셔~~~~
- 뻐럭이
  
  •
  
  2000.11.05 01:08
  
  뻐럭이 wrote: > 금강산 wrote: > > > > 제발 찾아주세여.. 자꾸 실행중 멈춰버리네여 > > > > ...
- 이석현
- 2000.11.07 00:26
- 0 COMMENTS
- /
- 0 LIKES
바탕화면에서 등록정보화면내용 수정하기
- 해와달
- •
- 2000.11.04 21:46
- 1 COMMENTS
- /
- 0 LIKES
DELPHI5.0에서 ACCESS DB를 압축하는 방법 좀 가르켜 주세요
- 왕초보
  
  •
  
  2000.11.07 20:11
  
  해와달 wrote: > DELPHI 5.0을 쓰고 있습니다. > > ACCESS DB를 연결하여 프로젝트를 만들고 있구요. ...
- 이문환
- •
- 2000.11.04 21:34
- 1 COMMENTS
- /
- 0 LIKES
에디트100개, 콤보박스 100개 초기화하기..
- 이석현
  
  •
  
  2000.11.04 21:50
  
  이문환 wrote: > Edit가 100개, ComboBox가 100개 있을 경우. > Edit1.Text := ''; > Edit2.Text := '';...

궁금이
2000/11/05 10:50
Views381

Likes1

Comments1

Reports0
Tag List
수정
삭제
목록으로

←First Page

2141 2142 2143 2144 2145 2146 2147 2148 2149 2150

Last Page→