Изменить файл баззы данных

[SlavaSH]

Как сделать возможность менять базу данных Access прям в программе?
Соединяюсь при помощи ADO.

Только не говорите, что нужно полностью изменить ConnectionString

Есть другой вариант?

[Stilet]

менять базу данных Access прям в программе?

Что значит менять?

[Neeter]

Может так:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
 DataModule1.ADOConnection1.Close;
 if EditConnectionString(DataModule1.ADOConnection1) then 
 begin 
  DataModule1.ADOConnection1.Connected:=true; 
  DataModule1.ADOTable1.Active:=true; 
 end; 
end;

Подключите в uses модуль ADOConEd.
Здесь появляется такое-же окно, как и при создании ConnectionString в делфи.
Код взят из книги Библия программиста

[S@fer]

Может так?

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
  ADOConnection1.Connected:=False;
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+OpenDialog1.FileName+'Persist Security Info=False'
  ADOConnection1.Connected:=True;
end;
end;

[SlavaSH]

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

Может так:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
 DataModule1.ADOConnection1.Close;
 if EditConnectionString(DataModule1.ADOConnection1) then 
 begin 
  DataModule1.ADOConnection1.Connected:=true; 
  DataModule1.ADOTable1.Active:=true; 
 end; 
end;

Подключите в uses модуль ADOConEd.
Здесь появляется такое-же окно, как и при создании ConnectionString в делфи.
Код взят из книги Библия программиста

что-то я не догоняю... а где здесь изменился файл базы данных?

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

[SlavaSH]

Сообщение от S@fer

Может так?

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
  ADOConnection1.Connected:=False;
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+OpenDialog1.FileName+'Persist Security Info=False'
  ADOConnection1.Connected:=True;
end;
end;

что-то у вас слишком простая строка...
у меня вот такая она:
Provider=Microsoft.Jet.OLEDB.4.0;Us er ID=Admin;Data Source=C:\Base.mdb;Mode=Share Deny None;Extended Properties="";Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

и присваивать ее при смене базы как-то фигово, как мне кажется... что другого пути нет?

[S@fer]

что-то у вас слишком простая строка

ну так Вы сначала проверьте, для подключения к бд Access хватает этой строчки.

[Stilet]

как мне кажется

Ниче такого страшного в ней нет. Присваивай и не бойся.

[SlavaSH]

Сообщение от S@fer

ну так Вы сначала проверьте, для подключения к бд Access хватает этой строчки.

а я и проверил :-) и все работает)))

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

[Neeter]

что-то я не догоняю... а где здесь изменился файл базы данных?

Хех, а вы попробовали?