Показать сообщение отдельно
  #1  
Старый 20.09.2013, 02:16
xxbesoxx xxbesoxx вне форума
Новичок
 
Регистрация: 14.11.2010
Сообщения: 63
Репутация: 10
По умолчанию Oracle+Delphi хранение процедур на Update

Здравствуйте ребята . Как обратиться хранение процедур в Oracle который есть на Update . Как обратиться из Delphi и делать Update запись

Есть простои таблица

Код:
Desc sales
Name        Null     Type         
----------- -------- ------------ 
SALES_ID    NOT NULL NUMBER(10)   
SALES_DATE           DATE         
SALES_NAME  NOT NULL VARCHAR2(50) 
SALES_KOLVO          NUMBER(10)   
SALES_CENA           FLOAT(50)

Создал процедур на Update
Код:
CREATE OR REPLACE PROCEDURE UpdateSales
 (
 p_SALES_ID sales.sales_id%TYPE,
 P_SALES_DATE sales.SALES_DATE%TYPE, --  
 P_SALES_NAME sales.SALES_NAME%TYPE,
 P_SALES_KOLVO sales.sales_kolvo%TYPE, 
 P_SALES_CENA sales.sales_cena%TYPE
 )
AS
BEGIN
 UPDATE sales
  SET SALES_DATE = p_sales_date,
      SALES_NAME = p_sales_name,
      sales_kolvo = p_sales_kolvo,
      sales_cena = p_sales_cena
  WHERE sales_id =p_sales_id; 
COMMIT;
END UpdateSales;

Я хочу что обновления запись из ХП через его параметр . Но OraStoredProc как я понял не иметь прямой доступ на ХП, Он просто вызывают ХП.
Вот так не работает, не магу редактировать существующие запись.
Код:
Module.EditProc.StoredProcName := 'UpdateSales';
     Module.EditProc.Prepare;
     cxDateEdit1.Date := Module.OraStoredProc1.ParamByName('P_SALES_DATE').AsDateTime;
     cxTextEdit1.Text := Module.OraStoredProc1.ParamByName('P_SALES_NAME').AsString;
     cxTextEdit2.Text := Module.OraStoredProc1.ParamByName('P_SALES_KOLVO').AsString;
     cxTextEdit.Text := Module.OraStoredProc1.ParamByName('P_SALES_CENA').AsString;
     Module.OraStoredProc1.ExecSQL;

Пожалуйста помогите ребята .
Ответить с цитированием