Insert en sql 2008 con adoquery

[gianfranco_tont]

Empezado por Caral

Hola
Bueno, si funcionara, si que seria raro.
No entiendo bien que es lo que quieres hacer, el codigo no dice nada.
Saludos

Empezado por Caral

Hola
Para empezar coloca aqui (todo) el codigo que llebas hecho, a ver que se ve.
Ah, toma en cuenta que en Español se dice Insertar con S y en Ingles es Insert, con S, tambien.
Saludos

Bueno es raro realmente escribí toda la sentencia ya que lo estoy haciendo desde el iPad y la maquina donde estoy programando no tiene internet.

[[Caral]]

Hola
No se, algo asi???:

Código Delphi [-]
adoquery1.close;
Adoquery1.sql.Text:= 'select * from lín_art '+
                       'where cod_lin = '+edit1.text+
                     ' and lin_desc = ' +edit2.text;
 Adoquery1.open;
 If adoquery1.eof then
 Begin
 Adoquery1.close;
 Adoquery1.sql.Text:= 'insert into lin_art Values ('+Edit1.Text+ ','+Edit2.Text+')';
 Adoquery1.execsql;
 End
 End

Saludos

[gianfranco_tont]

Exacto lo hice pero aun me sigue dando el error que dice adoquery1: field 'cod_lin' no found.

[[Caral]]

Hola
Tienes en la pantallita pequeña los campos???? (campos persistentes)
1- Dale doble click al adoquery1.
2- Saldra una pequeña pantalla.
3- Si hay algun campo en esa pantalla quilato.
Me dice que pasa.
Saludos
PD: Lo que dice el mensaje es bien claro, No se encuentra el campo cod_lin.
Bien, o no existe o no lo ve o esta mal escrito.
Eso es lo que hay que revisar.

[gianfranco_tont]

Ahora me da un error de sintaxis incorrecta cerca de '='.

[ecfisa]

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.