Немного не могу понять с программой

05.06.2013, 21:56. **Показов** 782. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Мне нужно сделать програмку которая работает с бд mysql так вот в ней нужно установить сомбо бокс в котором я буду выбирать таблицы бд которую я уже выбрал. Все отлично работает вот только не могу понять как вставить сами таблици в этот комбо бокс друг скинул этот код но в нем ошибки вылетают может кто знает что посоветует за рание благодарен.

Delphi

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  s: string;
begin
 
  s := ExtractFilePath(Application.ExeName) + ComboBox1.Text + '.mdb';
  MyConnection1.ConnectionString;
  try
    MyConnection1.Connected := True;
    ShowMessage('Соединение установлено');
  except
    ShowMessage('Ошибка соединения с БД');
  end;
end;
end;
end.

@droider · 06.06.2013, 11:13

Сообщение от RabbitD

как вставить сами таблици в этот комбо бокс

очень просто. Используя метод GetTableNames

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
MyConnection1.GetTableNames(ComboBox1.Items, False);
end;
 
end.

	06.06.2013, 11:13