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