Скачать: CL | DM;

Редактирование данных, полученных в результате выполнения SQL-запроса   Найти похожие ветки 

← →
Марина   (2002-03-22 09:45) [0]

Есть вот такой код
with Query1 do
begin
Close;
Prepare;
vkl:=strtoint(Edit1.Text);
otkl:=-strtoint(edit1.text);
ParamByName("v").AsInteger:=vkl;
ParamByName("ot").AsInteger:=otkl;
if Query1NB1.Value=StrToint("164") then
Query1NB1.Value:=StrToInt("1");
Open;
Подскажите, пожалуйста, почему сам запрос выполняется, а редактирование - нет. Заранее спасибо.

---

← →
Praco ©   (2002-03-22 09:56) [1]

Код упростим :

with Query1 do
begin
Close;
ParamByName("v").AsString:=Edit1.Text;
ParamByName("ot").AsString:="-"+edit1.text;
Prepare;
Open;
Edit;
if Query1NB1.Value=StrToint("164") then
Query1NB1.Value:=StrToInt("1");

Запрос тоже надо показать.

---

← →
Praco ©   (2002-03-22 10:02) [2]

Забыл, еще упростим:
if Query1NB1.Value = 164 then Query1NB1.Value := 1;

:))

Если не редактируется, то дело в запросе.

---

← →
fnatali ©   (2002-03-22 10:56) [3]

Requestlive:=true, запрос без сортировки, группировки, по одной таблице - тогда будет редактироваться

---

← →
wicked ©   (2002-03-22 12:48) [4]

> запрос без сортировки, группировки, по одной таблице

шаг в сторону - расстрел, прыжок - провокация... :))

на этот случай лучше держать 2 query - 1-й для просмотра (с сортировками, группировками), а второй - для редактирования (только главная таблица без сортировок, и группировок)...

а еще можно использовать TUpdateSQL, но тут я молчу, так как никогда его не пользовал...

---

← →
drpass ©   (2002-03-22 12:56) [5]

Вообще-то разумнее выполнить Update <чего там> set nb1=164 where nb1=1;
И трудно судить, не видя текста самого запроса

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c