Добавление данных через ХП

← →
nick-from © (2002-11-20 23:38) [0]

Сделал таблицу:

CREATE DOMAIN Id_Domain AS INTEGER NOT NULL CHECK (VALUE > 0);

CREATE DOMAIN Category_Domain AS VARCHAR(30) CHARACTER SET WIN1251 NOT NULL COLLATE PXW_CYRL;

CREATE DOMAIN ItemsCount_Domain AS INTEGER DEFAULT 0 NOT NULL CHECK (VALUE > -1);

CREATE DOMAIN Boolean_Int_Domain AS INTEGER DEFAULT 0 NOT NULL CHECK (VALUE IN (0, 1))

CREATE TABLE Categories
(
Id Id_domain,
Category Category_domain,
ItemsCount ItemsCount_domain,
IsCorruptible Boolean_Int_Domain,
CONSTRAINT pkCategories PRIMARY KEY (Id)
);

Потом сделал процедуру для добавления данных в эту таблицу:

CREATE PROCEDURE ADD_TO_CATEGORIES
(
ID INTEGER,
CATEGORY VARCHAR(30),
ITEMSCOUNT INTEGER,
ISCORRUPTIBLE INTEGER
)
AS
BEGIN
INSERT INTO Categories
(Id, Category, ItemsCount, IsCorruptible)
VALUES
(:Id, :Category, :ItemsCount, :IsCorruptible);
END;

Как вызвать эту процедуру у клиента?
(Последовательность действий в коде Delphi)
после того как кинул компонент и задал свойства БД и процедуры ?

← →
AndrewVolkov (2002-11-20 23:43) [1]

Transaction.StartTransaction;
stored_Procedure.Params[1].Text:=text;
stored_Procedure.Params[2].Text:=.text;
stored_Procedure.Params[3].AsDateTime:=Date;
stored_Procedure.ExecProc;
Transaction.Commit;

Transaction - Имя твоей транзакции
stored_Procedure - Имя процедуры

и главное Params для Stored procedure добавь.
да вот вроде и усе

← →
BoxTer © (2002-11-21 07:18) [2]

>AndrewVolkov
Это все замечательно, а вдруг???? искл. ситуация на серваке, шо тогда???
я бы маненько переделал:
try
Transaction.StartTransaction;
stored_Procedure.Params[1].Text:=text;
stored_Procedure.Params[2].Text:=.text;
stored_Procedure.Params[3].AsDateTime:=Date;
stored_Procedure.ExecProc;
Transaction.Commit;
except
Transaction.RollBackTransaction.
end;

← →
AndrewVolkov (2002-11-21 13:14) [3]

Меня про исключительные не спрашивали :-))
Это уже вопрос не по базам :-))

А какая разница между ExecProc и ExecProcedure ?

Добавление данных через ХП Найти похожие ветки