В чем ошибка при SQL запросе

[Arsenx777]

procedure TForm1.Button2Click(Sender: TObject);
begin
 
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
 
ADOQuery1.SQL.Add('INSERT INTO users(a1,a2,a3,a4,a5,a6,a7) VALUES('''+edit1.Text+','+edit2.Text+','+edit3.Text+','+edit4.Text
+','+edit5.Text+','+edit6.Text+','+edit7.Text+''')');
 
ADOQuery1.ExecSQL;
 
end;

При SQL запросе INSERT гдето ошибка, там походу синтаксическая ошибка, в значениях, как правильно написать?
Или я с запятыми намудрил или с кавычками.

[Stilet]

'''

Зачем? Ты все параметры окутываешь в строку? Какие у тебя типы полей?

[Arsenx777]

текстовое поле, а как надо? я просто первый раз на delphi c БД работаю, до этого только на php

[artemavd]

Не помню точно как в ADO, но в Firebird это делается (через параметры) так:

  pFIBQuery1.Close;
  pFIBQuery1.SQL.Text:='INSERT INTO TABLE_S(ONR,ONT) VALUES (:R,:T)';
  pFIBQuery1.ParamByName('R').Value:=Trim(sEdit2.Text);
  pFIBQuery1.ParamByName('T').Value:=Trim(sEdit4.Text);
  pFIBQuery1.ExecQuery;

смысл ясен? Используй параметры. А как это делается в ADO - посмотри на форуме тут или в гугле. Информации достаточно.

[Stilet]

Надо тогда каждый эдит в ковычки:

VALUES('+QuotedStr(edit1.Text)+','+QuotedStr(edit2.Text)+...

[Аватар]

Вариантов много, вот один из них

s:=Format('INSERT INTO users(a1,a2,a3,a4,a5,a6,a7) VALUES(''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'')',[edit1.Text,edit2.Text,edit3.Text,edit4.Text,edit5.Text,edit6.Text,edit7.Text]);
ADOQuery1.SQL.Add(s);

[Arsenx777]

спасиб братиш) уже с утра не мог разобрать не на одном форуме не помогали)

Если я могу комут помоч, то помогаю...

[Аватар]

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