[true]

Можно ли подключить другую бузу данных через OpenDialog?
компоненты используемые в базе: AdoConnection, Datasource, Adotable

Вот чтот типа такого:
if Opendialog1.Execute then
AdoConnction1.DataSet...(OpenDialog1.Filename)

Это полюбому не правильный код ну я думаю поймете)) Спасибо отвечающим)

[friz]

можно, просто поменяй нужный кусок в connection string

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Admin\Рабочий стол\База данных1.mdb;Persist Security Info=False

надо заменять выделенный путь!

это при условии что нету логина и пароля

[true]

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

можно, просто поменяй нужный кусок в connection string

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Admin\Рабочий стол\База данных1.mdb;Persist Security Info=False

надо заменять выделенный путь!

это при условии что нету логина и пароля

Т.е нужно путь как переменную задать?

н.р s:FileName;

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=+s+;Persist Security Info=False

Так?

Я хочу чтобы можно было открывать другую бд, через пункт открыть

[friz]

да что-то типо того

[true]

Спасибо большое

А можешь показать что нужно дописать или подправить?

procedure TForm1.N34Click(Sender: TObject);
var
s:string;
begin
if OpenDialog1.Execute then
begin
s:=OpenDialog1.FileName;
DataModule2.ADOTable1.ConnectionString(Provider=Mi crosoft.Jet.OLEDB.4.0;Data Source=+s+;Persist Security Info=False);
end;
end;

[Страдалецъ]

Ну во первых, подключать правильнее не каждую таблицу/запрос, а всю базу сразу. Для этого там есть компонент TAdoConnection. А уже TAdoQuery/TAdoTable связывать с установленным подключением.
Во вторых, строка подключения это СТРОКА подключения, и как любые строки в Дельфи они обрамляются в кавычки.

Код:

DataModule2.ADOTable1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+s+';Persist Security Info=False';

Создавать дополнительную пременную s только для этих целей нет необходимости, вполне хватит прямого обращения

Код:

DataModule2.ADOTable1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+OpenDialog1.FileName+';Persist Security Info=False';

[true]

Спасибо такой код работает адоконекшен у меня есть, но вот в дбгрид все равно не выводит
пробывал датусорс менять все равно..

Код:

DBGrid1.DataSource:=DataModule2.DataSource1;

[Страдалецъ]

Что-бы все работало правильно должна быть такая связка:
Connection -> Query -> DataSource -> DBGrid
или
Connection -> Table -> DataSource -> DBGrid