Erro ao salvar

[nsouza]

Colegas,

no evento Before Post de um ClientDataSet tenho a seguinte procedure:

procedure TDM.cdsClientesBeforePost(DataSet: TDataSet);

begin

with spCliente do

begin

Params[0].AsInteger := cdsClientesID_CLIENTE.AsInteger;

Params[1].AsString := cdsClientesNOME_CLIENTE.AsString;

Params[2].AsString := cdsClientesENDERECO.AsString;

ExecProc;

end;

end;

Quando clico no btão salvar da a seguinte mensagem de erro: List index out of bounds(2)

Como posso resolver isso obrigado!

[Pompeu]

'nsouza'

Esse erro acontece quando você tenta inserir algo em uma lista ex: StringList, ListBox, etc, provavelmente não deve existir o parametro (2).

Aconselho você a verificar sua SP o erro deve estar nela, lembrando que Params[] é uma lista ok.

Abraço

[nsouza]

'nsouza'

Esse erro acontece quando você tenta inserir algo em uma lista ex: StringList, ListBox, etc, provavelmente não deve existir o parametro (2).

Aconselho você a verificar sua SP o erro deve estar nela, lembrando que Params[] é uma lista ok.

Abraço

Pompeu,

funcionou, muito obrigado!

Estou passando os valores através de DBEDITS, como seria se eu passe atraves de Edits

mudaria esta linha de código?

Params[1].AsString := cdsClientesNOME_CLIENTE.AsString;

[Pompeu]

Ficaria assim:

Params[1].AsString := Nome_do_Edit.Text;

Lembrando que campos numéricos por exemplo você terá que fazer a conversão ok, ex:

Params[2].AsInteger := StrToInt(Nome_Do_Edit.Text);

Abraço