Страница 3 из 3
Re: работа с Dbf
Добавлено: 08 июн 2007, 06:16
vav1lon
необходимо проверять определенные столбцы на наличие в них пустых ячеек и выводить надпись что в столбце ошибка
Re: работа с Dbf
Добавлено: 13 июн 2007, 12:25
Игорь Акопян
выполняй запрос типа:
[syntax='sql']
select count(*)
from MyTable
where MyField is null
[/syntax]
если результат запроса <> 0 то рисуй ошибку.
Re: работа с Dbf
Добавлено: 22 июн 2007, 13:43
vav1lon
как мне сделать завпрос
Код: Выделить всё
Form1.ADOQuery1.SQL.Add('SELECT count(YEAR) FROM '+ FileName1 +' WHERE YEAR IS NULL');
чтобы он выводился в
Re: работа с Dbf
Добавлено: 22 июн 2007, 16:54
Игорь Акопян
выполнить запрос, результат ADOQuery.Fields[0].AsString присвоить в кэпшн
Re: работа с Dbf
Добавлено: 22 июн 2007, 17:45
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');
Re: работа с Dbf
Добавлено: 25 июн 2007, 10:01
Игорь Акопян
выполни их последовательно, сначала один, потом второй
Re: работа с Dbf
Добавлено: 28 июн 2007, 07:54
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 а вот при проведении скрипта он не выдает пустых полей