как подключиться к БД из dll?

[fLytarget]

Вообщем есть такая задача. Есть БД данных акцесс. в главном проекте подключена через ADO. к примеру я хочу подключиться к бд с главного проекта и пишу следующий код нажатии на кнопку

ADOConnection1.connected:=true;

а вот как запихнуть этот код в dll ? чтобы при вызове процедуры из DLL екзэшник подключался к БД?

[Баламут]

DLL-ку мне писать лениво очень, но думаю тут и так все понятно. Т.е. засунь эту функцию в длл и пусть оттуда она возвращает коннекшн. В общем разберешься

procedure TForm1.Button1Click(Sender: TObject);
begin
// s := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=base1.mdb;Persist Security Info=False';
// Connect := TADOConnection.Create(Owner);
// Connect.ConnectionString := s;
// Connect.LoginPrompt := false;
// Connect.Connected := true;
// ADOTable1.Connection := Connect;
// ADOTable1.TableName := 'tab1';
// DataSource1.DataSet := ADOTable1;
// DBGrid1.DataSource := DataSource1;
// ADOTable1.Active := true;

ADOConnection1 := GetConnect;
ADOTable1.Active := true;


end;

function TForm1.GetConnect: TADOConnection;
begin
 s := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=base1.mdb;Persist Security Info=False';
 Connect := TADOConnection.Create(Owner);
 Connect.ConnectionString := s;
 Connect.LoginPrompt := false;
 Connect.Connected := true;
 Result := Connect;
end;

[Stilet]

а вот как запихнуть этот код в dll ? чтобы при вызове процедуры из DLL екзэшник подключался к БД?

Во-первых: Зачем тебе это надо?
Во-вторых: Ты где хочешь держать компоненты ADO в той же Библе или на форме?

В принципе если в ДЛЛ пихать такое то либо тебе нужно получить потом из ДЛЛ переменку-компонент ADO что б с ним на форме работать либо определить в ДЛЛ нужные процедуры и функции.

[fLytarget]

Дипломку пишу, решил гемороя себе подкинуть )) Уже разобрался ))) Спасибо )))