Ver Mensaje Individual
  #8  
Antiguo 07-03-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
Pues no, parece que no me lo llevo

Código Delphi [-]

var Val:Variant;
begin
  With Datamodule6 do begin
    With Guarda_Colega do begin
      Close;
//      Active := True; No puede estar activa si vamos a modificar su SQL
      With SQL do begin
//        Clear;  //sobra, ya lo hace internamente
        Text := 'INSERT INTO TColegas (indicativo, nombre, apellido1, apellido2) Values (:indicativo, :nombre, :apellido1, :apellido2)';
        if edit9.Text = EmptyStr then
          Val := NULL
          else
          Val := edit9.text;       
        ParamByName('indicativo').Value:=Val;

// lo mismo que he hecho, para el resto de parámetros.
// Puedes reusar la variable Val, ya que siempre se le asigna un valor.

        ExecSQL;
      end;
    end;
  end;
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita