SQL - перехват ошибок

← →
Ozone (2002-12-02 13:21) [0]

Такая проблема: предлагаю юзеру в TMemo ввести SQL-запрос и потом этот текст помещаю в DataSet.SQL.Text. Так вот, как перехватить сообщение об ошибке, если SQL-запрос неверен.
Заранее благодарен всем за любую помощь.

← →
ЮЮ (2002-12-02 13:27) [1]

Если юзер в состоянии ввести SQL-запрос, неужели он не сможет понять сообщение об ошибке?

← →
ЮЮ (2002-12-02 13:29) [2]

Кстати, расширяя кругозор юзера, следует научить его писать
DELETE FROM TABLE
очень полезный оператор :-)

← →
Max Zyuzin (2002-12-02 13:41) [3]

>Ozone © (02.12.02 13:21)
try MyQuery.SQL := MyMemo.Lines; MyQuery.Open; except // Вы ввели фигню :)) end;

← →
Max Zyuzin (2002-12-02 13:42) [4]

>ЮЮ © (02.12.02 13:29)
Ага... по умолчанию его подставлять :))

← →
Ozone (2002-12-02 14:18) [5]

To Max Zyuzin:
Не работает.

← →
Max Zyuzin (2002-12-02 14:30) [6]

>Ozone © (02.12.02 14:18)
А как оно не работает??? Что говорит? Попробуй программу запустить не из оболочки...

← →
Ozone (2002-12-04 12:32) [7]

Так и не работает - ошибку не перехватывает.

← →
FreeLancer (2002-12-04 12:36) [8]

Запуск вне Delphi и:
http://delphi.mastak.ru/cgi-bin/forum.pl?n=1&look=1&id=1038958451&from=6

← →
passm (2002-12-04 12:40) [9]

Ozone © (04.12.02 12:32)>
try
MyQuery.SQL.Text:= Memo1.Lines.Text;
MyQuery.Open
except
on E: Exception do
MessageBox(Application.Handle, PChar(E.Message), "Смотри...", MB_ICONERROR + MB_OK)
end
Плюс ваша фантазия.

← →
FreeLancer (2002-12-04 12:45) [10]

2 Max Zyuzin ©>

try
MyQuery.SQL := MyMemo.Lines;
MyQuery.Open;
except
// Вы ввели фигню :))
end;
Что бы он не ввел, "ВЫ ВВЕЛИ ФИГНЮ!":
MyQuery.SQL.AddStrings(MyMemo.Lines);

← →
FreeLancer (2002-12-04 12:47) [11]

2 passm © >

> MessageBox(Application.Handle, PChar(E.Message), "Смотри...",
> MB_ICONERROR + MB_OK)

Нужно быть до конца честным :-)
_ PChar("Смотри...") _

← →
Ozone (2002-12-04 12:49) [12]

To passm:
Нет, не работает.
Как быть?

← →
passm (2002-12-04 12:50) [13]

FreeLancer © (04.12.02 12:47)> В D4 в данном месте/случае PChar не обязателен. Проверено.

← →
passm (2002-12-04 12:53) [14]

Ozone © (04.12.02 12:49)> Что не работает? Сообщение об ошибке видно?

← →
FreeLancer (2002-12-04 12:54) [15]

2 passm ©>
> В D4 в данном месте/случае PChar не обязателен. Проверено.

А у него D7 и, похоже, что-то с руками :-)

← →
Ozone (2002-12-04 12:59) [16]

To FreeLancer:
Может и с руками, но я пишу в точности то, что вы все подсказали, но Делфя все равно выдает свою ошибку.

← →
FreeLancer (2002-12-04 13:02) [17]

Ozone © >

> Может и с руками, но я пишу в точности то, что вы все подсказали,
> но Делфя все равно выдает свою ошибку.

Так я когда уже сказал: запуск ВНЕ Delphi!

← →
passm (2002-12-04 13:04) [18]

← →
Ozone (2002-12-04 13:04) [19]

ВСЕМ БОЛЬШОЕ СПАСИБО

← →
passm (2002-12-04 13:06) [20]

← →
FreeLancer (2002-12-04 13:10) [21]

2 passm ©>

> Я вообще убрал Stop on Delphi Exception. Жить стало проще :)

Ну, я же не знаю что там ^ в D7 (у меня столько денег нет :-) )

← →
Max Zyuzin (2002-12-04 13:14) [22]

SQL - перехват ошибок Найти похожие ветки