como mostrar un query en un dbgrid?

[carlosjaraba]

amigos, hasta ahora todo excelente nunca podría haber salido mejor todo funciona a full pero tengo una preguntica

hasta ahora para agregar campos a la tabla me ha tocado entrar por el sql y escribirlos en la tabla directamente como seria para grabar los capos desde la misma aplicación? iniciando porque mi dbgrid quiero que sea de solo lectura (y así lo tengo) pues puse que saliera un nuevo frame con los edits suficientes para escribir los nuevos campos. me podrían hacer el favor de decirme como agregar una nueva fila ? se los agradecería de todo corazón

bueno, encontre esto en los foros

Código Delphi [-]
With query1 do
begin
  Sql.Text:='Insert into tabla (campo1,campo2) values(:variable1,:variable2)';
  ParamByName('variable1').AsString:='blablablabla';
  ParamByName('variable2').AsInteger:=543;
  ExecSql;
end;

pero no veo los edits por ningún lado como seria en ese caso??

[ecfisa]

Hola Carlos.

Pero si ya lo tenés cocinado...

Código Delphi [-]
  With query1 do
  begin
    Sql.Text:='Insert into tabla (campo1,campo2) values(:variable1,:variable2)';
    ParamByName('variable1').AsString:= Edit1.Text;
    ParamByName('variable2').AsInteger:= IntToStr(Edit2.Text);  // (*) 
    ExecSql;
  end;

(*)En el caso de un campo numérico, también se puede hacer:

Código Delphi [-]
  ParamByName('variable2').AsString:= Edit2.Text; 
  //o  
  ParamByName('variable2').Value:= Edit2.Text;

Siempre, claro está, que estes seguro que el contenido de Edit2.Text sea un valor convertible al tipo de número esperado. Si nó, recibirás un error de conversión.


Edito:
Ya me olvidaba... Por favor, usa TAG's para encerrar el código que adjuntes a tu mensaje:



Un saludo.

[carlosjaraba]

amigos, todo parecia ir muy bien hasta que me tope con lo siguiente
me sale un error

undechlared identifier ParamByName
undechlared identifier AsString

este es mi codigo

por fin cai en cuenta de lo de ponerle el tag yo quedaba

Código Delphi [-]
With ADOQuery1 do
  begin
    Sql.Text:='Insert into COMPATIBILIDAD (MODELO,INSUMO,COMPATIBLE) values(:variable1,:variable2,:VARIABLE3)';
    ParamByName('VARIABLE1').AsString:= EDTMODELO.Text;
     ParamByName('VARIABLE2').AsString:= EDTINSUMO.Text;
      ParamByName('VARIABLE3').AsString:= EDTCOMPATIBLE.Text;

    ExecSql;
  end;

[ecfisa]

Hola.

Es que con un TADOQuery, sería:

Código Delphi [-]
 ADOQuery1.Parameters.ParamByName('VARIABLE1').Value:= Edit1.Text;

Un saludo.

[carlosjaraba]

muchas gracias amigos de clubdelphi sin su ayuda estaría perdido


todo solucionado. lo que escribieron todo funciona y a todas las preguntas le dieron respuestas!!!!