работа с Dbf

[vav1lon]

необходимо проверять определенные столбцы на наличие в них пустых ячеек и выводить надпись что в столбце ошибка

[Игорь Акопян]

выполняй запрос типа:
[syntax='sql']
select count(*)
from MyTable
where MyField is null
[/syntax]
если результат запроса <> 0 то рисуй ошибку.

[vav1lon]

как мне сделать завпрос

Код: Выделить всё

Form1.ADOQuery1.SQL.Add('SELECT count(YEAR) FROM '+ FileName1 +' WHERE YEAR IS NULL');

чтобы он выводился в

Код: Выделить всё

Form1.Label45.Caption :=

[Игорь Акопян]

выполнить запрос, результат ADOQuery.Fields[0].AsString присвоить в кэпшн

[vav1lon]

извеняюся за глупость

Если не секрет скажите какнаписать 2 SQL завпроса сразу

ADOQuery1.SQL.Add не катит

Код: Выделить всё

Form1.ADOQuery1.SQL.Add('SELECT count(YEAR) FROM '+ FileName1 +' WHERE YEAR IS NULL');
Form1.ADOQuery1.SQL.Add('SELECT count(YEAR2) FROM '+ FileName1 +' WHERE YEAR2 IS NULL');

[Игорь Акопян]

выполни их последовательно, сначала один, потом второй

[vav1lon]

Вот такое кусок кода

Код: Выделить всё

 
  Form1.ADOQuery5.Close;
  Form1.ADOQuery5.SQL.Clear;
  Form1.ADOQuery5.SQL.Add('SELECT count(LPU_NAPR)    FROM '+ FileName1 +' WHERE (LPU_NAPR = 0) or (LPU_NAPR IS NULL);');
  Form1.ADOQuery5.Active := true;
  If (Form1.ADOQuery5.Fields[0].AsString > '0') Then Begin Form1.Label57.Font.Color := clRed; Form1.Label57.Caption := Form1.ADOQuery5.Fields[0].AsString; End
   Else Begin Form1.Label57.Font.Color := clGreen; Form1.Label57.Caption := 'Ошибок нет';End;

проблема в том что в поле LPU_NAPR в FoxPRO я вижу значение .Null а вот при проведении скрипта он не выдает пустых полей