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

@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'
Но запись в базу добавилась, тогда из за чего ошибка?

@Алекcей · 24.03.2018, 21:39

так не могу сказать, надо смотреть в режиме отладки, но у меня не установлен MSSQL и нет желания его устанавливать(даже Express)

@6elka1703 · 27.03.2018, 15:43 **[ТС]**

Может кто посмотреть проект что не так с покупкой билетов(добавление записей в бд). БД MS SQL Server

@6elka1703 · 27.03.2018, 17:30 **[ТС]**

Скажите что не так в этой строке

Delphi
1
ADOQuery3.Parameters.ParamByName('newW').Value:=sEdit5.Text;

в таблице это поле varchar(50).
Бьет ошибку

@qwertehok · 27.03.2018, 18:25

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

Скажите что не так в этой строке

полностью с запросом выкладывай

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

qwertehok,

Delphi
1
2
3
4
5
6
7
8
9
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:='select id_customer from Customers where name=@name';
ADOQuery3.Parameters.ParamByName('newW').Value:=sEdit5.Text;
ADOQuery3.Parameters.ParamByName('newL').Value:=StrToInt(sEdit6.Text);
ADOQuery3.Parameters.ParamByName('newm').Value:=sEdit7.Text;
ADOQuery3.Parameters.ParamByName('newk').Value:=StrToInt(sEdit4.Text);
ADOQuery3.ExecSQL;

@qwertehok · 27.03.2018, 18:34

Оригинально

вторая колонка у тебя даже называется очень интересно - data_buy
а ты пихаешь туда sEdit5.Text

ЗЫ
а это как так?

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

Value:='select id_customer from Customers where name=@name';

@name это переменная в MSSQL, как ты ее тут используешь?

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

qwertehok, data_buy сделал текстовым, а вот с @name я не знаю как сделать думал так прокатит.

@qwertehok · 27.03.2018, 18:38

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

а вот с @name я не знаю как сделать думал так прокатит.

не прокатит

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

qwertehok, так а что с data_buy не так?

@qwertehok · 27.03.2018, 18:47

если у вас в Edit5 - дата в правильном формате, то прокатит

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

qwertehok, так поле в бд текстовое так что должно быть все равно

@qwertehok · 27.03.2018, 18:54

тогда еще раз приведи
1. сам запрос
2. скрин ошибки с выделенной строкой в делфи
3. скрин с типами данных в таблице

@6elka1703 · 27.03.2018, 19:02 **[ТС]**

qwertehok,

Delphi
1
2
3
4
5
6
7
8
9
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:='select id_customer from Customers where name=@name';
ADOQuery3.Parameters.ParamByName('newW').Value:=sEdit5.Text;
ADOQuery3.Parameters.ParamByName('newL').Value:=StrToInt(sEdit6.Text);
ADOQuery3.Parameters.ParamByName('newm').Value:=sEdit7.Text;
ADOQuery3.Parameters.ParamByName('newk').Value:=StrToInt(sEdit4.Text);
ADOQuery3.ExecSQL;

строка с ошибкой

Delphi
1
ADOQuery3.Parameters.ParamByName('newW').Value:=sEdit5.Text;

сама ошибка

@qwertehok · 27.03.2018, 19:04

в четвертой строке напиши

Delphi
1
ADOQuery3.Parameters.ParamByName('newF').Value:=random(100)

и попробуй выполнить

@6elka1703 · 27.03.2018, 19:09 **[ТС]**

qwertehok, вот ошибка скорее всего из-за того что там нет такого айдишника. Попробую просто свое число вставить

@6elka1703 · 27.03.2018, 19:12 **[ТС]**

qwertehok, нормально сработало. Это было из за того что запрос не правильный был с первым параметром?

@qwertehok · 27.03.2018, 19:16

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

Это было из за того что запрос не правильный был с первым параметром?

из-за того что тут

Delphi
1
ADOQuery3.Parameters.ParamByName('newF').Value:='select id_customer from Customers where name=@name';

ты присваиваешь в VALUE текст

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

qwertehok, ясно,спасибо за помощь

Добавлено через 21 час 53 минуты
qwertehok, подскажите как правильно написать запрос с параметром.
Я пишу так
Вот весь запрос на добавление

Delphi
1
2
3
4
5
6
7
8
9
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:='select id_customer from Customers where name='''+'%'+'''+'''+sedit3.text+'''+'''+'%'+'''';
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;

проблема в этой строке. Как правильно написать этот запрос

Delphi
1
ADOQuery3.Parameters.ParamByName('newF').Value:='select id_customer from Customers where name='''+'%'+'''+'''+sedit3.text+'''+'''+'%'+'''';

@qwertehok · 28.03.2018, 17:18

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

Как правильно написать этот запрос

1. когда пишешь NAME= не надо указывать %, они не для этого
2. запрос это просто текст, что бы получить результат - запрос надо выполнить

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

qwertehok, сделал так но выскакивает ошибка
[DELPHI]

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
ADOQuery3.SQL.Clear;
id:=ADOQuery3.SQL.Add('select id_customer from Customers where name=''''''+'''+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;

Новые блоги и статьи Все статьи Все блоги /
тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .
сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.	сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 24.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .	Вот представьте что вам дали бессмертие. kumehtar 24.07.2026 Вот представьте что вам дали бессмертие, ничего более не меняя. Вообще ничего, только бессмертие в нынешнем виде. Рады были бы? Что бы вы тут делали всё это время? Никакой пенсии. Никакого нового. . .

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,507
	24.03.2018, 21:39
	так не могу сказать, надо смотреть в режиме отладки, но у меня не установлен MSSQL и нет желания его устанавливать(даже Express) 0

@6elka1703 91 / 85 / 27 Регистрация: 29.10.2016 Сообщений: 928
	27.03.2018, 18:37 [ТС]
	qwertehok, data_buy сделал текстовым, а вот с @name я не знаю как сделать думал так прокатит. 0

@6elka1703 91 / 85 / 27 Регистрация: 29.10.2016 Сообщений: 928
	27.03.2018, 18:45 [ТС]
	qwertehok, так а что с data_buy не так? 0

@qwertehok 5999 / 4574 / 1096 Регистрация: 29.08.2013 Сообщений: 28,250 Записей в блоге: 3
	27.03.2018, 18:47
	если у вас в Edit5 - дата в правильном формате, то прокатит 0

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

@qwertehok 5999 / 4574 / 1096 Регистрация: 29.08.2013 Сообщений: 28,250 Записей в блоге: 3
	27.03.2018, 18:54
	тогда еще раз приведи 1. сам запрос 2. скрин ошибки с выделенной строкой в делфи 3. скрин с типами данных в таблице 0

@6elka1703 91 / 85 / 27 Регистрация: 29.10.2016 Сообщений: 928
	27.03.2018, 19:09 [ТС]
	qwertehok, вот ошибка скорее всего из-за того что там нет такого айдишника. Попробую просто свое число вставить Миниатюры 0

@6elka1703 91 / 85 / 27 Регистрация: 29.10.2016 Сообщений: 928
	27.03.2018, 19:12 [ТС]
	qwertehok, нормально сработало. Это было из за того что запрос не правильный был с первым параметром? 0