Форум: "Основная";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];
ВнизНе могу перехватиить ошибку в запросе Найти похожие ветки
← →
DimChan (2003-09-30 08:03) [0]Не могу перехватиить ошибку в запросе, возникающую при PFind = " " ":
function FuncFindPolPlat (Query: TQuery; PFind: String;MObject:TDBGrid):String;
// Моя первая функция в Delphi 5.0 (типа справки или Help"a)
Begin
//Выключить запрос
Query.Active := false;
//Очистка запроса
Query.SQL.Clear;
//Текст запроса на выборку Плательщик/Получатель
Query.SQL.Add
("SELECT * FROM "PlatAndPoluch.DB" Platandpoluch WHERE Name LIKE ""
+ PFind + "%"");
//Включить запрос
Query.Active := true;
//Проверка на наличие пустых строк
try
if (Query.FieldByName ("Name").asString = "") or (PFind = "") then
begin
MObject.Visible := false;
end else
begin
MObject.Visible := true;
end;
except
on DBTables. EDBEngineError do showMessage ("Текст просьба вводить без кавычек!!!");
end;
end;
← →
DimChan (2003-09-30 08:12) [1]Помогите пожалуйста, потому что это тоже не проходит:
try
if (Query.FieldByName ("Name").asString = "") or (PFind = "") then
begin
MObject.Visible := false;
end else
begin
MObject.Visible := true;
end;
except
on EDBEngineError do showMessage ("Текст просьба вводить без кавычек!!!");
end;
← →
kaif (2003-09-30 08:18) [2]with Query do
begin
Close;
SQL.Text :=
"SELECT * FROM "PlatAndPoluch.DB" Platandpoluch"#13+
"WHERE Name LIKE :PFind";
ParamByName("PFind").AsString := QuotedStr(PFind + "%");
Open;
end;
← →
kaif (2003-09-30 08:23) [3]Предыдущее решение - это решение проблемы, что вообще нужно что-то ловить. Функция QuotedStr заменит кавычки в тексте на пары кавычек и запрос будет работать без сбоев.
А что касается исключений, то у тебя синтаксис неправильный:
try
сюда нужно сунуть Quaery.Active := True;
except
on E: EDBEngineError do showMessage(
"Текст просьба вводить без кавычек!!!");
end;
← →
DimChan (2003-09-30 08:35) [4]Спасибо...8-))
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c