Buscando una cadena dentro de una tabla

[carlos v.p.l.]

De la TIBTABLE y de la tabla que hice en interbase , acostumbro ponerles el mismo nombre para no confundirme je

[[Caral]]

Hola
1

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

2

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

3
pasame el programa la bd y todo y lo veo.
Saludos

[carlos v.p.l.]

orale con tu opcion uno ya no me marca error , como puedo ver el resultado es decir si kisiera ver en un Edit3 por ejemplo el nombre que encontro (xD que obviamente es el ke ingrese je je je), com puedo hacer eso y grax de new o por ejemplo en un tdbgrid que se encuentre = en mi form5 que se posicione en la fila del nombre encontrado(el dbgrid estaria conectado con un datasourc hacia la tabla cliente =)

[[Caral]]

Hola

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

Saludos

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