Buscando una cadena dentro de una tabla

[carlos v.p.l.]

Disculpa ese resultado (que es 1) que me de vuelve el Edit3 que me indica ?
que lo ha encontrado y 0 que no?
o es el indice? y de nuevo grax es ke siempre me regresa 1 , cuando ingreso un nombre que si esta y 1 = si no esta

[[Caral]]

Hola
Es una excelente pregunta: Que es el 1??.
En la tabla tienes algun numero 1 por ahi perdido?, por que le codigo tiene que regresar el nombre en el edit.
Saludos

[carlos v.p.l.]

rTenia un error a la hroa de sustituir tu codigo solo cambie 2 lineas no las 3 perdon:
El siguiente codigo no me marca error pero siempre me regresa 1:

Código Delphi [-]
 procedure TForm5.Button1Click(Sender: TObject);
begin
   DataModule2.cliente.Close;
   IBDataSet1.SelectSQL.Text:='select nombre from cliente where nombre like'+quotedstr(Edit2.Text);
   DataModule2.cliente.Open;
   Edit3.text:= DataModule2.cliente.fields[0].AsString;
end;

supongo que 1 es mi primer indice
el siguiente codigo me no me marca error de compilacion pero me marcar un error a la hora de buscar que es este"ListIndex of bounds(0)":

Código Delphi [-]
 procedure TForm5.Button1Click(Sender: TObject);
begin
   DataModule2.cliente.Close;
   IBDataSet1.SelectSQL.Text:='select nombre from cliente where nombre like'+quotedstr(Edit2.Text);
   DataModule2.cliente.Open;
   Edit3.text:= IBDataSet1.fields[0].AsString;
end;

en tu caso 1 tienes la sguiente linea:

Código Delphi [-]
DataModule2.cliente.SQL.Text:='select nombre from cliente where nombre like'+quotedstr(Edit2.Text);

esa no me la acepta y ya pues el caso 2 que me pusiste pues ese si me marca el error:
SQL error code=-104
Token unknown -line 1,char 24 '. (la ' no es error de dedo xD)

ia no se ke hacer xD ,muchas grax por la ayuda,si no tas algun error te agradeceria que me siguieras ayudando(ya te hice trabajar mucho muchas grax)

[[Caral]]

Hola
Intenta esto:

Código Delphi [-]
 procedure TForm5.Button1Click(Sender: TObject);
begin
   DataModule2.cliente.Close;
   IBDataSet1.SelectSQL.Text:='select nombre from cliente where nombre like'+Edit2.Text;
   DataModule2.cliente.Open;
   Edit3.text:= DataModule2.cliente.fields[0].AsString;
end;

Revisa bien en la tabla, que el campo nombre contenga el dato.
Saludos

[[Caral]]

Hola
Creo que he entendido mal desde el principio.
Lo que tienes es un IBTable, no un IBQuery.
El codigo es para un IBQuey.
Si quieres usar un table se hace un filtro:

Código Delphi [-]
 procedure TForm5.Button1Click(Sender: TObject);
var
   Filtro : String;
begin
   If (Edit2.Text <> '') then
   begin
      DataModule2.cliente.Filtered := False;
      Filtro := 'Nombre Like '''+ Edit2.Text + '*'''
      DataModule2.cliente.Filter := Filtro;
      DataModule2.cliente.Filtered := True
      Edit3.text:= DataModule2.cliente.fields[0].AsString;
end;
end;

Saludos

[carlos v.p.l.]

MMM no pues no estoy seguro que debo tener otro error por ahi me dedicare a buscarlo , muchas grax por todo tu tiempo

[carlos v.p.l.]

mm pues no encontre el error pero ya hoy con mas calma se me ocurrio hacerlo de otra forma y ya quedo muchas grax por su tiempo saludos.

[AntonioTB]

Empezado por carlos v.p.l.

rTenia un error a la hroa de sustituir tu codigo solo cambie 2 lineas no las 3 perdon:
El siguiente codigo no me marca error pero siempre me regresa 1:

Código Delphi [-]
procedure TForm5.Button1Click(Sender: TObject);
begin
DataModule2.cliente.Close;
IBDataSet1.SelectSQL.Text:='select nombre from cliente where nombre like'+quotedstr(Edit2.Text);
DataModule2.cliente.Open;
Edit3.text:= DataModule2.cliente.fields[0].AsString;
end;





supongo que 1 es mi primer indice
el siguiente codigo me no me marca error de compilacion pero me marcar un error a la hora de buscar que es este"ListIndex of bounds(0)":

Código Delphi [-]
procedure TForm5.Button1Click(Sender: TObject);
begin
DataModule2.cliente.Close;
IBDataSet1.SelectSQL.Text:='select nombre from cliente where nombre like'+quotedstr(Edit2.Text);
DataModule2.cliente.Open;
Edit3.text:= IBDataSet1.fields[0].AsString;
end;





en tu caso 1 tienes la sguiente linea:

Código Delphi [-]DataModule2.cliente.SQL.Text:='select nombre from cliente where nombre like'+quotedstr(Edit2.Text);


esa no me la acepta y ya pues el caso 2 que me pusiste pues ese si me marca el error:
SQL error code=-104
Token unknown -line 1,char 24 '. (la ' no es error de dedo xD)

ia no se ke hacer xD ,muchas grax por la ayuda,si no tas algun error te agradeceria que me siguieras ayudando(ya te hice trabajar mucho muchas grax)

Por el mensaje de rror que dices que tienes, prueba a escribir un espacio despues de 'like' en la sentencia sql, posiblemente ese sea el problema que te da el error.

[mematanlimon]

buenas, les hago una consulta sobre los filtro, como se aplica un filtro con 2 condiciones, es decir....
una tabla donde haya por ejemplo

select VENTAS where CLIENTE like FILTRO1 like FILTRO2

este es un ejemplo porque en realidad no se como se hace para poder poner en un query esta doble condicion,

gracias

[Casimiro Notevi]

Por favor, inicia siempre un tema nuevo cuando quieras hacer preguntas que no tengan que ver con el tema tratado en el hilo, gracias.

select campos
from tuTabla
where CLIENTE like FILTRO1 
and    CIUDAD = FILTRO2
and    SUELDO > FILTRO3

etc...