Código
with DataMod.DModule.AQSubgeneros do
begin
Close;
SQL.Clear;
SQL.Add('Insert into Subgeneros(Desc_Subgenero, Cod_Genero)values(:DescSubgenero, :CodGenero)');
Parameters.ParamByName('DescSubgenero').Value:=edtDescSubgenero.Text;
Parameters.ParamByName('CodGenero').Value:=StrToInt(edtCodGenero.Text);
execSQL;
End;
Espero ter ajudado...
Abraços
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009