Форум: "Базы";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
ВнизРедактирование данных, полученных в результате выполнения 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 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c