Добавление данных в БД ms SQL с Delphi

@Pavel Noob · Регистрация: 14.01.2016

Студворк — интернет-сервис помощи студентам

Здравствуйте дорогие форумчане. Спасибо за помощь с предыдущим проектом. Решил сделать уже на ms sql (версия SQL SERVER 2014). возникла проблема при добавлении данных с Delphi в БД. Пишет "недопустимое имя столбца" - (текст из едит). Перечитал все что можно. Интересно вот что если значения заключать в двойные ординарные кавычки то данные в виде едит.текст перемещаются в базу данных (значит дело не в БД). Причину так и не нашел, может подскажите где посмотреть или где заключается ошибка в коде?

Добавлено через 1 минуту

Delphi
1
2
3
4
5
6
7
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
datamodule3.adoQuery1.SQL.Clear;
datamodule3.adoQuery1.SQL.Add('INSERT INTO PK(Model_TS, Gos_nomer, Napravkenie, Passport_control, Osmotr_TS,CSHS_1,CSHS_2)VALUES ('+Edit1.Text+', '+Edit2.Text+', '+ComboBox1.Text+', '+ComboBox2.Text+', '+ComboBox3.Text+', '+ComboBox4.Text+', '+ComboBox5.Text+')');
datamodule3.adoQuery1.execsql;
end;
 end.

@qwertehok · 29.02.2016, 20:45

Napravkenie - это что за направКение?

в двойные кавычки заключать надо есть тип столбца текстовый - char, varchar, Nvarchar

@Pavel Noob · 29.02.2016, 20:49 **[ТС]**

Ну насчет Направкения погорячился, но столбец в таблице с таким названием присутствует, а насчет двойных кавычек- пробовал выскакивает такая же ошибка

@qwertehok · 29.02.2016, 20:59

у вас 100% сервер не может найти столбец в запросе
сами не можете найти - показывайте столбцы таблицы (лучше скрином)

Сообщение от Pavel Noob

насчет двойных кавычек- пробовал выскакивает такая же ошибка

значит ошибка не исправлена

@Pavel Noob · 29.02.2016, 21:30 **[ТС]**

Вот мой файл. Сверху я указал что если ставить ''- ординарные кавычки наподобие ''+edit1.text+'' то значения вносятся в столбцы таблиц, т.е. названия столбцов таблицы указаны верно.

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

@qwertehok · 29.02.2016, 21:47

Delphi
1
2
3
4
5
6
7
8
9
10
11
datamodule3.adoQuery1.SQL.Clear;
datamodule3.adoQuery1.SQL.Add ('INSERT INTO PK(Model_TS, Gos_nomer, Napravkenie, Passport_control, Osmotr_TS,CSHS_1,CSHS_2) VALUES 
  (:model, :nomer, :napr, :passport, :osmotr, :c1, :c2);
datamodule3.adoQuery1.Parameters.ParamByName('model'):=Edit1.Text;
datamodule3.adoQuery1.Parameters.ParamByName('nomer'):=Edit2.Text;
datamodule3.adoQuery1.Parameters.ParamByName('napr'):=ComboBox1.Text;
datamodule3.adoQuery1.Parameters.ParamByName('passport'):=ComboBox2.Text;
datamodule3.adoQuery1.Parameters.ParamByName('osmotr'):=ComboBox3.Text;
datamodule3.adoQuery1.Parameters.ParamByName('c1'):=ComboBox4.Text;
datamodule3.adoQuery1.Parameters.ParamByName('c2'):=ComboBox5.Text;
datamodule3.adoQuery1.execsql;

попробуйте так
если не будет работать - попробуйте QuotedStr(Edit1.Text)

@Pavel Noob · 29.02.2016, 22:04 **[ТС]**

Сейчас попробую.

@qwertehok · 29.02.2016, 22:06

ой
я где то кавычку не закрыл

@Pavel Noob · 29.02.2016, 22:49 **[ТС]**

да я уже закрыл

Добавлено через 11 минут
Хмм интересно. Спасибо получилось, но вот я только не пойму почему из прошлого запроса не вытягивал значения. Ладно будем разбираться. Еще раз вам огромное спасибо. На всякий случай может кому поможет выложу код с кавычкой

Delphi
1
2
3
4
5
6
7
8
9
10
11
datamodule3.adoQuery1.SQL.Clear;
datamodule3.adoQuery1.SQL.Add ('INSERT INTO PK(Model_TS, Gos_nomer, Napravkenie, Passport_control, Osmotr_TS,CSHS_1,CSHS_2)');
datamodule3.adoQuery1.SQL.Add ('VALUES (:model, :nomer, :napr, :passport, :osmotr, :c1, :c2)');
datamodule3.adoQuery1.Parameters.ParamByName('model').value:=Edit1.Text;
datamodule3.adoQuery1.Parameters.ParamByName('nomer').value:=Edit2.Text;
datamodule3.adoQuery1.Parameters.ParamByName('napr').value:=ComboBox1.Text;
datamodule3.adoQuery1.Parameters.ParamByName('passport').value:=ComboBox2.Text;
datamodule3.adoQuery1.Parameters.ParamByName('osmotr').value:=ComboBox3.Text;
datamodule3.adoQuery1.Parameters.ParamByName('c1').value:=ComboBox4.Text;
datamodule3.adoQuery1.Parameters.ParamByName('c2').value:=ComboBox5.Text;
datamodule3.adoQuery1.execsql;

@qwertehok · 01.03.2016, 08:55

еще ~~можно~~ нужно
обернуть запрос в транзакцию и проверять результат

@Pavel Noob · 01.03.2016, 19:41 **[ТС]**

Спасибо я уже сделал с всплывающим сообщением. Очень помогли

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@qwertehok 5971 / 4547 / 1094 Регистрация: 29.08.2013 Сообщений: 28,168 Записей в блоге: 3
	29.02.2016, 20:45
	Napravkenie - это что за направКение? в двойные кавычки заключать надо есть тип столбца текстовый - char, varchar, Nvarchar 1

@Pavel Noob 3 / 3 / 1 Регистрация: 14.01.2016 Сообщений: 11
	29.02.2016, 20:49 [ТС]
	Ну насчет Направкения погорячился, но столбец в таблице с таким названием присутствует, а насчет двойных кавычек- пробовал выскакивает такая же ошибка 0

@Pavel Noob 3 / 3 / 1 Регистрация: 14.01.2016 Сообщений: 11
	29.02.2016, 21:30 [ТС]
	Вот мой файл. Сверху я указал что если ставить ''- ординарные кавычки наподобие ''+edit1.text+'' то значения вносятся в столбцы таблиц, т.е. названия столбцов таблицы указаны верно. проблема в том что он не хочет вносить данные со значений едит и коомбобоксов, а если вставить просто значения в код, то он их вносит. 1

@Pavel Noob 3 / 3 / 1 Регистрация: 14.01.2016 Сообщений: 11
	29.02.2016, 22:04 [ТС]
	Сейчас попробую. 0

@qwertehok 5971 / 4547 / 1094 Регистрация: 29.08.2013 Сообщений: 28,168 Записей в блоге: 3
	29.02.2016, 22:06
	ой я где то кавычку не закрыл 1

@qwertehok 5971 / 4547 / 1094 Регистрация: 29.08.2013 Сообщений: 28,168 Записей в блоге: 3
	01.03.2016, 08:55
	еще ~~можно~~ нужно обернуть запрос в транзакцию и проверять результат 1

@Pavel Noob 3 / 3 / 1 Регистрация: 14.01.2016 Сообщений: 11
	01.03.2016, 19:41 [ТС]
	Спасибо я уже сделал с всплывающим сообщением. Очень помогли 0

Добавление данных в БД ms SQL с Delphi

Решение