Estoy usando dos querys, uno para seleccionar algun cliente y otro para mostrar todos los clientes
anteriormente tenia
Código Delphi
[-]QueryBuscaCliente.SQL.Add(
'select CL.CVECLIENTE, CL.NOMBRE, CL.RFC, CL.CALLE, '+
'CL.COLONIA, CL.CP, CL.CIUDAD, CL.CLASE, CL.REPRESENTANTE, '+
'CL.TELEFONO, CL.CVECREDITO, CL.ACTIVO, CR.DESCRIPCION, '+
'CR.DURACION, CR.CREDITO from TCLIENTE CL, TCREDITO CR '+
'where (CL.CVECLIENTE starting(:I_CVECLIENTE)) and '+
'(CL.CVECREDITO = CR.CVECREDITO);');
y
Código Delphi
[-]QueryClienteAll.Locate('CVECLIENTE',Edit.Text,[loCaseInsensitive,loPartialKey]);
para situar el cursor de un dbGrid en el registro que coincida parcial o totalmente con lo que tiene el Edit
el valor del parametro I_CVECLIENTE es tambien el del Edit, cuando escribo en el Edit todo funciona bien el QueryBuscaCliente hace su trabajo asi como el QueryClienteAll se situa en el registro que coincide parcial o totalmente, el problema es que al cambiar el
QueryBuscaCliente en lugar de poner (CL.CVECLIENTE starting(:I_CVECLIENTE)) pongo (CL.CVECLIENTE =(:I_CVECLIENTE))
quedando de esta manera
Código Delphi
[-]QueryBuscaCliente.SQL.Add(
'select CL.CVECLIENTE, CL.NOMBRE, CL.RFC, CL.CALLE, '+
'CL.COLONIA, CL.CP, CL.CIUDAD, CL.CLASE, CL.REPRESENTANTE, '+
'CL.TELEFONO, CL.CVECREDITO, CL.ACTIVO, CR.DESCRIPCION, ' +
'CR.DURACION, CR.CREDITO from TCLIENTE CL, TCREDITO CR ' +
'where (CL.CVECLIENTE =(:I_CVECLIENTE)) and ' +
'(CL.CVECREDITO = CR.CVECREDITO);');
de esta manera el
Código Delphi
[-]QueryClienteAll.Locate'CVECLIENTE',Edit.Text, loCaseInsensitive,loPartialKey]);
ya no funciona correctamente ya que solo se situa en un registro solo si coincide totalmente el Contenido del Edit con el Field CVECLIENTE.
Alguna sugerencia de cual podria ser la solucion para que en este caso tambien haga una busqueda parcial.
Estoy usando interbase y Delphi 5.
De antemano gracias.
[i]jachguate: he editado tu mensaje para partir las líneas en valores que no hagan dificil la navegación.