Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты! Как можно переделать данный код на ADO?
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
if not Query1.Prepared then
Query1.Prepare;
Query1.ParamByName('Familiya_param').Value := Edit1.Text;
Query1.Open;

end;

Вопрос задала: Belka (статус: Посетитель) Вопрос отправлен: 21 февраля 2012, 17:31 Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: BigNik

Ну вот что-то типа такого

ADOQuery.Close;
// условие бла-бла-бла ADOQuery.Prepared
ADOQuery.Parameters.ParamByName('...').Value:='...';
ADOQuery.Open;

Ответ отправил: BigNik (статус: 1-ый класс) Время отправки: 21 февраля 2012, 19:19

Мини-форум вопроса

23 февраля 2012, 22:06: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Собственно, отличий-то и нет, всё написали.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.