Hola amigos del club delphi
Tengo un problema de actualizacion de registros con la sentencia update que la realizo desde un query, el query lo llamo desde un datamodule para actualizar un campo llamado "DiasCred" que son lo dias de credito de la tabla Cliente.
El problema surge al modificar los dias de credito desde un combobox y ejecuto la accion desde un boton llamado "guardar".
Al ejecutar en tiempo de ejecucion me envia un error de excepcion de la BDE mas o menos asi:
Type mismatch in expression.'. Process stopped.
Pero por más que le busco no se cual sea mi error.
Este es el codigo para explicarme mejor dentro del boton:
Código:
procedure TfrmModificaCtes.guardaClick(Sender: TObject);
var
diacred: integer; // variable para guardar los dias de credito
begin
diacred:=0;
// con este case al seleccionar el item del combobox "creditodia"
// le paso a la variable diacred los dias de credito
case creditodia.ItemIndex of
-1: dcred:=0;
0: dcred:=0;
1: dcred:=8;
2: dcred:=10;
3: dcred:=15;
4: dcred:=21;
5: dcred:=30;
end;
// aqui mando llamar el query para actualizar el cambio
with DMRegla.qryActualiza do
begin
SQL.Clear;
SQL.Add('update Cliente set Diascred=: param1');
SQL.Add('where id_cliente=: param2');
Params[0].AsInteger:=dcred;
Params[1].AsInteger:=StrToInt(numcte.Text);
ExecSQL;
MessageDlg('Los cambios fueron guardados !!', mtInformation,[mbOK],0);
end;
end;
Agraceria su ayuda, plis.