Люди сроки поджимают. Нужно срочно написать клиент на Дельфях с ADO, но не с кем посоветоваться. Может есть у кого-нибудь готовый, в качестве пособия с комментариями (Чтобы были хранимые процедуры, представления, вообщем насыщенный). А то, по книгам пишешь, а там шаг вправо шаг влево одни ошибки сыпит. Вышлите на e-mail если не трудно!!!
Если нет, то хоть советом помогите. Немогу разобраться как обнавить измененные данные и хранимые процедуры шалят, если для процедуры с запросом like ввести значение которого нет в записи, то выдает ошибку и отрубает работу приложения с данной процедурой.

Как раз интерфейс и нужен. БД уже готова, оболочка и нужна. Проект типа с внедрением.

Работаю с Delphi5. Вот мне код рабочий дельфевый и нужен, т.к вызывал процедуры NorthWind если неправильный парамметер, то все приложение не работает. Я просто хотел посмотреть чей-нибудь написанный готовый код для дельфей.

Лучше бы не злословил, а помог.
По хелпам и книгам делаешь, а чуть в сторону(нестандартная ситуация) и ошибки. Хотел посмотреть готовое, как люди с этим боролись.

CREATE PROCEDURE FindLike
@cn varchar(10)
AS
SELECT *
FROM Senior
WHERE Computernum like ("%"+@cn+"%")
GO

Эта дельфевая процедура вызывает выше изложенную хранимую.

procedure TForm1.Button2Click(Sender: TObject);
begin
ADOStoredProc1.Close;
ADOStoredProc1.Connection:=ADOConnection1;
DataSource1.DataSet:=ADOStoredProc1;
ADOStoredProc1.ProcedureName:='FindLike;1';
ADOStoredProc1.Parameters.ParamValues['@cn']:=Edit1.Text;
ADOStoredProc1.Open;
end;

Если в параметре затать значение которого нет в поле во всех записях, как и положено выводиться пустое множество.
Но если еще раз вызват процедуру с правильным ппараметром, то ругается следующим образом:
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

Где я облажался?

Спасибо всем за участие. Глючил D5, поставил D6, все работае.