mdb файлы в Delphi

← →
Святослав © (2006-12-25 02:57) [0]

Как можно открыть mdb в Delphi?
Задача предельно проста: открыть mdb базу, показать какие есть таблицы и загрузить какую-нибудь!
Все происходит на локальной машине, в монопольном режиме доступа!
Помогите пожалуйста кто знает, чем проще тем лучше :)

← →
SergP © (2006-12-25 04:09) [1]

> Святослав © (25.12.06 02:57)
>...загрузить какую-нибудь!...

Это как?

← →
Kostafey © (2006-12-25 09:52) [2]

> и загрузить какую-нибудь!

Возможно имеется в виду показать данные из таблицы в сетке ?

← →
palva © (2006-12-25 10:55) [3]

Положить на форму ADOConnection и Button. Connection настроить на нужную mdb. К кнопке написать показ списка таблиц:
procedure TForm1.Button1Click(Sender: TObject); var sl: TStrings; i: Integer; begin sl := TStringList.Create; try ADOConnection1.GetTableNames(sl, False); for i := 0 to (sl.Count - 1) do begin ShowMessage(sl[i]); end; finally sl.Free; end; end;
Теперь осталось "загрузить" эти таблицы. Ну это я уже не знаю, что такое.

Святослав

Тебе понадобятся компоненты из закладки ADO
...
s: string;
const DB = "C:\MyBase.mdb";
begin
s:= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + DB + ";Jet OLEDB:Engine Type=4";
t:= TStringList.Create;
ADOConnection1.ConnectionString:= s;
ADOConnection1.GetTableNames(t, false);
ShowMessage(t.Text); - получение списка таблиц
...
ADODataSet1.ConnectionString:=s;
ADODataSet1.CommandText := "SELECT * FROM Имя_Таблицы";
ADODataSet1.Open;
...
А чтобы увидеть все на экране еще DataSource и DBGrid какой нибудь.

mdb файлы в Delphi Найти похожие ветки