ADOStoredProc И DBGrid

@bySawka · Регистрация: 21.09.2015

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

В бд есть хранимая процедура sp_set_list
на форме лежит 1. DataSourse ( dataSet установлен ADOStoredProc1)
2. ADOStoredProc1
3. DBGrid (в dataSourse установлено DataSourse )
в делфи делаю вот как

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
var
  param : TParameter;
begin
  if ADOStoredProc1.Active then ADOStoredProc1.Close;
  dbUser.Columns.BeginUpdate;
  try
    ADOStoredProc1.Connection := core.Connection;
    ADOStoredProc1.ProcedureName := 'sp_set_list';
    ADOStoredProc1.Parameters.Clear;
 
    param :=ADOStoredProc1.Parameters.AddParameter();
    param.Direction := pdInput;
    param.DataType := ftDateTime;
    param.Name := '@dateb';
    param.Value := dateb;
 
    param :=ADOStoredProc1.Parameters.AddParameter();
    param.Direction := pdInput;
    param.DataType := ftDateTime;
    param.Name := '@dateE';
    param.Value := dateE;
 
    ADOStoredProc1.ExecProc;
 
  finally
    dbUser.Columns.EndUpdate;
  end;

но DBGRid пустой
если вызвать процедуру в ms sql - то записи есть

@qwertehok · 16.12.2016, 13:46

с параметрами не так работаешь

@bySawka · 16.12.2016, 13:49 **[ТС]**

qwertehok, подскажите, как надо

@qwertehok · 16.12.2016, 13:55

уже писал на форуме

Delphi
1
2
3
4
5
6
ADOStoredProc1.Close;
ADOStoredProc1.Parameters.Refresh;
ADOStoredProc1.Parameters[1].Value:='User_Name';
ADOStoredProc1.Parameters[2].Value:=' 8. 5.2004';
ADOStoredProc1.Parameters[3].Value:=' 9. 5.2004';
ADOStoredProc1.ExecProc;

вы совершенно поиск не используете
+работа с ADOStoredProc
с последним сообщением согласен полностью

@bySawka · 16.12.2016, 14:27 **[ТС]**

сделал как вы написали - результат не выводится
из ссылки понял, что можно через adoquery или adocomand
так же

В компоненте есть параметр Parameters. Посмотри в инспекторе объектов. Когда откроешь параметры, то адо должен его добавить автоматом и он появится в списке. Запускай снова проект

но у меня оно пустое, видимо из за того, что коннект и имя процедуры задается в ран тайме

@qwertehok · 16.12.2016, 14:28

Сообщение от bySawka

сделал как вы написали - результат не выводится

покажи код

@bySawka · 16.12.2016, 14:53 **[ТС]**

через ADOStoredProc1

Delphi
1
2
3
4
5
6
7
  ADOStoredProc1.Connection := core.Connection;
    ADOStoredProc1.ProcedureName := 'sp_set_list';
    ADOStoredProc1.Close;
ADOStoredProc1.Parameters.Refresh;
ADOStoredProc1.Parameters[1].Value:=dateb;
ADOStoredProc1.Parameters[2].Value:=dateE;
 ADOStoredProc1.ExecProc;

через ADOQuery1

Delphi
1
2
3
4
5
   if ADOQuery1.Active then ADOQuery1.Close;
    ADOQuery1.Connection := Core.Connection;
    ADOQuery1.SQL.Text := 'exec [sp_set_list] ' +  FloatToStr(dateb) + ',' + FloatToStr(dateE);
    ADOQuery1.Open;
  ShowMessage(IntToStr(ADOQuery1.RecordCount)); // выводится

Добавлено через 12 минут
пересобрал приложение - все ок)
спасибо за помощь!

@qwertehok · 16.12.2016, 14:53

у меня через Query все работает, StoredProc не использую

правда я и DBGrid не использую, сам обрабатываю результат

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@qwertehok 5954 / 4530 / 1094 Регистрация: 29.08.2013 Сообщений: 28,126 Записей в блоге: 3
	16.12.2016, 13:46
	с параметрами не так работаешь 0

@bySawka 1 / 1 / 2 Регистрация: 21.09.2015 Сообщений: 321
	16.12.2016, 13:49 [ТС]
	qwertehok, подскажите, как надо 0

@qwertehok 5954 / 4530 / 1094 Регистрация: 29.08.2013 Сообщений: 28,126 Записей в блоге: 3
	16.12.2016, 14:53
	у меня через Query все работает, StoredProc не использую правда я и DBGrid не использую, сам обрабатываю результат 0