Jvilomar
21-11-2007, 15:52:40
Saludos mis queridos amigos...
Me gustari saber si pueden alludarme a solucionar una duda...
Utilizo Delphi 7, Con TADOQuery y me conecto a una Base de Datos SQL SErver 2000.
Tengo dos tablas T1 y T2 lo que deseo es que en el evento BeforePost de la Tabla 1 me haga una insercion de ciertos datos en la T2. Pero no puedo conseguir que ejecute la insercion en la t2.
procedure DataModulo.aoqryAnularBeforePost(DataSet : TDataSet);
Begin
with qryConsulta do
begin
Connection := SGGC;
Close;
SQL.Clear;
SQL.Add('Select * from tClientesApartamentos where idCuenta =:idCliente');
Parameters[0].Value := DataSet['idCliente'];
Open;
if IsEmpty then
begin
with qryActualizar do
begin
Connection := SGGC;
Close;
SQL.Clear;
SQL.Add('Insert into tClientesApartamentosTrans ');
SQL.Add('Select * from tClientesApartamentos where idCuenta =:idCliente');
ExecSQL;
End;
End;
End;
End;
el asunto es que cuando ejecuto el query que hace la insercion me parece que pierdo el estado del primer query.. podria alguien confirmarme que sucede o a lo mejor darme una idea de hacer esto mismo de una forma menos chapusera...
Gracias de AnteMano
Me gustari saber si pueden alludarme a solucionar una duda...
Utilizo Delphi 7, Con TADOQuery y me conecto a una Base de Datos SQL SErver 2000.
Tengo dos tablas T1 y T2 lo que deseo es que en el evento BeforePost de la Tabla 1 me haga una insercion de ciertos datos en la T2. Pero no puedo conseguir que ejecute la insercion en la t2.
procedure DataModulo.aoqryAnularBeforePost(DataSet : TDataSet);
Begin
with qryConsulta do
begin
Connection := SGGC;
Close;
SQL.Clear;
SQL.Add('Select * from tClientesApartamentos where idCuenta =:idCliente');
Parameters[0].Value := DataSet['idCliente'];
Open;
if IsEmpty then
begin
with qryActualizar do
begin
Connection := SGGC;
Close;
SQL.Clear;
SQL.Add('Insert into tClientesApartamentosTrans ');
SQL.Add('Select * from tClientesApartamentos where idCuenta =:idCliente');
ExecSQL;
End;
End;
End;
End;
el asunto es que cuando ejecuto el query que hace la insercion me parece que pierdo el estado del primer query.. podria alguien confirmarme que sucede o a lo mejor darme una idea de hacer esto mismo de una forma menos chapusera...
Gracias de AnteMano