проблема с запросом ADOQuery

[Nurlan77]

Использую TADOQuery:

так добавляю:

  ADOQuery_Clients.Close;
  ADOQuery_Clients.SQL.Clear;
  ADOQuery_Clients.SQL.Text := 'SELECT * FROM [CLIENTS]';
  ADOQuery_Clients.Open;
  ADOQuery_Clients.Insert;
  ADOQuery_Clients.FieldByName('NAMES').AsString := Edit1.Text;
  ADOQuery_Clients.Post;
  ADOQuery_Clients.Close;

так изменяю:

  Q := 'UPDATE [CLIENTS] SET ' +
       '[CLIENTS].[NAMES]="' + Edit1.Text + '", ' + // тут стоит запятая потому что запрос поболее чем тут я выложил...
       'WHERE [CLIENTS].[ID]="' + sListView2.Items.Item[sListView2.ItemIndex].SubItems[21] + '"';

  ADOQuery_Clients.Close;
  ADOQuery_Clients.SQL.Clear;
  ADOQuery_Clients.SQL.Text := Q;
  ADOQuery_Clients.ExecSQL;
  ADOQuery_Clients.Close;

так удаляю:

  ADOQuery_Clients.Close;
  ADOQuery_Clients.SQL.Clear;
  ADOQuery_Clients.SQL.Text := 'DELETE * FROM [CLIENTS] WHERE [CLIENTS].[ID]="' + sListView2.Items.Item[sListView2.ItemIndex].SubItems[21] + '"';
  ADOQuery_Clients.ExecSQL;

при чем в последнем запросе на удаление я не задаю данные с кавычками ...там просто уже есть поле NAMES с кавычками и/или апострофами (тестировал)

[vovk]

В общем апострафы тут нужны только для текстовых значений, все вот эти ''' и '" можно заменить на Qutedstr то есть берём это

Q := 'UPDATE [CLIENTS] SET ' +
       '[CLIENTS].[NAMES]="' + Edit1.Text + '", ' + // тут стоит запятая потому что запрос поболее чем тут я выложил...
       'WHERE [CLIENTS].[ID]="' + sListView2.Items.Item[sListView2.ItemIndex].SubItems[21] + '"';

, и переписываем

Q := 'UPDATE [CLIENTS] SET ' +
       '[CLIENTS].[NAMES]=' + Quotedstr(Edit1.Text) + ', ' + // тут стоит запятая потому что запрос поболее чем тут я выложил...
       'WHERE [CLIENTS].[ID]="' + sListView2.Items.Item[sListView2.ItemIndex].SubItems[21] + '"';

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

то есть

 ADOQuery_Clients.Close;
  ADOQuery_Clients.SQL.Clear;
  ADOQuery_Clients.SQL.Text := 'UPDATE [CLIENTS] SET ' +
       '[CLIENTS].[NAMES] = :Name_, ' +// тут стоит запятая потому что 
запрос поболее чем тут я выложил...
       'WHERE [CLIENTS].[ID] = :id_;
 ADOQuery1.Parameters.ParamByName('name_').Value:= Edit1.Text;
 ADOQuery1.Parameters.ParamByName('id_').Value:= strtoint(sListView2.Items.Item[sListView2.ItemIndex].SubItems[21]);
//предположил что id всётаки integer
  ADOQuery_Clients.ExecSQL;
 // ADOQuery_Clients.Close; // лишнее

к остальным запросам это тоже относится

при чем в последнем запросе на удаление я не задаю данные с кавычками ...там просто уже есть поле NAMES с кавычками и/или апострофами (тестировал)

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

[Nurlan77]

//предположил что id всётаки integer

- там счетчик (код репликации)

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

-не знаю, но если поле NAMES или любое другое содержит кавычки или апострофы, то не удаляет

- как применить параметры к добавлению записи? я ведь использую это:

  ADOQuery_Clients.Insert;
  ADOQuery_Clients.FieldByName('NAMES').AsString := Edit1.Text;
  ADOQuery_Clients.Post;

тут не SQL запрос...

и еще в запросе добавления добавляет запись типа i don't know -(один апостроф) но потом и с параметрами не изменяет (проверил) и не удаляет
а если дать i don't" know - ошибка, при чем если и апостроф и кавычку сделать по две запишет - но именно по две запишет

[vovk]

я тут только про зпараметры в запросах говорил

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

ради интереса сделал табличку и проверил

var
i:Integer;
begin
i:= ADOQuery1.Fields.FieldByName('id').AsInteger;
ADOQuery1.Close;
ADOQuery1.SQL.Text:= 'delete from qq  WHERE id = :id_';
ADOQuery1.Parameters.ParamByName('id_').Value:=i;
ADOQuery1.ExecSQL;

значения одного из полей

2
2
rw
wrw
"[sdfksfksdj""kjkjsdf'ds]"
"[sdfksfksdj""kjkjsdf'ds]"
"""sfags']'''""
;'''df'fd'['
"fsdgdsgds"
''''''''''''''
[][][]][][][][]

как и ожидалось любая запись нормально удаляется

PS если код репликации, то скорее так

var
i:string;
begin
i:= ADOQuery1.Fields.FieldByName('id').AsString;
ADOQuery1.Close;
ADOQuery1.SQL.Text:= 'delete from qq  WHERE id = :id_';
ADOQuery1.Parameters.ParamByName('id_').Value:=i;
ADOQuery1.ExecSQL;

[Nurlan77]

у меня счетчик имеет значение типа:
{E2564D47-32A8-420D-812B-9700F443AC89}

значения одного из полей
Цитата:
2
2
rw
wrw
"[sdfksfksdj""kjkjsdf'ds]"
"[sdfksfksdj""kjkjsdf'ds]"
"""sfags']'''""
;'''df'fd'['
"fsdgdsgds"
''''''''''''''
[][][]][][][][]

- это memo поле?

[Nurlan77]

у меня счетчик имеет значение типа:
{E2564D47-32A8-420D-812B-9700F443AC89}

значения одного из полей
Цитата:
2
2
rw
wrw
"[sdfksfksdj""kjkjsdf'ds]"
"[sdfksfksdj""kjkjsdf'ds]"
"""sfags']'''""
;'''df'fd'['
"fsdgdsgds"
''''''''''''''
[][][]][][][][]

- это memo поле?

[vovk]

- это memo поле?

нет текстовое поле, просто разные записи

Про код репликации я выше добавил сразу

[Nurlan77]

to vovk
спасибо за направление...вроде с параметрами изменяет. удалять пока не пробовал.

а как задать таким образом sql запрос на добавление записи?

[vovk]

ТОчно также, в теле запроса после двоеточия параметр

ADOQuery1.Close;
ADOQuery1.SQL.Text:= 'INSERT INTO Table_name  (pole2,pole3) VALUES(:pole2_,:pole3_)';
ADOQuery1.Parameters.ParamByName('pole2_').Value:=edit1.Text;
ADOQuery1.Parameters.ParamByName('pole3_').Value:=strtoInt(edit2.Text);
ADOQuery1.ExecSQL;

[Nurlan77]

спасибо