구 코드를 신 코드로 변환해주는 프로그램을 작성 중인데여...

왜 두개가 똑같은 디비가 열리는 거져?

소스를 함 봐수시면 감사하겠습니다.

그리고 서로 클린 디비가 열련다면...구코드를 어떻게 신코드로 변환 할 수 있을까여..?

부탁드립니다..



//헹정코드를 변화하는 작업을 하려는곳//////////////////

procedure TfrmChange.ChangeBtnClick(Sender: TObject);

begin

OldTable.TableName:= 'Province';

OldTable.Open;

NewTable.TableName:= 'Province';

NewTable.Open;

end;



//신코드 DB OPEN////////////////////////////////////////////////////////////////

procedure TfrmChange.NewcodeBtnClick(Sender: TObject);

var

TheReg: TRegistry;

DbLoadName: String;

begin

TheReg := TRegistry.Create;

try

TheReg.RootKey := HKEY_CURRENT_USER;

DbLoadName := 'SoftwareODBCODBC.INISiBeeODBC';

if TheReg.OpenKey(DbLoadName, False) then

begin

if NewCodeOpen.Execute then

begin

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

TheReg.CloseKey;

end;

end;

finally

TheReg.Free;

end;

NewData.Open;

end;



//구코드 DB OPEN////////////////////////////////////////////////////////////////

procedure TfrmChange.OlddbbtnClick(Sender: TObject);

var

TheReg: TRegistry;

DbLoadName: String;

begin

TheReg := TRegistry.Create;

try

TheReg.RootKey := HKEY_CURRENT_USER;

DbLoadName := 'SoftwareODBCODBC.INISiBeeODBC';

if TheReg.OpenKey(DbLoadName, False) then

begin

if NewCodeOpen.Execute then



begin

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

TheReg.CloseKey;

end;

end;

finally

TheReg.Free;

end;

OldData.Open;

end;