[bragol]

Всем привет!
Пишу программу, использующую собственно базу данных database.
Использую такие компоненты как Table и Query, по началу все было хорошо программа почти завершена, но тут задумался о том, что поменяв свое место расположения путь к базе в свойсвах DatabaseName поменяются, добавил в проект новую форму, для того чтобы перед запуком основной указать путь к файлу базы данных, ниже код:

procedure TForm2.Button1Click(Sender: TObject);
begin
OpenDialog1.FileName := Edit1.Text;//обращаемся сперва к предыдущему файлу

if OpenDialog1.Execute then //открываем окно выбора файла и если он выбран
begin
if not(OpenDialog1.FileName = Edit1.Text) then
Edit1.Text := OpenDialog1.FileName;//запоминаем его
end;

end;

procedure TForm2.Button2Click(Sender: TObject);
begin
if FileExists(Edit1.Text) then //если файл существует
begin
Form1.Table1.DatabaseName:=edit1.Text;

Form1.Query1.DatabaseName:=edit1.Text;
Form1.Query1.Active:=true;
Form1.Table1.Active:=true;
form2.Hide;
form1.Show;
end;
end;

после компиляции натыкался на ряд ошибок меняющихся в зависимости от неких моих действий, но все они были однотипные:

Table1: Cannot perform this operation on an open dataset

Может кто-нибудь подсказать в чем моя ошибка и как лучше реализовать мое желание

ЗЫ Заранее благодарен

[TOJluK]

Перед изменением имени таблицы:

Код:

Table1.Active:=False;

имени базы:

Код:

DB.Connected:=False;

потом указывай имя и переводи все обратно в True

[bragol]

вот это

DB.Connected:=False;

судя по всему лишнее, а первый совет нужен, осталось только в edit1.text с конца удалить имя таблицы, т.к. оно лишнее

[bragol]

все работает большое спасибо, моя ошибка была в том, что я form1.Table1.Active:=False; устанавливал в ручную и думал, что это достаточно, а сейчас добавил

GetStr := Edit1.Text;
for i:=1 to 9 do Delete (GetStr, Length(GetStr),1);
form1.Table1.Active:=False;
Form1.Query1.Active:=false;
Form1.Table1.DatabaseName:=GetStr;
Form1.Query1.DatabaseName:=GetStr;
Form1.Query1.Active:=true;
Form1.Table1.Active:=true;

и все заработало