Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Параметры в TAdoDataSet [D7, Access]


paul_k ©   (2003-10-23 13:39:00) 

есть 2 ДС
1 : CommandText =
"select id, name,code,edit_mask from t_simples where type_id = :p_type"
Parameters = <
item
Name = "p_type"
Attributes = [paNullable]
DataType = ftWideString
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end>

2 : CommandText =
select t_organisations.*,t_types.name,
t_simples.name as org_form_name,
t_simples.code as org_form_code,
(select t_bank_accounts.acc_no
from t_bank_accounts
where t_bank_accounts.item_id = t_organisations.id
and t_types.code = "RECIPIENT") as acc_no
from t_organisations,t_types,t_simples
where t_types.id = t_organisations.type_id
and t_simples.id = t_organisations.org_form_id
and t_simples.type_id = 25
and t_types.type_code=:p_org_type
order t_organisations.org_name

Parameters = <
item
Name = "p_org_type"
Attributes = [paNullable]
DataType = ftWideString
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end>

Перед открытием ДС присваиваю значения параметров
1: t_simples.Parameters.ParamByName("p_type").Value:=inttostr(25)
t_simples.open

2: t_org_type.Parameters.ParamByName("p_org_type").Value:="BANK"
t_org_type.Open;

В первом случае все работает, а во 2-м ошибка "No value given for one or more requiredparametrs"
Может поможете разобратся в чем дело?


paul_k   (2003-10-23 13:52:00) [1]

простите, ларчик просто открывался.
поля t_types.type_codeне существует


Наверх

Титульная страница Поиск, карта сайта Написать письмо