Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Социальные группы Поиск Сообщения за день Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 09.10.2014
Сообщений: 78

Ошибка синтаксиса в инструкции INSERT TO

29.05.2016, 20:44. Показов 776. Ответов 14
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
begin
datamodule2.ADOQuery3.SQL.Clear;
datamodule2.ADOQuery3.SQL.Text:='insert into Выписка (Регистрационный номер, ФИО, Адрес, Дата рождения, Дата приема, Дата выписки, Вид услуги) Values (:r1, :r2, :r3, :r4, :r5, :r6, :r7)';
datamodule2.ADOQuery3.Parameters.ParamBy Name('r1').Value :=dbedit1.Text;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r2').Value := dbedit2.Text;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r3').Value := dbedit3.Text;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r4').Value := dbdateedit1.Date;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r5').Value := dbdateedit2.Date;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r6').Value := dbdateedit3.Date;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r7').Value := dbcombobox1.Text;
datamodule2.ADOQuery3.ExecSQL;
end;
Миниатюры
Ошибка синтаксиса в инструкции INSERT TO  
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 29.05.2016, 20:44
Ответы с готовыми решениями:

Ошибка синтаксиса в инструкции INSERT INTO
procedure TForm16.Button1Click(Sender: TObject); var s:String; begin begin s:='INSERT INTO Заказы (, , , ,, ,) VALUES...

Ошибка синтаксиса в инструкции INSERT INTO
Скажите, пожалуйста, где ошибка. begin if (Edit1.Text <>'') and (Edit2.Text<>'') and (Combobox1.Text<>'') then begin With...

Ошибка синтаксиса в инструкции insert into
procedure TForm3.sButton2Click(Sender: TObject); begin if (sedit1.text <> '') and (sedit2.text <> '') and (sedit3.text <> '') then ...

14
Хитрая блондиночка $)
 Аватар для Hikari
1472 / 988 / 399
Регистрация: 21.12.2015
Сообщений: 3,785
29.05.2016, 20:52
Цитата Сообщение от LSlslsls Посмотреть сообщение
(Регистрационный номер
Поле в имени которого пробелы требует ограничения двойными ковычками или брекетами []
Delphi
1

datamodule2.ADOQuery3.SQL.Text:='insert into Выписка ("Регистрационный номер",...
И так все остальные
0
0 / 0 / 0
Регистрация: 09.10.2014
Сообщений: 78
29.05.2016, 20:58  [ТС]
Hikari, begin
datamodule2.ADOQuery3.SQL.Clear;
datamodule2.ADOQuery3.SQL.Text:='insert into Выписка ("Регистрационный номер", ФИО, Адрес, "Дата рождения", "Дата приема", "Дата выписки", "Вид услуги") Values (:r1, :r2, :r3, :r4, :r5, :r6, :r7)';
datamodule2.ADOQuery3.Parameters.ParamBy Name('r1').Value :=dbedit1.Text;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r2').Value := dbedit2.Text;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r3').Value := dbedit3.Text;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r4').Value := dbdateedit1.Date;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r5').Value := dbdateedit2.Date;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r6').Value := dbdateedit3.Date;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r7').Value := dbcombobox1.Text;
datamodule2.ADOQuery3.ExecSQL;
end;
Миниатюры
Ошибка синтаксиса в инструкции INSERT TO  
0
0 / 0 / 0
Регистрация: 09.10.2014
Сообщений: 78
29.05.2016, 21:04  [ТС]
Hikari, брекерами
begin
datamodule2.ADOQuery3.SQL.Clear;
datamodule2.ADOQuery3.SQL.Text:='insert into Выписка ([Регистрационный номер], ФИО, Адрес, [Дата рождения], [Дата приема], [Дата выписки], [Вид услуги]) Values (:r1, :r2, :r3, :r4, :r5, :r6, :r7)';
datamodule2.ADOQuery3.Parameters.ParamBy Name('r1').Value :=dbedit1.Text;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r2').Value := dbedit2.Text;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r3').Value := dbedit3.Text;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r4').Value := dbdateedit1.Date;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r5').Value := dbdateedit2.Date;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r6').Value := dbdateedit3.Date;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r7').Value := dbcombobox1.Text;
datamodule2.ADOQuery3.ExecSQL;
Миниатюры
Ошибка синтаксиса в инструкции INSERT TO  
0
5961 / 4537 / 1094
Регистрация: 29.08.2013
Сообщений: 28,148
Записей в блоге: 3
29.05.2016, 22:14
вам же даже ошибку переводить не надо - несоответствие типов данных
это когда вы в колонку пихаете не тот тип данных
0
0 / 0 / 0
Регистрация: 09.10.2014
Сообщений: 78
29.05.2016, 22:20  [ТС]
qwertehok, Как быть? Дело в том что у меня dbedit-ый связанный с другой таблицей (это сделано для того чтобы не вводить данные в ручную). А при нажатии на кнопку Добавить записи должны добавиться в другую таблицу. Уже замучился....
0
 Аватар для Пытливый
3763 / 2267 / 705
Регистрация: 29.05.2013
Сообщений: 9,622
29.05.2016, 22:24
Скорее всего:
Delphi
1
2

datamodule2.ADOQuery3.Parameters.ParamByName('r1').Value :=StrToInt(dbedit1.Text);
datamodule2.ADOQuery3.Parameters.ParamByName('r7').Value := StrToInt(dbcombobox1.Text);
1
0 / 0 / 0
Регистрация: 09.10.2014
Сообщений: 78
29.05.2016, 22:35  [ТС]
Пытливый, begin
datamodule2.ADOQuery3.SQL.Clear;
datamodule2.ADOQuery3.SQL.Text:='insert into Выписка ([Регистрационный номер], ФИО, Адрес, [Дата рождения], [Дата приема], [Дата выписки], [Вид услуги]) Values (:r1, :r2, :r3, :r4, :r5, :r6, :r7)';
datamodule2.ADOQuery3.Parameters.ParamBy Name('r1').Value:=StrToInt(dbedit1.Text) ;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r2').Value:=StrToInt(dbedit2.Text) ;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r3').Value:=StrToInt(dbedit3.Text) ;
datamodule2.ADOQuery3.Parameters.ParamBy Name('r4').Value:=StrToInt(dbdateedit1.E ditText);
datamodule2.ADOQuery3.Parameters.ParamBy Name('r5').Value:=StrToInt(dbdateedit2.E ditText);
datamodule2.ADOQuery3.Parameters.ParamBy Name('r6').Value:=StrToInt(dbdateedit3.E ditText);
datamodule2.ADOQuery3.Parameters.ParamBy Name('r7').Value:=StrToInt(dbcombobox1.T ext);
datamodule2.ADOQuery3.ExecSQL;
end;
Миниатюры
Ошибка синтаксиса в инструкции INSERT TO  
0
 Аватар для Пытливый
3763 / 2267 / 705
Регистрация: 29.05.2013
Сообщений: 9,622
29.05.2016, 23:10
И какие у вас идеи? Ну включите же соображалку. У вас параметры должны идти в соответствии с перечнем полей.
Если параметр r1 у вас должен быть [Регистрационный номер], а параметр r7 должен быть [Вид услуги] то откуда же тогда взялся Головин?
0
0 / 0 / 0
Регистрация: 09.10.2014
Сообщений: 78
29.05.2016, 23:12  [ТС]
Пытливый, там проблема с типами данных, до даты все добавляется
0
0 / 0 / 0
Регистрация: 09.10.2014
Сообщений: 78
29.05.2016, 23:16  [ТС]
Пытливый, Вот ошибка
Миниатюры
Ошибка синтаксиса в инструкции INSERT TO  
0
29.05.2016, 23:28

Не по теме:

"Головин Александр Иванович" не является числом! Вот это поворот! (с)

0
29.05.2016, 23:44

Не по теме:

даже не так - он является неправильным числом

0
Хитрая блондиночка $)
 Аватар для Hikari
1472 / 988 / 399
Регистрация: 21.12.2015
Сообщений: 3,785
30.05.2016, 08:42
Цитата Сообщение от LSlslsls Посмотреть сообщение
StrToInt(dbdateedit1.EditText);
А почему превращение строки в число? У тебя поля дата? Или как?
0
 Аватар для Пытливый
3763 / 2267 / 705
Регистрация: 29.05.2013
Сообщений: 9,622
30.05.2016, 19:48
Потому что у автора исходя из текста запроса первый параметр соответствует полю [Регистрационный номер].
Я упорно пытался донести мысль, что с параметрами какая-то путаница, но пока безрезультатно.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 30.05.2016, 19:48
Помогаю со студенческими работами здесь

Ошибка синтаксиса в инструкции INSERT INTO
Использую Indy. Задача у меня такая, клиентская часть программы высылает на сервер в текстовом виде информацию о компьютере. Сервер...

Ошибка синтаксиса в инструкции insert into
Добрый вечер! Пишу код, который должен добавлять данные в базу данных MSAccess. Вроде бы все должно работать но вылазит ошибка...

Ошибка синтаксиса в инструкции UPDATE
ADOQuery3.SQL.Text:='UPDATE Таблица1 SET () WHERE id_formula = '+Ttext1+' AND id_student ='+ nameText1+' Values(:count)'; ...

Ошибка синтаксиса в инструкции Update
Название таблицы и полей правильные 100%. dm.r_bon.SQL.Text:= ' Update user set = '+inttostr(kol_vo)+' where id_user = '+inttostr(us);...

Ошибка синтаксиса в инструкции UPDATE
Если Brutto или Netto ввести меньше 100, выдаёт ошибку. Помогите разобраться, что не так? VES и CENA_BRUTTO_BL глобальные...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Опции темы

Новые блоги и статьи
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru