Ver Mensaje Individual
  #28  
Antiguo 20-06-2010
AntonioTB AntonioTB is offline
Registrado
 
Registrado: ago 2007
Posts: 7
Reputación: 0
AntonioTB Va por buen camino
Cita:
Empezado por carlos v.p.l. Ver Mensaje
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.
Responder Con Cita