Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Страницы: 1 2 >
Ozone © (2002-12-02 13:21:00)
Такая проблема: предлагаю юзеру в TMemo ввести SQL-запрос и потом этот текст помещаю в DataSet.SQL.Text. Так вот, как перехватить сообщение об ошибке, если SQL-запрос неверен.
Заранее благодарен всем за любую помощь.

Max Zyuzin (2002-12-04 13:14:00) [1]
>FreeLancer © (04.12.02 12:45)
Да. Извиняюсь... обшибся чуток.... ну я дал направление к развитию мысли :)

FreeLancer (2002-12-04 13:10:00) [2]
2 passm ©>

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

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

passm (2002-12-04 13:06:00) [3]
FreeLancer © (04.12.02 13:02)> Я вообще убрал Stop on Delphi Exception. Жить стало проще :)

Ozone (2002-12-04 13:04:00) [4]
ВСЕМ БОЛЬШОЕ СПАСИБО

passm (2002-12-04 13:04:00) [5]
Ozone © (04.12.02 12:59)> Что значит "свою"? MessageBox выводится?

FreeLancer (2002-12-04 13:02:00) [6]
Ozone © >

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

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

Ozone (2002-12-04 12:59:00) [7]
To FreeLancer:
Может и с руками, но я пишу в точности то, что вы все подсказали, но Делфя все равно выдает свою ошибку.

FreeLancer (2002-12-04 12:54:00) [8]
2 passm ©>
> В D4 в данном месте/случае PChar не обязателен. Проверено.

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

passm (2002-12-04 12:53:00) [9]
Ozone © (04.12.02 12:49)> Что не работает? Сообщение об ошибке видно?

passm (2002-12-04 12:50:00) [10]
FreeLancer © (04.12.02 12:47)> В D4 в данном месте/случае PChar не обязателен. Проверено.

Ozone (2002-12-04 12:49:00) [11]
To passm:
Нет, не работает.
Как быть?

FreeLancer (2002-12-04 12:47:00) [12]
2 passm © >

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

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

FreeLancer (2002-12-04 12:45:00) [13]
2 Max Zyuzin ©>

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

passm (2002-12-04 12:40:00) [14]
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:36:00) [15]
Запуск вне Delphi и:
http://delphi.mastak.ru/cgi-bin/forum.pl?n=1&look=1&id=1038958451&from=6

Ozone (2002-12-04 12:32:00) [16]
Так и не работает - ошибку не перехватывает.

Max Zyuzin (2002-12-02 14:30:00) [17]
>Ozone © (02.12.02 14:18)
А как оно не работает??? Что говорит? Попробуй программу запустить не из оболочки...

Ozone (2002-12-02 14:18:00) [18]
To Max Zyuzin:
Не работает.

Max Zyuzin (2002-12-02 13:42:00) [19]
>ЮЮ © (02.12.02 13:29)
Ага... по умолчанию его подставлять :))

Max Zyuzin (2002-12-02 13:41:00) [20]
>Ozone © (02.12.02 13:21)
try MyQuery.SQL := MyMemo.Lines; MyQuery.Open; except // Вы ввели фигню :)) end;

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »