Delphi x PL/SQL (Oracle)

[Andre Renato 0]

Turma, vou pedir mais uma ajuda a vocês.

 

Estou conectando o Delphi 7 com o Oracle via ADO. Estou começando a estudar mais Procedures e tentando um procedimento para salvar os novos registros na base.

 

A procedure:

 

CREATE OR REPLACE PROCEDURE IncluiCliente (

Parnome tblClientes.cliNome%Type,

Parcomplemento tblClientes.cliComplemento%Type,

Parbairro tblClientes.cliBairro%Type,

Parcidade tblClientes.cliCidade%Type,

Parcep tblClientes.cliCep%Type,

Partelefone tblClientes.cliTelefone%Type,

Parnasc tblClientes.cliDataNascimento%Type,

Paruf Tblclientes.Unfcodigo%Type,

Parlograd tblClientes.cliLogradouro%Type,

Parnumero tblClientes.cliNumero%Type) Is

 

BEGIN

 

Insert Into tblClientes Values

(seqclientes.Nextval,

Parnome,

Parcomplemento,

Parbairro,

Parcidade,

Parcep,

Partelefone,

Parnasc,

Paruf,

Parlograd,

Parnumero);

 

END;

 

No botão 'salvar' no Delphi:

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

 

stpIncluiClientes.Parameters[0].Value := dbeNome.Text;

stpIncluiClientes.Parameters[1].Value := dbeLogradouro.Text;

stpIncluiClientes.Parameters[2].Value := dbeNumero.Text;

stpIncluiClientes.Parameters[3].Value := dbeComplemento.Text;

stpIncluiClientes.Parameters[4].Value := dbeBairro.Text;

stpIncluiClientes.Parameters[5].Value := dbeCidade.Text;

stpIncluiClientes.Parameters[6].Value := dblUf.KeyValue;

stpIncluiClientes.Parameters[7].Value := dbeCep.Text;

stpIncluiClientes.Parameters[8].Value := dbeTelefone.Text;

stpIncluiClientes.Parameters[9].Value := dbeDataNascimento.Text;

 

stpIncluiClientes.Open;

stpIncluiClientes.ExecProc;

 

end;

 

Ele está reportando o seguinte erro:

 

"O provedor atual não oferece suporte para retornar vários conjuntos de registros de uma única execução."

 

O que tem de errado aí?

Valeu! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[marcio.theis 3]

Tente usar somente o ExecProc;

[Andre Renato 0]

Opa, valeu!Já tinha conseguido fazer funcionar aqui.