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 >>>>>
<*> 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]
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
