Делфи(opendialog,listbox)

[Астасья]

Организовать выбор файла(базы данных) с расширением mdl через TOpenDialog,так чтобы её структура-список таблиц и полей по каждой табл должны отражаться в Tlistbox

На счёт расширения не получается совсем и вообще программа не работает....подскажите



uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    ADOConnection1: TADOConnection;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var list1,list2:Tstrings;
i,j:integer;
begin
if OpenDialog1.Execute then
begin
 adoconnection1.Connected:=true;
  adoconnection1.gettablenames(list1,false);
  list1:=Tstringlist.Create;
  list2:=Tstringlist.Create;
  listbox1.items.Clear;
  for i:=0 to list1.Count-1 do
  begin
  listbox1.items.add(list1.strings);
  adoconnection1.getfieldnames(list1.strings,list2);
    for j:= 0 to list2.Count-1 do
   listbox1.items.Add('   '+list2.strings[j]);
  end;
  list1.Free;
   list2.Free;
end;
end;

end.

[ki]

с ADO не работал, но...во первых...настройте фильтр opendialog на отображение файлов с расширением mdl. Затем переменную из opendialog.filename, подозреваю, нужно привязать  к adoconnection (путь к базе)...

  adoconnection1.gettablenames(list1,false);

Вы используете функцию, но переменная list1 еще не инициализирована...

Попробуйте сперва подумать над этим, а потом будем думать еще)

PS. возможно я неправ...

[Астасья]

Я нашла ,что расширение можно настроить через свойство Filter...
На счёт

Затем переменную из opendialog.filename, подозреваю, нужно привязать  к adoconnection (путь к базе)...

это так  adoconnection (opendialog.filename)

[ki]

adoconnection, параметр connectionstring...или у Вас он жестко забит? тогда зачем opendialog?

я так понимаю, что через opendialog выбирается файл базы, затем идет инициализация переменных и базы, парсятся заголовки таблиц и выводятся в два списика
только вот список таблиц не меняется, а список полей должен меняться от выбранной таблицы, так?

[Астасья]

Вы всё правильно поняли...
тогда так  adoconnection.connectionstring:=opendialog.filename???....но тогда пишет ошибку про то что имя слишком длинное

[Астасья]

У меня всё получилось...ВОТ!!!!!
procedure TForm1.Button1Click(Sender: TObject);
var list1,list2:Tstrings;
i,j,k:integer;
begin
if OpenDialog1.Execute then
begin
 adoconnection1.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+opendialog1.filename;
  list1:=Tstringlist.Create;
  list2:=Tstringlist.Create;
  adoconnection1.gettablenames(list1,false);
  listbox1.items.Clear;
  k:=0;
  for i:=0 to list1.Count-1 do
  begin
  listbox1.items.add(list1.strings);
  adoconnection1.getfieldnames(list1.strings,list2);
    for j:=k to list2.Count-1 do
       begin
        listbox1.items.Add('   '+list2.strings[j]);
        k:=k+1;
       end;
  end;
  list1.Free;
  list2.Free;
end;
end;

end.

[ki]

Молодца