Текущий архив: 2004.12.05;
Скачать: CL | DM;

Вниз

Обьясните пожалуйста как корректировать BD   Найти похожие ветки 

← →
denisww ©   (2004-11-01 13:06) [0]

Я изучаю SQL
сформировал через TQuery запрос на формирование одной таблицы из 2ух Paradox - результат в DBGrid.

сразу встал вопрос как в ручную редактировать результат
и
я пишу запрос для добавления строки в базу(INSERT)
строка встаёт , но Delphi ругается про ошибку создания "курсора"

просветите пожалуйста уважаемые знатоки на простеньком примере, как правильно действовать

---

← →
Наталия ©   (2004-11-01 13:27) [1]

Попробуй использовать также TUpdateSQL - напиши в нем нужные запросы на insert,update,delete...

---

← →
denisww ©   (2004-11-01 13:38) [2]

Спасибо
TUpdateSQL - решит проблемму с запросами insert,update,delete...

а есть возможность открыть DBGrid для редоктирования ?

---

← →
Sergey13 ©   (2004-11-01 13:45) [3]

2[2] denisww ©   (01.11.04 13:38)
>а есть возможность открыть DBGrid для редоктирования ?
Есть. TUpdateSQL 8-)

---

← →
DenisWW ©   (2004-11-02 15:06) [4]

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

procedure TForm1.FormCreate(Sender: TObject);
begin
Query1.Open;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Query1.Close;
end;

procedure TForm1.Query1BeforeClose(DataSet: TDataSet);
begin
if Query1.UpdatesPending and (MessageDlg("Сохранить изменения?", mtConfirmation,
 [mbYes,mbNo], 0)=mrYes) Then Query1.ApplyUpdates;
end;

Помогите

---

← →
DenisWW ©   (2004-11-02 15:06) [5]

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

procedure TForm1.FormCreate(Sender: TObject);
begin
Query1.Open;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Query1.Close;
end;

procedure TForm1.Query1BeforeClose(DataSet: TDataSet);
begin
if Query1.UpdatesPending and (MessageDlg("Сохранить изменения?", mtConfirmation,
 [mbYes,mbNo], 0)=mrYes) Then Query1.ApplyUpdates;
end;

Помогите

---

← →
Hmm ©   (2004-11-03 00:08) [6]

вот так всё работает:


procedure TForm1.FormCreate(Sender: TObject);
begin
Query1.Open;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Query1.Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var k: integer;
begin
k:= MessageDlg("Ñîõðàíèòü èçìåíåíèÿ?", mtConfirmation,[mbYes,mbNo], 0);
if (Query1.UpdatesPending) and (k=mrYes) Then begin
Query1.ApplyUpdates;
end
else begin
bquery1.CancelUpdates;
end;
end;


PS: не забудь свойство query1.cachedupdates установить в true, перед выполнением программы

---

← →
DenisWW ©   (2004-11-04 14:47) [7]

Почемуже procedure TForm1.FormDestroy(Sender: TObject);
begin
Query1.Close;
end;
не генерит Query1BeforeClose(DataSet: TDataSet);
???????:)

---

Страницы: 1 вся ветка

Текущий архив: 2004.12.05;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.043 c