Guardar y Filtrar en una Tabla

[Sr.Scorpion]

Hola:

No se si lo que estoy preguntando es una burrada pero... tengo una Tabla (Access) en la q guardo datos y los modifico a traves de un DBGrid y en la misma quiero filtrar etc a traves del mismo DBGrid, estoy trabajando con la propiedad Filter del ADOTable y no me convence.... cuando tengo que sumar los campos de la tabla me los suma todos y no los filtrados... algo bien logico ya que el filtro lo hago con el ADOTable... en fin existe alguna forma mas potable, legible y menos engorrosa para en el mismo formulario a parte de entrar los datos a traves del DBGrid pueda filtrarlos y cosas por el estilo

Saludos

[[Caral]]

Hola Sr.Scorpion
Practicamente es lo mismo que el otro hilo, la verdad no se porque te complicas con el adotable, usa el adoquery y podras hacer mas cosas el cambio es simple.
Saludos

[[Caral]]

Te lo voy a poner mas facil
Aqui: ftp://196.40.62.225/ esta un archivo que se llama ejemplo.zip
ademas de otros, esta en access, lo hice precisamente para explicar lo de los filtros.
bajalo y me dices.
Saludos

[Sr.Scorpion]

Vengaaaaa !!!!!!!

El hombre mientras mas se perfecciona mas se embrutece..... disculpen a todos no estaba usando el ADOQuery porque creia que mediante el no podia insertar y borrar una tabla no se porque habre pensado eso pero bueno asi fue

[[Caral]]

Y Bueno, te sirvio? no te sirvio?, bajaste el ejemplo?, lo provaste?
Ahora quedan las dudas.
Saludos

[Sr.Scorpion]

No baje el ejemplo, no probe el ejemplo, no hice nada con el ejemplo... porque con el ADOQuery resolvi sin el ejemplo

[[Caral]]

Bueno me alegro de que no necesites del ejemplo, pero segun veo en otro hilo sigues con dudas en cuanto a sumas por filtro, Dudas que se eliminan cuando se ve el ejemplo, bueno tu sabras si lo ves o no.
Esto :

porque con el ADOQuery resolvi sin el ejemplo

No se que puede significar, la verdad es que el que no quiere ayuda, no la encuentra.
Saludos

[Sr.Scorpion]

Carnal... no he podido bajar tu ejemplo.zip.... me da error en el FTP

Saludos

[[Lepe]]

Yo lo acabo de bajar sin problemas.

Saludos

[Sr.Scorpion]

Empezado por Lepe

Yo lo acabo de bajar sin problemas.

Saludos

Pues a mi me dice Can't open data conection... de ser posible si me lo pueden mandar a sr.scorpion@gmail.com lo agradezco =

[[Caral]]

Hola
Me parece muy extraño que no puedas ver el programa.
De todos modos ya te lo envie por correo.
Saludos

[Sr.Scorpion]

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

Sr.Scorpion@gmail.com

[[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

[[Lepe]]

Código Delphi [-]
 
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;

    qtipos.Close;  // *******************
    qtipos.sql.Clear;// *******************

    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;

Saludos

[Jemp]

Gracias lepe, pero me da un error de duplicate entry porque se me guarda en el registro cero. Pueden ayudarme este es mi correo zerocool_jemp@hotmail.com y zerocoll04@hotmail.com please. Gracias