Consulta SQL en ADOQuery

[epenor]

Estoy intentanto hacer esta consulta y recibo un error que dice que "La sentencia SELECT esta usando una palabra reservada o está mal escrita". Lo que trato de hacer es sacar los datos del cliente cuyo codigo (numerico) es introducido en un edit numerico (JvIntegerEdit).

QTemp.SQL.Text := 'Select Nombre, Direccion, Telefono, from Clientes '+
                            'where Codigo = '+QuotedStr(Edit1.value)+' )';
QTemp.Active := true;
      If QTemp.RecordCount < 1 then
      begin
         MessageDlg('¡Código de cliente no existe!',mtError,[mbOK],0);
         Edit1.SetFocus;

Será que estoy poniendo el parte del edit incorrectamente?

[[coso]]

Hola, si codigo es entero, no debes poner el QuotedStr. Esta funcion solo es necesaria para strings. Ademas, tienes un parentesis innecesario.

[tcp_ip_es]

edit1.value???? sería edit1.text

[epenor]

coso: Ya quite el parentesis del final, pero aun continua dandome error.ç

tcp_ip_es: este edit un "integer edit" que solo retorna valores enteros. Es del paque Jedi (jvIntegerEdit).

[Neftali [Germán.Estévez]]

Empezado por epenor

...telefono, from...

Bueno yo veo por aquí una coma de más. Posiblemente te esté cogiendo el FROM como nombre de campo.

[[coso]]

Hola, si codigo es entero, no debes poner el QuotedStr. Esta funcion solo es necesaria para strings.

esto tambien...para comparar enteros no debe estar en comillas el valor.

[NestorN]

Hola espero que te sirva el aporte

Código Delphi [-]
QTemp.SQL.Text := 'Select Nombre, Direccion, Telefono, from Clientes '+
                            'where Codigo LIKE '+QuotedStr(Edit1.value)+' )';
QTemp.Active := true;
      If QTemp.RecordCount < 1 then
      begin
         MessageDlg('¡Código de cliente no existe!',mtError,[mbOK],0);
         Edit1.SetFocus;

proba usando LIKE en ves de =. Suerte

[epenor]

Muchas gracias NestorN, Funciona bien.