базы данных

[phasha]

как открыть базу данных microsoft access в среде delphi?

[Stilet]

Подключив ее через ADO компоненты.
Умеешь работать с BDE? Если да то это почти тоже самое, только подключение задается в свойстве ConnectionString. Выбирается драйвер JET OLE DB и указывается путь к mdb файлу.

[phasha]

я умею только с форматом BDF работать а с акцесом не получается((расскажите пожалуйста подробнее об этом?

[Stilet]

Понятно. Пойдем от простого (для меня).
Кидай на форму ADOQuery, TDBGrid, TDataSource.
Далее при создании формы прописывай строку подключения:

procedure TForm2.FormCreate(Sender: TObject);
begin
// Используя АДО
 with ADOQuery1 do begin
 // Указываем базу Акцесса по такому то пути
  ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'
   +'Data Source=C:\Documents and Settings\я\Мои документы\db1.mdb;Persist Security Info=False';
  // привязываем датасет
  DataSource1.DataSet:=ADOQuery1;
  // А к нему грид
  DBGrid1.DataSource:=DataSource1;
  // Вбиваем запрос к базе
  SQL.Text:='select * from Таблица1';
  // и активируем
  Active:=true;
 end;
end;

Это минимум. Путь к БД файлу естесственно укажешь правильный

[phasha]

 Active:=true;

на этой строке выходит ошибка(

[Stilet]

на этой строке выходит ошибка(

Ну так выпусти ее. Видишь на волю просится, погулять хочет

[phasha]

ладно)спасибо что направили!

[Stilet]

Незачто... )

[denisbrain]

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

Незачто... )

procedure TDataModule2.DataModuleCreate(Sender: TObject);
   var x:integer;
begin
if load then begin
 load:=false;
getdir(0,dir);
  try
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+dir+'\database\procedureBase.mdb;Persist Security Info=False;';
  ADOConnection1.Connected:=true;
  for X:=0 to ADOConnection1.DataSetCount-1 do begin
      ADOConnection1.DataSets[x].Active:=true;
  end;
  except
    Showmessage('Ошибка подключения к базе данных скриптов!');
  end;

  end;
end;

[Stilet]

getdir(0,dir);

Опасная штука...

ADOConnection1

Можно и так, но я лично этим компонентом не пользую.