VPF::Обработка исключительных ситуаций

Berliner

Дата 7.2.2006, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2

Программа делает выборку из dbf файла. dbf файлы беруться все из ListBoxа, в лист боксе отображаются все dbf файлы в каталоге. дело в том, что программа расчитана на то, чтобы выбирать данные из файла соответсвующей структуры. если dbf файл имеет другую структуру при попытке выборки вываливается ошибка оdbc- а надо чтобы выдавалось свое сообщение Типа файл не той структуры подскажите ,как реализовать у меня не получилось

Код




ADOQuery1.SQL.Clear;
ADOQuery1.Close;
ADOQuery1.SQL.Add('select NSC,Summa from '+ListBox1.Items[ListBox1.Itemindex]+' where Len(NSC)=16 and (IsNumeric(Nsc)=true)');
ADOQuery1.Open;
Form1.ADOQuery1.Close;



     Form1.ADOQuery1.SQL.Clear;
     Form1.ADOQuery1.SQL.Add('select count(*) as Amount from '+ ListBox1.Items[ListBox1.Itemindex]+' where Len(NSC)=16 and (IsNumeric(Nsc)=true)');
     Form1.ADOQuery1.Open;
     Card:=ADOQuery1.FieldbyName('Amount').AsString;

Демо

Дата 7.2.2006, 13:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

try..except..end не помогает?

--------------------

_hunter

Дата 7.2.2006, 13:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

Код


try
ADOQuery1.SQL.Clear;    
ADOQuery1.Close;    
ADOQuery1.SQL.Add('select NSC,Summa from '+ListBox1.Items[ListBox1.Itemindex]+' where Len(NSC)=16 and (IsNumeric(Nsc)=true)');    
ADOQuery1.Open;    
Form1.ADOQuery1.Close;    
     Form1.ADOQuery1.SQL.Clear;    
     Form1.ADOQuery1.SQL.Add('select count(*) as Amount from '+ ListBox1.Items[ListBox1.Itemindex]+' where Len(NSC)=16 and (IsNumeric(Nsc)=true)');    
     Form1.ADOQuery1.Open;    
     Card:=ADOQuery1.FieldbyName('Amount').AsString;
except
//выводим сообщение
end;

--------------------

Tempora mutantur, et nos mutamur in illis...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »