Главная страница
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.011 c
3-19986
abc
2003-06-13 11:30
2003.07.07
как сделать так что бы ADO сразу сохраняла изменения в записи?


14-20189
Microsoft
2003-06-18 18:52
2003.07.07
Создание пиринговой сети


8-20172
Raiden
2003-03-16 09:20
2003.07.07
Проблема со скоростью DelphiХ-игры


14-20246
Rradion
2003-06-19 15:05
2003.07.07
СРОЧНО ( к завтрому ) надо решить задачки по Матем. -> 10$ по WM.


1-20104
Belkova
2003-06-24 13:47
2003.07.07
Projet Project1.exe raised class EOleSysError