Главная страница
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.018 c
14-20220
Till
2003-06-22 15:36
2003.07.07
EhLib for Delphi 7


14-20243
Soft
2003-06-19 18:09
2003.07.07
Уязвимость в Win2000


14-20275
Vlad Oshin
2003-06-19 02:44
2003.07.07
а вот имеет смысл разговор о национальной идеи?


14-20260
Snake2000
2003-06-19 14:21
2003.07.07
СЕССИЯ - Шпоры


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