| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

mdb файлы в Delphi [D2005, XP]

Святослав ©   (2006-12-25 02:57:00) 

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

---

allrussia   (2006-12-25 11:06:00) [1]

Святослав

Тебе понадобятся компоненты из закладки 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 какой нибудь.

---

palva   (2006-12-25 10:55:00) [2]

Положить на форму 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;

Теперь осталось "загрузить" эти таблицы. Ну это я уже не знаю, что такое.

---

Kostafey   (2006-12-25 09:52:00) [3]

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

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

---

SergP   (2006-12-25 04:09:00) [4]

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


Это как?

---

Наверх