Ошибка синтаксиса (пропущен оператор) в выражении запроса

[Аватар]

А так:

... VALUES ('''','+QuotedStr ...

еще - если в одном из эдитов кавычка встретится, то будет полный облом. Лучше через параметры

[googl]

('','+QuotedStr(Edit4.Text)+','+Quoted Str(Edit1.Text)+','+QuotedStr(Edit2 .Text)+','+QuotedStr(Edit5.Text)+', '+QuotedStr(Edit6.Text)+','+QuotedS tr(Edit7.Text)+')';

Вот там не так

[lord24]

Сообщение от Аватар

А так:

А так вроде норм, только ругается на "не соответствие типов данных в выражении условия отбора".
По моему эту ошибку видел уже, но что-то не цепануло.
Так вот, какой тип?

'INSERT INTO Adreses ([Код],[Index],[Name],[Adres],[Sity],[Obl],[Regin]) VALUES ('''','+QuotedStr(Edit4.Text)+','+QuotedStr(Edit1.Text)+','+QuotedStr(Edit2.Text)+','+QuotedStr(Edit5.Text)+','+QuotedStr(Edit6.Text)+','+QuotedStr(Edit7.Text)+')';

Если поле код - это счетчик, то как его тогда иначе прописать в запросе?
PS: Да, база в Acces если что.

[Аватар]

Вообще не прописывать ни в перечне, ни в значениях

[lord24]

Сделал так

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Adreses ([Index],[Name],[Adres],[Sity],[Obl],[Regin]) VALUES ('+QuotedStr(Edit4.Text)+','+QuotedStr(Edit1.Text)+','+QuotedStr(Edit2.Text)+','+QuotedStr(Edit5.Text)+','+QuotedStr(Edit6.Text)+','+QuotedStr(Edit7.Text)+')');
ADOQuery1.Active := true;
ADOQuery1.ExecSQL;
Edit1.Clear;
Edit2.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Adreses');
ADOQuery1.Active := true;
ADOQuery1.ExecSQL;

И вот "текущий проводник не поддерживает возврат нескольких наборов записей в результате одной операции"
По ходу что-то лишнее в коде, но надо что бы Грид обновился после всего.

Хотя в базу добавляет в итоге.

[Аватар]

ADOQuery1.ExecSQL;

Какой тайный смысл в этом в самом конце?

[lord24]

Сообщение от Аватар

Какой тайный смысл в этом в самом конце?

Отправка запроса, что бы грид показал все записи.
Хотя и комментирование этой строчки приводит к той же проблеме.

Ну, да есть же true. наверно можно и без нее.

[lord24]

Все до шел.
Спасибо, Аватар.

[Аватар]

Ну, да есть же true. наверно можно и без нее.

Не можно без нее, а нельзя так делать. Active:=True (или Open) и ExecSQL совершенно разные по смыслу и назначению и в тандеме их применение бессмысленно и ошибка гарантирована

[lord24]

Да я убрал строчку с "АКТИВ" и все пошло как надо.
Во теперь над UPDATE бьюсь "Ошибка внутри конструкции".....

ADOQuery1.SQL.Add('UPDATE Adreses SET Index = QuotedStr(Edit4.Text), Name = QuotedStr(Edit1.Text), Adres = QuotedStr(Edit2.Text), QuotedStr(Edit5.Text), Obl = QuotedStr(Edit6.Text), Regin = QuotedStr(Edit7.Text)');