Форум: "Базы";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];
ВнизОбьясните пожалуйста как корректировать 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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.038 c