VPF::Проблемма с обнулением поля - Форум программистов

former

Дата 4.12.2006, 20:49 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 7
Всего: 17

Никогда раньше не пользовался запросами, а тут понадобилось Blob поле очистить. Попытался сделать следующее для нескольких полей, новыдаёт ошибку. 'Error creating table handle - Native error - 20001'. Что не так?

Код


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=1 to 3 do  
  begin
     Query1.Close;
     with Query1 do
     begin
       SQL.Clear;
       SQL.Add:='UPDATE table1 SET Pic = Null WHERE Name = :val';
        with Params do
        begin
          ParamByName('val').Value := 'Запись 2';
        end;
      Open;
    end;
  end;
end;

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Golden Hands

Дата 4.12.2006, 23:31 (ссылка)

(нет голосов)

Загрузка ...

Золотой

Профиль
Группа: Участник Клуба
Сообщений: 2023
Регистрация: 23.1.2005
Где: Екатеринбург

Репутация: 2
Всего: 83

Код


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin

  Query1.Active:=False;
  with Query1 do
  begin
    Query1.Params.ParamByName('val').Value := 'Запись 2';
    SQL.Clear;
    SQL.Add('UPDATE table1 SET Pic = Null WHERE Name = :val');
  end;
  Query1.ExecSQL; 

end;

--------------------

Мы обречены... но только на победу!
Настанет день, и мы построим новый дом.
Внесем в него тепло, что сохранить сумели,
И воскресим все то, что в нас когда-то умерло... © Тень Света

former

Дата 5.12.2006, 01:39 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 7
Всего: 17

Golden Hands, попытался сделать, как ты написал, но появляется ошибка: 'Table1: Field 'val' not found'

Код


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=1 to 3 do
  begin
    Query1.Active:=False;
    with ABSQuery1 do
    begin
      Query1.Params.ParamByName('val').Value := 'Çàïèñü '+InttoStr(i);
      SQL.Clear;
      SQL.Add('UPDATE table1 SET Pic = Null WHERE Name = :val');
    end;
  Query1.ExecSQL;
  end;
end;

Может я что-то не так делаю?

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Vas

Дата 5.12.2006, 08:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 23
Всего: 28

Может снчала текст запроса надо написать, а потом параметрам значения присваивать?

Код


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=1 to 3 do
  begin
    Query1.Active:=False;
    with ABSQuery1 do
    begin
      SQL.Clear;
      SQL.Add('UPDATE table1 SET Pic = Null WHERE Name = :val');
      Params.ParamByName('val').Value := 'Çàïèñü '+InttoStr(i);
    end;
  Query1.ExecSQL;
  end;
end;

--------------------

И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)

former

Дата 5.12.2006, 20:25 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 7
Всего: 17

Всем спасибо. Всё работает.

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »