Форум: "Начинающим";
Текущий архив: 2007.01.14;
Скачать: [xml.tar.bz2];

Вниз

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;

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

---

← →
allrussia ©   (2006-12-25 11:06) [4]

Святослав

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.01.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.015 c