데이터베이스 목록 구하기

procedure GetDataBaseNames(List : TString);



테이블 목록 구하기

procedure GetTalbeNames(Const DatabaseName, Pattern : string; Extensions, SystemTalbes : Boolean; List : TString);



uses ... , DBTalbes;



procedure TForm1.Button1Click(Sender: TObject);

var

itemlist : TStringList;

begin

itemlist := TStringList.Create;

Session.GetDataBaseNames(itemlist);

ListBox1.Items := itemlist;

itemlist.Free;

end;



procedure TForm1.ListBox1Click(Sender: TObject);

begin

Session.GetTalbeNames(ListBox1.Items[ListBox1.Index] , '' , True , False ,

ListBox1.Items);

end;



나무..임당

클마스 wrote:

> BDE Administrator로 만들어놓은 알리아스 이름을 모두 가져와서

> 콤보박스에 넣고 싶거든요

>

> 어떻게 하면 되요...??