Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Busqueda con Locate (https://www.clubdelphi.com/foros/showthread.php?t=52011)

RoyTan 07-01-2008 19:48:42

Busqueda con Locate
 
Saludos.

Alguien me podría decir como buscar sin SQL un número de teléfono en tres campos distintos de una tabla.

Ejemplo

Al ingresar el número en un Edit.text que busque en la Tabla Clientes.dbf que contiene tres campos Teléfono

Edit.Text
TablaClientes
Campo Telefono1
Campo Telefono2
Campo Telefono3
Resultado DBGrid

Como puedo recorrer los tres campos Telefono buscando el número ingresado en el edit.

Lo he intentado de esta forma y nada,

ModuloDatos.TCliente.Locate('TELEFONO1;TELEFONO2;TELEFONO3',Edit.Text,[loPartialKey, loCaseInsensitive]);

Gracias

Gaim2205 07-01-2008 19:53:14

prueba

Código Delphi [-]
ModuloDatos.TCliente.Locate('TELEFONO1;TELEFONO2;TELEFONO3', VarArrayOf([Edit.Text]), [loPartialKey, loCaseInsensitive]);

jachguate 07-01-2008 19:53:15

En este caso, lo que debes hacer es anidar las llamadas:

Código Delphi [-]
if not TCliente.Locate('TELEFONO1', Edit.Text, []) then
  if not TCliente.Locate('TELEFONO2', Edit.Text, []) then
    if not TCliente.Locate('TELEFONO3', Edit.Text, []) then
      ShowMessage('No encontrado');

Hasta luego.

;)

RoyTan 07-01-2008 21:27:52

Perfecto, funcionan a las mil maravillas.:D

Gracias Gaim y gracias JachGuate.


La franja horaria es GMT +2. Ahora son las 03:41:17.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi