Ver Mensaje Individual
  #23  
Antiguo 19-06-2010
carlos v.p.l. carlos v.p.l. is offline
Miembro
 
Registrado: jun 2010
Posts: 18
Reputación: 0
carlos v.p.l. Va por buen camino
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)
Responder Con Cita