Hacer busqueda en un Ttable

[[Nbull]]

Hola de nuevo Er_Manué.

Espero que te haya quedado más claro

Claro no, me ha quedado clarisimo, muchisimas gracias, no se como agradecerte la ayuda que me has prestado, no te imaginas los quebraderos de cabeza que me estaba dando los puñeteros filtros.

Perdona que te haga otra pregunta, (vas a decir que soy un pesao),tenia un DbNavigator asociado al Table1, pues al cambiarlo y asociarlo al Query1 se me han desctivado los botones como los puedo activar de nuevo y hacer que funcionen como antes

Si necesitas algo en lo que yo te pueda ayudar no dudes en ponerte en contacto conmigo.

Un saludo

[Er_Manué]

No te preocupes para eso estamos Supongo que será por que se te ha desactivado el TQuery.

El DBNavigator lo debes asociar al DataSource al que tienes a su vez asociado el TQuery. Comprueba que tengas la propiedad Active del TQuery a True.

Ya me contarás. Saludos
Er_Manue

[[Nbull]]

Pues no se por que sera pero la Tquery la tengo a Active:=true en el evento OnFormCreate, y el DbNavigator lo tengo asociado al datasource de la query y no me funcionan los Botones.

Ahora me ha pasado una Put... por que como tenia todo el programa basado en una Ttable y he cambiado eso del query para que las busquedas sean más rapidas me ha tocado cambiarlo todo y me sale esto.
Me da otra excepcion y es que he puesto Query1.Insert o Query1.Edit y me dice que: 'Query1 cannot modify a Read-Only dataset', no se que hacer para quitar esta excepcion.Y si le quito el insert o el edit me dice que la tabla no esta en modo edicion cuando quiero modificar algun registro.
Un saludo

[Er_Manué]

Revisa las propiedades ReadOnly y LockType de tu TTable.

// Valores con los cuales te debería permitir realizar operaciones de insercción/modificación de los registros
//=================================================================

// Permitimos la escritura en la tabla
ReadOnly := false;

// ltOptimistic o la que nos interese, exceptuando ltReadOnly ;)
LockType := ltOptimistic;

Salu2

[incansable]

Hola amigo te envio algo de codigo para tratar los query desde codigo
a mi me funciona bien pasandole paramtros

Código Delphi [-]
  procedure Mquey2(DtoEdit:array of string;opc,opc1: integer); //controla todo el query1
   begin
         DataModule2.Query2.CLOSE;DataModule2.Query2.SQL.Clear;
  DataModule2.query2.sql.add('SELECT CODCLI, NOMECLI, NIF, DIRECCION, POBLACION,
  PROVINCIA, TF_FAX, TF_1, TF_MV, OFERTA, T_PRECIO1, T_PRECIO2, T_DTO1, ULTCOMPRA, LIMT_RIESG');
         DataModule2.query2.sql.add('FROM "CLIENT.DBF" Client');
       Case Opc Of
         1: begin
             Case Opc1 Of
                1: begin //ordenado por codigo
                    DataModule2.query2.sql.add('WHERE (CODCLI = :CODCLI)');
                    DataModule2.Query2.Params[0].AsString := DtoEdit[0];//dato a buscar completo
                    DataModule2.query2.sql.add('ORDER BY CODCLI') ;
                   end;
                2: begin
                    DataModule2.query2.sql.add('WHERE  NOMECLI LIKE  :NOMECLI '); //dato a buscar parcial
                    DataModule2.Query2.Params[0].AsString:= (DtoEdit[0] + '%') ;
                    DataModule2.query2.sql.add('ORDER BY NOMECLI') ;
                   end;
             end;
                    DataModule2.Query2.open;
            end;
       end;
   end;

saludos