Guardar y Filtrar en una Tabla

[Sr.Scorpion]

No me ha llegado todavia.... repito el correo por si algo

[email protected]

[[Caral]]

Hola estaba revisando y aparentemete no me envia bien a tu correo.
No se que pueda ser.
Pero bueno, hay que atacar el problema.
Me puedes explicar en que parte de todo el problema estas.?
Saludos

[[Caral]]

Intenta otra vez aqui: ftp://196.40.62.225/Ejemplo.zip
Saludos

[Sr.Scorpion]

La cuestion en si es hacer una suma a una Tabla despues de filtrada..... tengo un Query1 q me filtra y un Query2 q me suma, sumo y me da un valor, filtro y me da el mismo valor...

PD: Se esta bajando el ejemplo leeeeentamente pero bajando

[[Caral]]

Bueno si bajas el ejemplo veras que se enlaza a access.
Si no lo puedes bajar o si puedes veras que hay un codigo que filtra y otro que suma en dos query en el form2 asi:
Uso un combobox para esto:

Código Delphi [-]
procedure TForm2.ComboBox1Change(Sender: TObject);
begin
  ADOQuery2.Active:= False;
  ADOQuery2.SQL.Text:= 'SELECT * From TuTabla';
  ADOQuery2.SQL.Add('WHERE (((TuTabla.TuCampo)="'+Combobox1.Text+'"))');
  ADOQuery2.Active:= True;
  ADOQuery1.Active:= False;
  ADOQuery1.SQL.Text:= 'SELECT DISTINCTROW TuTabla.TuCampo1, Sum(TuTabla.TuCampo2) AS [Suma De tuCampo2],'+
                       ' Sum(TuTabla.TuCampo3) AS [Suma De TuCampo3]'+
                       ' FROM TuTabla '+
                       'WHERE (((TuTabla.TuCampo)="'+Combobox1.Text+'"))'+
                       'GROUP BY TuTabla.TuCampo1';
 ADOQuery1.Active:= True;
end;

Bueno mas claro imposible.
Espero te sirva.
Saludos

[Sr.Scorpion]

Funciono a las mil maravillas...... Gracias

[Jemp]

Empezado por Sr.Scorpion

Funciono a las mil maravillas...... Gracias

Hey excuseme pero soy un novato y estoy haciendo algo para la universidad
sucede que tengo un formulario de mantenimiento donde creo algunos registros uso dos dbedit uno para el codigo del registro y otro para el nombre y quiero que si el codigo esta vacio o es cero me tome del ultimo registro el siguiente y me da error
estoy usando estas instrucciones :

insertar : string;
xpaquete : integer;
nombre : string;
begin
dbenombre.SetFocus;
dbetipo.Text := '';
if dbetipo.Text = '' then
dbetipo.Text := '0';
xpaquete := Strtoint(dbetipo.Text);
if dbetipo.Text = null or 0 then
begin
showmessage('nulo');
insertar := 'select max(paquete) + 1 from tipopaquetes';
qtipos.SQL.Add(insertar);
qtipos.Active := True;
qtipos.Open;
xpaquete := qtipos.Recordset.Fields[0].value;
end;
nombre := dbenombre.Text;
insertar := 'insert into tipopaquetes (paquete, nombre) values (';
insertar := insertar + intToStr(xpaquete) + ',';
insertar := insertar + chr(39)+ nombre + chr(39) + ')';
showmessage(insertar);
qtipos.SQL.Add(insertar);
qtipos.ExecSQL;

ayudenme please