SQL запрос не срабатывает

[Janger]

Суть проста.. Хочу редактировать запись в базе....
Вот код:

     {
      qry1.Edit;

      qry1.FieldByName('client_opisanie').AsString := edt1.Text;
      qry1.FieldByName('client_date').AsDateTime := int(dtp1.Date) + frac(dtp2.Time);
      qry1.FieldByName('client_check').AsBoolean := chk1.Checked;
      qry1.FieldByName('client_history').AsString := mmo1.Text;

      qry1.Post;
     }
    qry2.SQL.Clear;
    qry2.SQL.Add('Update Client SET client_opisanie = ' + QuotedStr(edt1.Text) +
                              ' and client_date = ' + DateToStr(dtp1.Date) + TimeToStr(dtp2.Time)+
                              ' and client_check = ' + QuotedStr(edt1.Text)+
                              ' and client_history = ' + QuotedStr(edt1.Text)+
                 ' WHERE id_client LIKE ' + QuotedStr(edt2.Text));
    ShowMessage(qry2.SQL.Text);
    qry2.ExecSQL;

В первом случае, который закоментирован, ошибки никакой нету, но изменяется только первая запись... т.е. не важно какую запись я выбрал, редактируется только самая первая...
А во втором случае, выдаётся ошибка: "Неправильно определён объект Parameter. Предоставлены несогласованные или неполные сведения", у меня ощущение что он имеет в виду, вот эту строку:

' and client_date = ' + DateToStr(dtp1.Date) + TimeToStr(dtp2.Time)

но я не уверен....
В общем, если не сложно, подскажите как исправить ошибку ...

[Stilet]

В первом случае, который закоментирован, ошибки никакой нету, но изменяется только первая запись...

Все верно. Если не первая то та, на которой стоит курсор таблицы. Чтоб такой способ сработал его нужно крутить в цикле.

' WHERE id_client LIKE ' + QuotedStr(edt2.Text));

Ты знаешь как работает оператор LIKE?
Разницу между ним и = понимаешь? В данном случае LIKE сработает именно как равно.

А во втором случае, выдаётся ошибка

Которая говорит что дату-время так просто передавать нельзя. Либо заключи их в ковычки с помошью QuotedStr() либо действительно используй параметризированный запрос.

[Janger]

Сообщение от Stilet

Все верно. Если не первая то та, на которой стоит курсор таблицы. Чтоб такой способ сработал его нужно крутить в цикле.

Ты знаешь как работает оператор LIKE?
Разницу между ним и = понимаешь? В данном случае LIKE сработает именно как равно.

Которая говорит что дату-время так просто передавать нельзя. Либо заключи их в ковычки с помошью QuotedStr() либо действительно используй параметризированный запрос.

Насчёт = и Like, по моему, = используют когда со строками работают, а Like в случае работы с числами, вроде бы мне так объясняли
Насчёт второго ... У меня никак не выходит сделать всё с помощью QuotedStr() ... Думаю доделать первый способ, там как никак почти всё сделано, только надо курсор как то смещать с первого места

[Аватар]

вроде бы мне так объясняли

или вроде так думаешь. LIKE только для сравнения символьных строк по шаблону.

Думаю доделать первый способ

и зря. Второй способ гораздо эффективней, только стоит использовать параметризацию, особенно для даты-времени, да и для остального не помешает

[Stilet]

    qry2.SQL.Clear;
    qry2.SQL.Add('Update Client SET client_opisanie = :co'+
                              ' and client_date = :cd '+
                              ' and client_check = :cc '+
                              ' and client_history = :ch '+
                 ' WHERE id_client = :id';
    with qry.Parameters do begin
      ParamByName('id').Value:=edt2.Text;
      ParamByName('co').Value:=edt1.Text;
      ParamByName('cd').Value:=dtp1.Date+dtp2.Time;
      ParamByName('cc').Value:=edt1.Text;
      ParamByName('ch').Value:=edt1.Text;
    end;
    qry2.ExecSQL;

И все.

[Аватар]

еще лишние end-ы раскулачить бы

    qry2.SQL.Add('Update Client SET client_opisanie = :co'+
                              ', client_date = :cd '+
                              ', client_check = :cc '+
                              ', client_history = :ch '+
                 ' WHERE id_client = :id';

[Stilet]

Да. Не обратил внимания.