Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 05.05.2015
Сообщений: 44
MS SQL

Добавление записи в базу данных SQL

23.01.2024, 17:32. Показов 1154. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добрый вечер уважаемые знатоки.
Есть база данных SQL с таблицами


Подключение к базе данных проходит без проблем. Использую компоненты (Adoconnection,Adoquery,Dbgrid).
Проблема собственно возникает при попытке добавить запись в таблицу.
Выходит ошибка "Приложение использует для текущей операции значение неверного типа"
Код обработчика прилагаю. Подскажите пожалуйста что не так делаю.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
procedure TMainForm.Button2Click(Sender: TObject);
 var
idassignments:integer;
query:tadoQuery;
rezult:string;
begin
if edit1.text='' then begin Edit1.SetFocus;  Edit1.SelectAll;  label7.Visible:=true; timer1.Enabled:=true; exit; end;
if maskEdit3.text='' then begin maskEdit3.SetFocus;  maskEdit3.SelectAll;  label6.Visible:=true; timer1.Enabled:=true; exit; end
else
query:= tadoQuery.Create(Self);
query.Connection:=adoConnection1;
query.SQL.Add('BEGIN TRANSACTION;');
query.SQL.Add('DECLARE @key [int];');
query.SQL.Add('INSERT INTO assignment VALUES (:document_typ,:number,:ish_number,:data_ish,:data_reg,:otpravitel,:zagolovok,:path);');
query.SQL.Add('SELECT @key = SCOPE_IDENTITY();');
query.SQL.Add('INSERT INTO correspondent VALUES (@key,:ispolnitel_correspondent,:status_correspondent,:data_isp_correspondent,:komment_correspondent);');
query.SQL.Add('INSERT INTO [dbo].[history] VALUES (:date_history,:time_history,@key,:users_history,:deystvie_history);');
query.SQL.Add('COMMIT TRANSACTION;');
 
 
if radiogroup1.ItemIndex=0 then begin query.parameters.ParamByName('document_typ').value:=1; query.parameters.ParamByName('number').value:=edit1.Text; end;
if radiogroup1.ItemIndex=1 then begin query.parameters.ParamByName('document_typ').value:=2; query.parameters.ParamByName('number').value:=edit1.Text+'-гр';    end;
if radiogroup1.ItemIndex=2 then begin query.parameters.ParamByName('document_typ').value:=3; query.parameters.ParamByName('number').value:=edit1.Text+'-сл'    end;
 
 
query.parameters.ParamByName('ish_number').value:=maskedit2.Text;
query.parameters.ParamByName('data_ish').value:=maskedit4.Text;
query.parameters.ParamByName('data_reg').value:=DateTimePicker2.Date;
query.parameters.ParamByName('otpravitel').value:= maskedit3.Text;
query.parameters.ParamByName('zagolovok').value:= memo1.Text;
query.parameters.ParamByName('path').value:='';
 
//-------------------------------------------------------------------------------------------
query.parameters.ParamByName('data_isp_correspondent').value:=datetostr(DateTimePicker3.Date);
query.parameters.ParamByName('ispolnitel_correspondent').value:=combobox2.Text;
query.parameters.ParamByName('status_correspondent').value:='В работе';
query.parameters.ParamByName('komment_correspondent').value:='';
//-------------------------------------------------------------------------------------------
query.parameters.ParamByName('date_history').value:=FormatDateTime('dd.mm.yyyy',Now);
query.parameters.ParamByName('time_history').value:=FormatDateTime('hh:nn:ss',Now);
query.parameters.ParamByName('users_history').value:=fio_glob;
query.parameters.ParamByName('deystvie_history').value:='Регистрация документа';
query.ExecSQL;
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
23.01.2024, 17:32
Ответы с готовыми решениями:

Добавление записей из базу данных Access в базу данных SQL
Здравствуйте,пытаюсь добавить записи из базы данных Access в базу данных SQL,но не могу разобраться с подключениями,может ли кто подсказать...

Добавление записи в базу данных
Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Text1.Text = Test.Text1.Text ...

Добавление записи в базу данных
Доброго времени суток. При добавлении записи в базу данных если применить конструкцию if к данным десятого столбца перестает добавлять...

2
 Аватар для Пытливый
3763 / 2267 / 705
Регистрация: 29.05.2013
Сообщений: 9,622
23.01.2024, 18:26
Лучший ответ Сообщение было отмечено Ruslan2015 как решение

Решение

Нет смысла такие многоуровневые SQL-запросы формировать на клиенте, для этого есть хранимые процедуры. Оформите этот блок как хранимую процедуру с параметрами и протестируйте ее на сервере и найдете где вы накосячили с параметрами.
ПС: Судя по тексту запроса, напрашивается использование каскадного добавления для этих трех таблиц.
1
 Аватар для Beltar
831 / 445 / 39
Регистрация: 05.05.2022
Сообщений: 3,074
24.01.2024, 08:31
Это просто милый код со 100500 параметрами.

Ставите брейк-пойнт и идете по F7, ищите, где вылетает. Скорее всего, для параметра неверно тип задан.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
24.01.2024, 08:31
Помогаю со студенческими работами здесь

Добавление записи в базу данных
Здравствуйте, это снова я. Может кто подскажет, почему не получается создать новую запись в таблице? Данные в переменных top и left...

Добавление записи в базу данных
Здравствуйте! Хотел попробовать работать с бд с помощью EF. У меня вопрос на счёт метода AddObject. Я создал схему EF базы данных, потом...

Добавление записи в базу данных
такой вопрос, как додавить новую запись в базу данных с второй формы?? даные вводятся в textbox! если можно пример киньте) использую аксес...

Добавление записи в Базу данных
Добрый вечер, Есть работающее приложение для чтения и отправки сообщений. Необходимо записать входящие сообщения в бд. Пытаюсь пытаюсь...

Добавление данных в базу sql
Привет! Помогите разобраться! Надо добавить данные путем нажатия на кнопку в базу sql Проблема в том, что ругается на ключевое поле Не...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Жизнь в неопределённости
kumehtar 23.03.2026
Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения.
anaschu 23.03.2026
geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
1С: Контроль уникальности заводского номера
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru