Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.07;
Скачать: CL | DM;

Вниз

Запрос на поиск   Найти похожие ветки 

 
M126   (2003-06-15 12:23) [0]

Здравстуйте, мастера. Помогите разобраться, Запрос на поиск вроде работает нормально но если какое то из полей пустое то выдает ошибку конвертации из Null в String.

QueryFindByRNN.Close;
QueryFindByRNN.SQL.Clear;
QueryFindByRNN.SQL.Add("SELECT * FROM "C:\Nalog\Base\base_rnn.dbf"");
QueryFindByRNN.SQL.Add("WHERE TRN = "+ edtRnn.Text);
QueryFindByRNN.Open;
QueryFindByRNN.First;
EdtName.Text:=QueryFindByRnn.FieldValues["LNAME"];
EdtFName.Text:=QueryFindByRnn.FieldValues["FNAME"];
EdtLName.Text:=QueryFindByRnn.FieldValues["MNAME"];
QRekvizit.Close;
QRekvizit.SQL.Clear;
QRekvizit.SQL.Add("SELECT * FROM "C:\Nalog\Base\Rekvizit.dbf"");
QRekvizit.SQL.Add("WHERE RNN = "+ edtRnn.Text);
QRekvizit.Open;
QRekvizit.First;
edtAdOtp.Text:=QRekvizit.FieldValues["ADR_OTPAV"];


 
Shaman ©   (2003-06-15 13:04) [1]

Проверяй значение поля на Null, например так:

if not QueryFindByRnn.FieldByName("LNAME").IsNull
then EdtName.Text := QueryFindByRnn.FieldValues["LNAME"]
else EdtName.Text := "";


 
M126   (2003-06-15 13:38) [2]

Спасибо! Работает!



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

Текущий архив: 2003.07.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
7-20337
dim-
2003-04-20 12:30
2003.07.07
Смена картинки рабочего стола


4-20346
tiam
2003-05-07 10:01
2003.07.07
Динамическое подключение Dll


1-20153
agressor
2003-06-25 01:57
2003.07.07
Подмена системных цветов


1-20057
avkiev
2003-06-25 16:55
2003.07.07
Преобразование строковой даты к TFileTime


1-20126
Артем К
2003-06-25 02:09
2003.07.07
Как обединить два столбца в StringGride?