Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Вниз

ADO + SQL Server 2000, подстановочные поля   Найти похожие ветки 

 
falcon   (2002-07-30 11:20) [0]

День добрый !

Есть Windows NT Server 4.0 EE с установленной на нем БД SQL Server 2000 EE.
Клиент пишется на Delphi 6 и для доступа к БД используется ADO.
Есть четыре таблицы:
Detail - основная
Detail_Type, Liter, Format_Chert - справочные
В таблице Detail есть три числовых поля, информация в которые заносится из справочных таблиц:
Detail["Nom_Type"] <- Detail_Type["Nom_Type"]
Detail["Id_Litera"] <- Liter["Id"]
Detail["Id_Format_Chert"] <- Format_Chert["Id"]
В редакторе полей таблицы Detail создаю три новых подстановочных поля типа Lookup для отображения в DbGrid символьной информации из справочных таблиц.
Добавляю новую запись:
ADOConnection1.BeginTrans;
Detail.Append;
Detail_Type.First;
Detail["Nom_Type"] := Detail_Type["Nom_Type"];
Liter.First;
Detail["Id_Litera"] := Liter["Id"];
Format_Chert.First;
Detail["Id_Format_Chert"] := Format_Chert["Id"];
При операциях присваивания выдается следующее сообщение: "Ошибка неизвестного типа".
Если в редакторе полей оставить только одно подстановочное поле и изменить приведенный выше код на:
ADOConnection1.BeginTrans;
Detail.Append;
Detail_Type.First;
Detail["Nom_Type"] := Detail_Type["Nom_Type"];
то все проходит без ошибок. То есть проблема возникает при наличии вычисляемых полей больше одного.
Подскажите как можно обойти эту проблему. Заранее благодарен за ответ.


 
ЮЮ   (2002-07-31 03:35) [1]

Detail["Nom_Type"] ,по-моему, есть TField
Detail["Nom_Type"].Value := Detail_Type["Nom_Type"]].Value;



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.089 c
4-71430
фл
2002-06-19 16:34
2002.08.22
ошибка 1026


14-71348
bu-hast
2002-07-26 20:55
2002.08.22
пью двадцать первый день подряд


3-71036
Nikolai_S
2002-07-25 11:33
2002.08.22
Как в Access с помощью SQL-запроса сделать поле необязательным?


3-71057
LEKSYS
2002-08-02 11:22
2002.08.22
D5 SQL


4-71421
МитяЙ2
2002-06-14 13:21
2002.08.22
Перезагрузка - это...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский