Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
| cooler |
15.05.2011 23:03
Сообщение
#1
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 178 Пол: Мужской Репутация: 0 |
Работа с БД access
Результаты расчётов записываются в неё SaveDialog Пользователь в этом диалоге указывает имя базы и после этого создаём и подключаем базу Подскажите, пожалуйста как привязать имя, которое указал пользователь к ADOConnection? Сейчас в ConnectionString Provider=Microsoft.Jet.OLEDB.4.0;Data source=CCategory.mdb;Moad=ReadWrite; Persist Security Info=False
|
![]() ![]() |
| IUnknown |
16.05.2011 1:15
Сообщение
#2
|
![]() a.k.a. volvo877 ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: 627 |
const
ConnStr =
'Provider=Microsoft.Jet.OLEDB.4.0;Data source=%s;' +
'Mode=ReadWrite; Persist Security Info=False';
procedure TForm1.Button1Click(Sender: TObject); // ну, или где там тебе надо
begin
if SaveDialog2.Execute then // пользователь указал имя ...
begin
ADOConnection2.Close;
ADOConnection2.ConnectionString := Format(ConnStr, [SaveDialog2.FileName]); // привязали
ADOConnection2.LoginPrompt:=false;
ADOConnection2.Open;
end;
end;
Заметил в константе %s, да? Вот туда и забросится введенное пользователем имя... |
![]() ![]() |
|
Текстовая версия | 15.11.2025 10:35 |