Запрос на поиск

← →
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]

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

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