DB를 두개 열고 싶은데여...
open하면 똑같은 디비가 열리는데 무엇이 잘못되었는쥐 모르겠어여...고수님들 갈텨주세여...왕초보가.....
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
OpenDialog1.FileName
end;
Database1.Open;
Table1.Open;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
OpenDialog1.FileName
end;
Database2.Open;
Table2.Open;
end;
> DB를 두개 열고 싶은데여...
> open하면 똑같은 디비가 열리는데 무엇이 잘못되었는쥐 모르겠어여...고수님들 갈텨주세여...왕초보가.....
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> if OpenDialog1.Execute then
> begin
> OpenDialog1.FileName
> end;
> Database1.Open;
> Table1.Open;
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> if OpenDialog1.Execute then
> begin
> OpenDialog1.FileName
> end;
> Database2.Open;
> Table2.Open;
> end;
하고자하는 일이 원하는 데이터베이스명을 다이얼로그박스에서 선택해서 열고 싶은거겠지요?
> if OpenDialog1.Execute then
> begin
> OpenDialog1.FileName
Table1.Close;
Table1.IndexName := ''//인덱스파일존제시 입력
Table1.Tablename := ExtractFilename(OpenDialog1.FileName)
> end;
> Database1.Open;
> Table1.Open;
ExtractFilename(OpenDialog1.FileName)요 부분은 다이얼로그박스에서 파일명을 입력
받으면 파일의 실제 위치와 같이 예 C:Test.dbf 와 같이 리턴이 됩니다.. 그래서
이 명령을 사용하여 패스를 제외한 실제 파일이름만을 리턴하는 거지요..
안되면 메일 주세요.. 그럼 성공 하길 빕니다.. 성공해도 메일주세요.. 궁금하니까...^.^