| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

M126 ©   (2003-06-15 12:23:00) 

Здравстуйте, мастера. Помогите разобраться, Запрос на поиск вроде работает нормально но если какое то из полей пустое то выдает ошибку конвертации из 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"];

---

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

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

---

Shaman   (2003-06-15 13:04:00) [2]

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

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

---

Наверх