Ver Mensaje Individual
  #4  
Antiguo 13-06-2005
Avatar de el_barto
el_barto el_barto is offline
Miembro
 
Registrado: may 2005
Ubicación: Bogota Colombia
Posts: 533
Reputación: 20
el_barto Va por buen camino
Post

[quote=el_barto]

Código:
 
procedure TForm4.Button1Click(Sender: TObject);
begin
DataModule2.IBQuery2.SQL.Text := 'INSERT INTO producto(cod_prod, nom_prod, atr_prod1, atr_prod2, atr_prod3, atr_prod4, atr_prod5) 
VALUES (:cod_prod, :nom_prod, :atr_prod1, :atr_prod2, :atr_prod3, :atr_prod4, :atr_prod5)';
DataModule2.IBQuery2.ExecSQL;
 
end;
necesito que lo que yo escriba en una grilla me lo copie a la base de datos mediante un query pero no se como solo llegue hasta aqui:

DataModule2.IBQuery2.ParamByName('cod_pro').AsInteger := ??????

Pero no se como pasar el valor que tiene en la grilla en la columna 0, yo se que eso debe ser una tonteria pero recurro a ustedes dado que esa tonteria me quedo grande
Responder Con Cita