Caros Colegas;
Estou desenvolvendo uma aplicação que faz uso do banco de dados ORACLE 9,
portando andei lento alguns artigos na internet, de como fazer a comunicação
entre o Delphi e o Oracle, e conforme as informações que adquiri, criamos uma
procedure no banco de dados para fazer a inclusão/alteração/exclusão dos
registros na tabela, como segue:
TABELA: nb_cvrd_oc_cab
Name Type Nullable Default Comments
------------ ------------ -------- -------
--------------------------------------
ID NUMBER(12) ID unico para todo o sistema
NUMR_OC VARCHAR2(12) Numero da Ordem de Compra
DATA_EMISSAO DATE SYSDATE Data da Emissao da Ordem de Compra
DATA_ACEITE DATE SYSDATE Data do Aceite no QUADREM
NOME_CONTATO VARCHAR2(50) Y Nome do Solicitante da Ordem de
Compra
ENDE_EMAIL VARCHAR2(50) Y E-Mail do Solicitante
VALR_TOTAL NUMBER(15,2) Y Valor Total da Ordem de Compra
PROCEDURE:
create or replace procedure nb_cvrd_oc_cab_prc(par_tipo char,
par_id nb_cvrd_oc_cab.id%type,
par_numr_oc nb_cvrd_oc_cab.numr_oc%type,
par_data_emissao nb_cvrd_oc_cab.data_emissao%type,
par_data_aceite nb_cvrd_oc_cab.data_aceite%type,
par_nome_contato nb_cvrd_oc_cab.nome_contato%type,
par_ende_email nb_cvrd_oc_cab.ende_email%type,
par_valr_total nb_cvrd_oc_cab.valr_total%type) as
begin
...
...
end nb_cvrd_oc_cab_prc;
ROTINA PARA A GRAVAÇÃO DOS DADOS NA TABELA
UTILIZANDO O SQLStoredProc
with DM.SQLSP1 do begin
ParamByName('par_tipo').AsString := 'I';
ParamByName('par_id').AsInteger := 0;
ParamByName('par_numr_oc').AsString := Copy(meNumrOC.Text,1,12);
ParamByName('par_data_emissao').AsDateTime :=
StrToDateTime(deDataEmissao.Text);
ParamByName('par_data_aceite').AsDateTime :=
StrToDateTime(deDataAceite.Text);
ParamByName('par_nome_contato').AsString := Copy(meNomeContato.Text,1,50);
ParamByName('par_ende_email').AsString := Copy(meEmail.Text,1,50);
ParamByName('par_valr_total').AsCurrency := StrToFloat(ceValrTotal.Text);
ExecProc;
end;
Montamos toda a janela e instanciamos todos os campos, através de Edit, e
estamos tentando fazer a gravação dos dados na tabela utilizando o componente
SQLStoredProc, só que está me apresentando um error a qual eu não estou
conseguindo ver. Sendo que me apresenta a mensagem de erro: BCDOverflow
Portanto meu colegas, eu gostaria que se alguém souber, por favor me ajude.
Atenciosamente,
Robert.'.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
