Insert en sql 2008 con adoquery

[gianfranco_tont]

Tengo una duda con el componente ado para conectarlo a la base de dato: tengo un tadoconnectin conectado perfectamente a mi base de dato sal server, por otro lado tengo un adoquery1 conectado perfectamente a mi tabla, de hecho puedo activarlo sin si gin problema, incluso puedo ver todos mis campos en el fieles editor mas sin embargo en el panel de structure a la izquierda me muestra los campos todos como inactivos. Necesito de su ayuda no logro avanzar. Perdón estoy usando delphi 2009 codegear.
Gracias por la atención

[gianfranco_tont]

Tengo un problema en lograr el incert usando un componente ado en base de dato sql2008. Inicialmente en el from conecte perfectamente un adoquery a mi base de dato, la active y logro ver todos los campos en fieles editor. A un botón coloque esta sentencia:
adoquery1.close;
Adoquery1.sql.clear;
Adoquery1.sql.add ('select * from lín_art');
Adoquery1.sql.add ('where cod_lin ='+coma+edit1.text+coma+
' and lin_desc =' +coma+edit2.text+coma);
Adoquery1.open;
If adoquery1.eof then
Begin
Adoquery1.close;
Adoquery1.sql.clear;
adoquery1.sql.add('incert into lin_art');
Adoquery1.execsql;
Begin
Adoquery1cod_lin.asstring := edit1.text;
Adoquery1lin_desc.asstring :=edit2.text;
Adoquery1.post;
End
End
Else

Esta es mi sintaxis pero por nada del mundo me quiere funcionar.
Agradezco su ayuda.

[[Caral]]

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

[[Caral]]

Hola
Y que quieres hacer?.
Saludos

[gianfranco_tont]

Quiero hacer un incert pero me da un mensaje diciendo que no consigue el campo cod_lin y estoy seguro que sea porque no esta activo ni siquiera en el from

[[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

[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

Jajajajaja. Lo que quiero hacer es hacer un incert en una tabla de sql, primero debo hacer una consulta para verificar que no exista y si no lo encuentra hacer el incert.

[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.