[delphi-br] Problema com Procedure

[Rodrigo Rossi - UOL]

Pessoal, to montando uma procedure que quando clico no botao “Novo Cliente”
ele pega o Maximo código do cliente cadastrado e coloca pra min
automaticamente no TDBEdit o novo código do cliente. Mas esta gerando um
erro na hora que clico no botão “Objeto Parameter definido incorretamente.
As iinformaçoes são inconsistentes e incompletas”

O que ta de errado??

 

procedure TFrmCadCli.BtnNovoClick(Sender: TObject);

begin

  with Datamodule6.ADOQuery1 do

  begin

Close;

Datamodule6.ADOCommand1.CommandText := 'select max(codcli) as codigo
from CadCli';

Open;

  end;

  Datamodule6.ADO_CADCLI.insert;

  if Datamodule6.ADOQuery1['codigo']  null then

Datamodule6.ADO_CADCLI['codcli'] := Datamodule6.ADOQuery1['codigo'] + 1

  else

Datamodule6.ADO_CADCLI['codcli'] := '1';

 

  Datamodule6.ADOQuery1.Close;

end;

 

 



[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Problema com Procedure

[Rodrigo Rossi - UOL]

Não sei hehehehe

So iniciante kra... to aprendendo na marra... já procurei de tudo ke é
apostila e coisa e não achei a forma correta.

Att.

Rodrigo

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Moacir - GMail
Enviada em: sexta-feira, 24 de outubro de 2008 08:15
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Problema com Procedure


Rodrigo,

Vc esta colocando a sentença SQL em

Datamodule6.ADOCommand1.CommandText

e tentando buscar os resultados em

Datamodule6.ADOQuery1


Não seria isto ???

[ ]´s
Moacir

Rodrigo Rossi - UOL escreveu:
 Pessoal, to montando uma procedure que quando clico no botao “Novo
Cliente”
 ele pega o Maximo código do cliente cadastrado e coloca pra min
 automaticamente no TDBEdit o novo código do cliente. Mas esta gerando um
 erro na hora que clico no botão “Objeto Parameter definido incorretamente.
 As iinformaçoes são inconsistentes e incompletas”

 O que ta de errado??

  

 procedure TFrmCadCli.BtnNovoClick(Sender: TObject);

 begin

   with Datamodule6.ADOQuery1 do

   begin

 Close;

 Datamodule6.ADOCommand1.CommandText := 'select max(codcli) as codigo
 from CadCli';

 Open;

   end;

   Datamodule6.ADO_CADCLI.insert;

   if Datamodule6.ADOQuery1['codigo']  null then

 Datamodule6.ADO_CADCLI['codcli'] := Datamodule6.ADOQuery1['codigo'] +
1

   else

 Datamodule6.ADO_CADCLI['codcli'] := '1';

  

   Datamodule6.ADOQuery1.Close;

 end;

  

  



 [As partes desta mensagem que não continham texto foram removidas]


 

   



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 


 

__ Information from ESET NOD32 Antivirus, version of virus signature
database 3550 (20081023) __

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com
 
 

__ Information from ESET NOD32 Antivirus, version of virus signature
database 3550 (20081023) __

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com