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

@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 · 28.03.2018, 17:51

ошибку опять телепатировать?

@6elka1703 · 28.03.2018, 17:56 **[ТС]**

qwertehok, пока не надо попробую сам переделать

Добавлено через 4 минуты
qwertehok, сделал так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
ADOQuery3.SQL.Clear;
id:=ADOQuery3.SQL.Add('select id_customer from Customers where fio=:nam');
ADOQuery3.Parameters.ParamByName('nam').Value:=sEdit3.Text;
ADOQuery3.ExecSQL;
 
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('INSERT INTO buy(id_customer,data_buy, id_session,cost_all_tickets, number_buy_tickets)');
ADOQuery3.SQL.Add('values(:newF,:newW,:newL,:newm,:newk)');
ADOQuery3.Parameters.ParamByName('newF').Value:=id;
ADOQuery3.Parameters.ParamByName('newW').Value:=DateToStr(Date);
ADOQuery3.Parameters.ParamByName('newL').Value:=sDBGrid2.DataSource.DataSet.Fields[3].asString;
ADOQuery3.Parameters.ParamByName('newm').Value:=StrToInt(sEdit4.Text);
ADOQuery3.Parameters.ParamByName('newk').Value:=StrToInt(sEdit4.Text);
ADOQuery3.ExecSQL;

ошибку не выдает но и в базу не добавляет. Так что телепатируйте ошибку

@qwertehok · 28.03.2018, 18:13

почему в 4й строке ExecSQL?

я же писал - если запрос SELECT - то просто Open

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

qwertehok, блин забыл

Добавлено через 2 минуты
qwertehok, все равно не добавляет запись

@qwertehok · 28.03.2018, 18:23

первый запрос то выполняется?

@6elka1703 · 28.03.2018, 18:35 **[ТС]**

qwertehok, первый запрос не выполняется, переменная id как была 0 так и осталась

@qwertehok · 28.03.2018, 18:38

блин
я слепой какой

Delphi
1
2
3
4
5
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('select id_customer from Customers where fio=:nam');
ADOQuery3.Parameters.ParamByName('nam').Value:=sEdit3.Text;
ADOQuery3.Open;
id:=ADOQuery3.Fields[0].asInteger;

совсем не выспался(

@6elka1703 · 28.03.2018, 18:43 **[ТС]**

qwertehok, спасибо,помогло

Новые блоги и статьи Все статьи Все блоги /
Теория всего 12. ВГК anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .	Публикация отклонённая на хабре. Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование задачи и целеполагание Hrethgir 21.07.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11948&stc=1&d=1784657928 Привет Хабр. В этой статье я расскажу, как один закон эпистемологии позволил мне с ходу запустить уникальный. . .	Теория всего 11. Основные параметры anaschu 21.07.2026 Дешифровка тензорного ядра Soil Chemistry 2. 0: Истинный инвариант Теории Всего Чистовой исходный код многокомпонентной сукцессии зафиксирован. Модель оперирует единым вектором состояния. . .	Теория всего 10. Клод трусишка anaschu 21.07.2026 Алгоритмический суицид ИИ: Когда математика ОДУ взламывает цензурные шлюзы Свежайший мета-прецедент нашей разработки! Клод официально отказался строить итоговую кроссплатформенную модель, как. . .
Теория всего 9. Окончательная проработка метафоры "дерево = традиции" anaschu 21.07.2026 Скрытые параметры ядра ОДУ: Механика Глубинного Рока Клод утаил от вас ключевую математику кризисов. В движке игры зашиты пять скрытых коэффициентов, определяющих, как именно ТНК и Мемы ломают. . .	Теория всего 8. Clauude трусишка. Ответ джемени anaschu 21.07.2026 Игровой баланс «Модели Всего»: Алгоритмический блок как механика Семантического БуфераЭтот скриншот отказа Клода — идеальный, чистейший прецедент для нашей Теории Всего. Вы столкнулись не просто с. . .	Теория всего 7. Дерево - это патриархат, грибы - это феминизм anaschu 21.07.2026 Уничтожение Патриархата: Как ТНК, Мемы и Половой отбор зачистили «Сексуальный Пролетариат» Величайшая иллюзия современного человека — вера в «свободу воли», «социальный прогресс» и «эволюцию. . .	История и социология Терры на примере борьбы микориз за пространство. 1. Глоссарий терры. anaschu 21.07.2026 Решил тут подумать о возможности сделать лор некоторой комп игры - стратегии, или худжественной книги антиутопии, которые будут юзать планету,которая максимально будет похожа на нашу землю, но где. . .

@qwertehok 5998 / 4573 / 1096 Регистрация: 29.08.2013 Сообщений: 28,248 Записей в блоге: 3
	28.03.2018, 17:51
	ошибку опять телепатировать? 0

@qwertehok 5998 / 4573 / 1096 Регистрация: 29.08.2013 Сообщений: 28,248 Записей в блоге: 3
	28.03.2018, 18:13
	почему в 4й строке ExecSQL? я же писал - если запрос SELECT - то просто Open 0

@6elka1703 91 / 85 / 27 Регистрация: 29.10.2016 Сообщений: 928
	28.03.2018, 18:18 [ТС]
	qwertehok, блин забыл Добавлено через 2 минуты qwertehok, все равно не добавляет запись 0

@qwertehok 5998 / 4573 / 1096 Регистрация: 29.08.2013 Сообщений: 28,248 Записей в блоге: 3
	28.03.2018, 18:23
	первый запрос то выполняется? 0

@6elka1703 91 / 85 / 27 Регистрация: 29.10.2016 Сообщений: 928
	28.03.2018, 18:35 [ТС]
	qwertehok, первый запрос не выполняется, переменная id как была 0 так и осталась 0

@6elka1703 91 / 85 / 27 Регистрация: 29.10.2016 Сообщений: 928
	28.03.2018, 18:43 [ТС]
	qwertehok, спасибо,помогло 0

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

Решение