Como recuperar datos de una tabla

[tebre]

tablaventa tablaproducto
folio fecha numempleado clave producto stock
1 08/02/09 03390586 100 50
200 40
300 100
tabla detalleventa
folio claveproducto cantidad
1 100 10
1 200 5
1 300 20

ahora bien este es la estructura de las tablas...el problema es que cuando yo elimine una venta en este caso el folio 1 en la tabla venta. recupere en la tabla detalleventa la cantidad y se lo sume al stock en la tabla producto. tengo la idea de hacer un select..y recorrer lo por un ciclo for..pero no se como?

Código Delphi [-]
 
   Datos.QryProducto.Active:= False;
   Datos.QryProducto.SQL.Clear;
   Datos.QryProducto.SQL.Add('SELECT cantidad');
   Datos.QryProducto.SQL.Add('FROM DetalleVenta);
   Datos.QryProducto.SQL.Add('WHERE FolioVenta='+ EdfolioVenta.Text +'));
   Datos.QryProducto.Active:= True;

ahora como recorre los elementos para ir salvando la cantidad...

esperando respuesta.....................grax

[tebre]

tablaproducto
claveproducto----stock
100--------------50
200--------------40
300--------------100

tablaventa
folio---fecha------ numempleado
1-- 08/02/09------- 03390586

tabladetalleventa
folio------claveproducto-----cantidad
1 -----------100------------- 10
1 -----------200------------- 5
1 -----------300------------- 20

ahora bien este es la estructura de las tablas...el problema es que cuando yo elimine una venta en este caso el folio 1 en la tabla venta. recupere en la tabla detalleventa la cantidad y se lo sume al stock en la tabla producto. tengo la idea de hacer un select..y recorrer lo por un ciclo for..pero no se como?

Código Delphi [-]
   Datos.QryProducto.Active:= False;
   Datos.QryProducto.SQL.Clear;
   Datos.QryProducto.SQL.Add('SELECT cantidad');
   Datos.QryProducto.SQL.Add('FROM DetalleVenta');
   Datos.QryProducto.SQL.Add('WHERE FolioVenta='+ QuotedStr(EdfolioVenta.Text ));
   Datos.QryProducto.Active:= True;

ahora como recorre los elementos para ir salvando la cantidad...y sumarlo al stock del producto............

esperando respuesta.....................grax

[*Caro*]

Hola tebre, para recorrer lo que te devuelve tu consulta y recuperar debes hacerlo así:

Código Delphi [-]
 With Datos.QryProducto Do
  begin
   First;
   While Not Eof Do
    begin
      Showmessage(FieldByName('cantidad').AsString);
      Next;
    end;
  end;

Saluditos

[tebre]

Gracias caro, alfin puede resolver mi problema........


muchas gracias