procedure TfrmdbHap.BitBtn2Click(Sender: TObject);

var

TheReg: TRegistry;

KeyName1: String;

begin

if RadioGroup1.ItemIndex = 0 then begin

if MessageDlg('합칠 데이터베이스를 선택하세요!',mtInformation,[mbYes,mbNo],0)= mrYes then

begin

TheReg := TRegistry.Create;

try

TheReg.RootKey := HKEY_CURRENT_USER;

KeyName1 := 'SoftwareODBCODBC.INISiBeeODBC';

if TheReg.OpenKey(KeyName1, False) then

begin

if OpenDialog1.Execute then

begin

TheReg.WriteString('DBQ',OpenDialog1.FileName);

TheReg.CloseKey;

if MessageDlg('데이터베이스를 합치시겠습니까?',mtInformation,[mbYes,mbNo],0)= mrYes then

begin

Table1.TableName:= 'FarmingLData';

Table1.Open;

Table2.TableName:= 'FarmingLData';

Table2.Open;

Table1.BatchMove(Table2, batAppend);

Table1.Close;

Table2.Close;

Table1.TableName:= 'FarmLand';

Table1.Open;

Table2.TableName:= 'FarmLand';

Table2.Open;

Table1.BatchMove(Table2, batAppend);

Table1.Close;

Table2.Close;

Table1.TableName:= 'Fields';

Table1.Open;

Table2.TableName:= 'Fields';

Table2.Open;

Table1.BatchMove(Table2, batAppend);

Table1.Close;

Table2.Close;

ShowMessage('DB병합이 완료되었습니다!');

end;

exit;

end;

end;

finally

TheReg.Free;

end;

.

.

.

.

.

.

이런 식으로 DB를 합쳤습니다...여기서 잘못된 디비나 중복된 디비를 합치려 할때의 에러 처리를 하고 싶은데 어떻게 해야 할까여???

질문이 이상한가여....초보라 설명도 잘 못하겠네여...ㅠ.ㅠ