Добавление записей в БД

@6elka1703 · Регистрация: 29.10.2016

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

Добавляю записи в таблицу через хранимую процедуру

SQL
1
2
3
4
5
ALTER PROC [dbo].[Insert_customers]
@name VARCHAR(40), @adres VARCHAR(40), @DATA VARCHAR(50), @phone VARCHAR(40)
AS
INSERT INTO Customers( fio, adres, data_birthday, telephone)
VALUES(@name,@adres,@DATA,@phone)

вот код delphi

Delphi
1
2
3
4
5
6
ADoQuery3.SQL.Text:='exec insert_customers @name=:n, @adres=:a, @date=:d, @phone=:p';
ADOQuery3.Parameters.ParamByName('n').Value:=sEdit3.Text;
ADOQuery3.Parameters.ParamByName('a').Value:=sEdit2.Text;
ADOQuery3.Parameters.ParamByName('d').Value:=sEdit1.Text;
ADOQuery3.Parameters.ParamByName('p').Value:=sMaskEdit1.Text;
ADOQuery3.Active:=true;

когда нажимаю кнопку добавить выскакивает ошибка что процедура insert_customers ожидает параметр @data который не был указан. Хотя я вроде указал его. В чем ошибка?

Добавлено через 2 минуты
Ошибку понял неправильно написал параметр. Моя невнимательность меня погубит)

Добавлено через 45 минут
еще вопросик после нажатия на кнопку выскочила ошибка
project raised exception class EDatabaseError with message 'Adoquery :CommandText does not return a result set'
Но запись в базу добавилась, тогда из за чего ошибка?

@qwertehok · 20.03.2018, 23:42

Сообщение от 6elka1703

Но запись в базу добавилась, тогда из за чего ошибка?

потому что вместо

Сообщение от 6elka1703

ADOQuery3.Active:=true;

надо делать

Delphi
1
AdoQuery.ExecSQL;

Только для запросов которые начинаются на Select надо делать Active или Open, для остальных Exec\Execute\ExecSQL

PS это есть в любом учебнике

@6elka1703 · 21.03.2018, 08:23 **[ТС]**

еше одна проблемка тоже добавляю записи в бд через процедуру но выскакивает ошибка делфи ругается на параметр дата

Delphi
1
2
3
4
5
6
7
ADoQuery3.SQL.clear;
ADoQuery3.SQL.Text:='exec insert_buy @id_customer=:id, @data=:dt, @id_session=:id_s,  @number_buy_ticket=:number';
ADOQuery3.Parameters.ParamByName('id').Value:='select id_customer from Customers where name=@name';
ADOQuery3.Parameters.ParamByName('dt').Value:=Date;
ADOQuery3.Parameters.ParamByName('id_s').Value:=sDBGrid1.DataSource.DataSet.Fields[3].asString;
ADOQuery3.Parameters.ParamByName('number').Value:=sEdit4.Text;
ADOQuery3.ExecSQL;

ругается на эту строку

Delphi
1
ADOQuery3.Parameters.ParamByName('dt').Value:=Date;

Ошибка : приложение использует для текущей операции значение неверного типа.
Хотя в хранимой процедуре и таблице стоит тип Date

@qwertehok · 21.03.2018, 10:26

дата в субд и в делфи может отличаться

@6elka1703 · 21.03.2018, 10:34 **[ТС]**

qwertehok, так что делать? Переводить в varchar? или можно как то по другому сделать?

@qwertehok · 21.03.2018, 10:55

вместо субд аксесс?
тогда можно попробовать так

Delphi
1
ADOQuery3.Parameters.ParamByName('dt').Value:='#'+DateToStr(Date)+'#';

#03.04.1998# - это формат даты в аксессе - нужно передать такое же

@6elka1703 · 21.03.2018, 11:03 **[ТС]**

СУБД sql server

@qwertehok · 21.03.2018, 11:17

версия делфи
версия MSSQL
скрин типов данных в таблице

@6elka1703 · 21.03.2018, 12:29 **[ТС]**

Delphi7
MS SQL Server 2008 r2

@6elka1703 · 21.03.2018, 14:52 **[ТС]**

с датой скорее всего проблему решил,пока проверить не могу, т.к. выдает ошибку на эту строку

Delphi
1
ADOQuery3.Parameters.ParamByName('id_s').Value:=sDBGrid2.DataSource.DataSet.Fields[3].AsInteger;

поле в таблице имеет тип инт вроде делаю все правильно но ошибка такая же как и с датой

@6elka1703 · 22.03.2018, 16:41 **[ТС]**

может кто нибудь сказать в чем ошибка?

@Алекcей · 22.03.2018, 17:03

а текст ошибки какой?

@6elka1703 · 22.03.2018, 17:22 **[ТС]**

Алекcей, Ошибка : приложение использует для текущей операции значение неверного типа.

@Алекcей · 22.03.2018, 17:24

попробуйте так:

Delphi
1
ADOQuery3.Parameters.ParamByName('id_s').asInteger:=sDBGrid2.DataSource.DataSet.Fields[3].AsInteger;

@6elka1703 · 22.03.2018, 17:39 **[ТС]**

Алекcей, после точки у меня даже такого метода нет

@Алекcей · 22.03.2018, 17:45

а так

Delphi
1
ADOQuery3.Parameters.ParamValues['id_s']:=sDBGrid2.DataSource.DataSet.Fields[3].AsInteger;

а точно поле id_s не автоинкрементное?

@6elka1703 · 22.03.2018, 18:47 **[ТС]**

Алекcей, ты имеешь ввиду счетчик?

@Алекcей · 22.03.2018, 19:14

Да.

@6elka1703 · 22.03.2018, 19:27 **[ТС]**

Алекcей, ну в таблице sesions это поле счетчик, но я заношу его в таблицу Buy там оно просто число

@6elka1703 · 24.03.2018, 21:35 **[ТС]**

Алекcей, так вы не знаете в чем проблема?

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@qwertehok 5985 / 4560 / 1095 Регистрация: 29.08.2013 Сообщений: 28,198 Записей в блоге: 3
	21.03.2018, 10:26
	дата в субд и в делфи может отличаться 0

@6elka1703 91 / 85 / 27 Регистрация: 29.10.2016 Сообщений: 928
	21.03.2018, 10:34 [ТС]
	qwertehok, так что делать? Переводить в varchar? или можно как то по другому сделать? 0

@6elka1703 91 / 85 / 27 Регистрация: 29.10.2016 Сообщений: 928
	21.03.2018, 11:03 [ТС]
	СУБД sql server 0

@qwertehok 5985 / 4560 / 1095 Регистрация: 29.08.2013 Сообщений: 28,198 Записей в блоге: 3
	21.03.2018, 11:17
	версия делфи версия MSSQL скрин типов данных в таблице 0

@6elka1703 91 / 85 / 27 Регистрация: 29.10.2016 Сообщений: 928
	21.03.2018, 12:29 [ТС]
	Delphi7 MS SQL Server 2008 r2 Миниатюры 0

@6elka1703 91 / 85 / 27 Регистрация: 29.10.2016 Сообщений: 928
	22.03.2018, 16:41 [ТС]
	может кто нибудь сказать в чем ошибка? 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,507
	22.03.2018, 17:03
	а текст ошибки какой? 0

@6elka1703 91 / 85 / 27 Регистрация: 29.10.2016 Сообщений: 928
	22.03.2018, 17:22 [ТС]
	Алекcей, Ошибка : приложение использует для текущей операции значение неверного типа. 0

@6elka1703 91 / 85 / 27 Регистрация: 29.10.2016 Сообщений: 928
	22.03.2018, 17:39 [ТС]
	Алекcей, после точки у меня даже такого метода нет 0

@6elka1703 91 / 85 / 27 Регистрация: 29.10.2016 Сообщений: 928
	22.03.2018, 18:47 [ТС]
	Алекcей, ты имеешь ввиду счетчик? 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,507
	22.03.2018, 19:14
	Да. 0

@6elka1703 91 / 85 / 27 Регистрация: 29.10.2016 Сообщений: 928
	22.03.2018, 19:27 [ТС]
	Алекcей, ну в таблице sesions это поле счетчик, но я заношу его в таблицу Buy там оно просто число 0

@6elka1703 91 / 85 / 27 Регистрация: 29.10.2016 Сообщений: 928
	24.03.2018, 21:35 [ТС]
	Алекcей, так вы не знаете в чем проблема? 0