Ver Mensaje Individual
  #6  
Antiguo 06-02-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola gianfranco.

Probá si de este modo te resulta más claro:
Código Delphi [-]
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM LIN_ART');
    SQL.Add('WHERE COD_LIN = :VALOR1 ');
    SQL.Add('AND LIN_DESC = :VALOR2');
    Parameters.ParamByName('VALOR1').Value:= Edit1.Text;
    Parameters.ParamByName('VALOR2').Value:= Edit2.Text;
    Open;
    if IsEmpty then
    begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO LIN_ART (COD_LIN, LIN_DESC)');
      SQL.Add('VALUES(:VALOR1, :VALOR2)');
      Parameters.ParamByName('VALOR1').Value:= Edit1.Text;
      Parameters.ParamByName('VALOR2').Value:= Edit2.Text;
      ExecSQL;
    end;
  end;
Eso tomando en cuenta los dos campos que has mencionado, si hay más campos para insertar, también los tendrás que incluir en la sentencia SQL.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita