Изменение Базы Данных через Update

[laFleuere]

for i:=1 to DBGrid1.DataSource.DataSet.RecordCount do
   begin
      DataSource1.DataSet.RecNo:=i;
      GameTitle:=DataSource1.DataSet.FieldByName('Title').AsString;
      if DirectoryExists(DataSource1.DataSet.FieldByName('Path1').AsString)
      then begin
//            ADOQuery1.SQL.Clear;
              ADOQuery1.SQL.Add('UPDATE gameTable SET status='+QuotedStr('Not Found')+' WHERE Title LIKE '+QuotedStr('%'+GameTitle+'%'));
              ADOQuery1.ExecSQL;
           end;

Смысл следующий. Изначально загружаю базу через ADOQuery1. Затем проверяю, если директория из поля 'Path1' не существует, то полю 'Status' данной записи присваиваю значение 'Not Found'. Все это проводится в цикле для все записей. При запуске программы ругается на ADOQuery1.ExecSQL с ошибкой 'Syntax error in FROM clause'. Если убрать комментарий с ADOQuery1.SQL.Clear, то ошибка 'Field Title not found'. В чем проблема и как ее решить?

[ych_del]

1. Частности.

> ADOQuery1.ExecSQL с ошибкой 'Syntax error in FROM clause'

Ты уверен, что ADOQuery1.SQL.Text изначально пустой? Проверь интереса ради.
А еще подумай, что будет происходить при каждом проходе цикла, если не очищать запрос.
Исправь ADOQuery1.SQL.Add('UPDATE ... на ADOQuery1.SQL.Text := 'UPDATE ...

> Если убрать комментарий с ADOQuery1.SQL.Clear, то ошибка 'Field Title not found'. В чем проблема и как ее решить?

Телепаты в отпуску. Скорее всего, ты и в самом деле с именем поля ошибся - СУБД просто так, чтобы тебя позлить, такие сообщения выдавать не будет.

2. Общее

Юзай параметры, ну на фига тебе вот эти извращения с QuotedStr и т.п.?

[Stilet]

Скорее всего

Я б сказал - Однозначно.

[laFleuere]

2ych_del

ADOQuery1.SQL.Text изначально содержит 'SELECT * FROM gameTable'

Поле 'Title' существует, но именно когда я убираю комментарий с ADOQuery1.SQL.Clear, то он начинает так ругаться. В этом то вся и загвоздка.

P.S.

Исправь ADOQuery1.SQL.Add('UPDATE ... на ADOQuery1.SQL.Text := 'UPDATE ...

Спасибо, это помогло

[ych_del]

Кстати, а какая СУБД? Просто отвлеченный вопрос.

[laFleuere]

2ych_del

Если честно, я не смогу ответить на твой вопрос. Когда-то учил все это, а сейчас уже все эти определения забыл. Подключил через Access (если это вообще то).

Кстати, теперь появилась другая ошибка:

              ADOQuery1.Active:=False;
              ADOQuery1.SQL.Clear;
              ADOQuery1.SQL.Text:='UPDATE gameTable SET Status='+QuotedStr('Not Found')+' WHERE Title LIKE '+QuotedStr('%'+GameTitle+'%');
              ADOQuery1.ExecSQL;
              ADOQuery1.Active:=True;

Теперь он говорит 'Current provider does not support returning multiple recordset form a single execution', а если продолжить, то 'ADOQuery1: CommandText does not return a result set'

[ych_del]

              ADOQuery1.Active:=False;
              ADOQuery1.SQL.Clear;                    // ЛИШНЕЕ
              ADOQuery1.SQL.Text:='UPDATE gameTable SET Status='+QuotedStr('Not Found')+' WHERE Title LIKE '+QuotedStr('%'+GameTitle+'%');
              ADOQuery1.ExecSQL;
              ADOQuery1.Active:=True;     // УДАЛИТЬ

Еще вопрос. У тебя DBGrid1 отображает данные, получаемые с помощью ADOQuery1?

[Stilet]

Еще вопрос.

Гы!... Дай угадаю:

              ADOQuery1.Active:=False;
              s:=ADOQuery1.SQL.Text;
              ADOQuery1.SQL.Text:='UPDATE gameTable SET Status='+QuotedStr('Not Found')+' WHERE Title LIKE '+QuotedStr('%'+GameTitle+'%');
              ADOQuery1.ExecSQL;
              ADOQuery1.SQL.Text:=s; 
              ADOQuery1.Active:=True;

Где s:String - переменка
И все будет чики-пики, если у автора данные нужно вывести в грид, или короче говоря открыть с изменениями.

[ych_del]

Гы!... Дай угадаю:

К тому и спрашиваю (:

И все будет чики-пики, если у автора данные нужно вывести в грид, или короче говоря открыть с изменениями.

Вот точно не помню, но, ЕМНИП, должно прокатить вообще вот так:

ADOQuery1.First;
with ADOQuery1 do while not Eof do begin
   if not DirectoryExists(FieldByName('Path1').AsString) then begin
      Edit;
      FieldByName('status').AsString := 'Not found';
      Post;
   end;
   Next;
end;

Во всяком случае, на том же FIBDataSet прописываешь SQLs.UpdateSQL и в путь.