No me funciona esta SQL en firebird en MYSQL SI funciona
 

un saludo

hice una aplicación para mysql que esta andando bien en red.
algunos clientes lo quieren utilizar en una sola PC para facilitar a clientes que no conocen mysql y su instalación.
decidí por firebird 2.5 porque veo que es el mas compatible al código que tengo en la programación un 90% no hice cambios alguno por el momento.

mi problema es cuando EDIT11.text esta VACIÓ y en el sql pregunta si vació es igual a id_cliente

mi aplicación con DB MySQL ejecuta la consulta sin problema y como el valor es vació no me da resultado y continua el sistema.
mi aplicación con DB firebird cuando ejecuto esta consulta, me arroba un error "conversion error from string"
y se detiene la aplicación.

edit11.text en valor VACIO

esta es la sql que estoy ejecutando en ese momento.

Código SQL [-]
 _DM.consulta1.SQL.Text:='SELECT * From clientes Where id_cliente='+ QuotedStr(edit11.Text);
 _DM.consulta1.open;

agradezco su respuesta.

Resolve la consulta usando parametros y no literales

algun ejemplo por ahí porfa?

En realidad hay millones de hilos en donde se explica el tema

Código Delphi [-]
var
  qry: TXXXQuery; // TQuery, TADOQuery, TIBQuery, etc
begin
  qry.SQL.Text := ' SELECT * FROM Personas WHERE Nombre = :ParametroNombre '; // ParametroNombre es el nombre del parametro, puede ser cualquier cosa. Se debe anteponer los dos puntos para denotar un parametro
   
  // para componente ADO
  qry.Parameters.ParamByName('ParametroNombre').Value := AsignarAcaElValor; 

  // otros componentes permiten obviar el .Parameters y usar directamente ParamByName
  qry.ParamByName('ParametroNombre').Value := AsignarAcaElValor; 

  // algunos hasta permiten usar metodos AsString, AsInteger como la clase TField
  qry.ParamByName('ParametroNombre').AsString := AsignarAcaElValor; 

  // tambien es buena idea antes setear el tipo de dato
  qry.ParamByName('ParametroNombre').DataType := TFieldType.ftString;
end;

problema de una sql en delphi
 

hola
tengo este sql

cuando edit11.text tiene algun valor funciona.
cuando edit11.text esta vació me tira un error! error "conversion error from string"

no puedo solucionarlo.

Código SQL [-]
// _DM.consulta1.SQL.Text:='SELECT * From clientes Where id_cliente='+ QuotedStr(edit11.Text);

alguien me da una mano

No crees un hilo nuevo para seguir con el mismo asunto. He unido ambos hilos.

Y por que no lo intentas con parametros? :confused::confused:

El literal da este tipo de problemas. Ademas, cual es el comportamiento esperado? Que si no hay texto en el edit traiga todos? El error es claro, te esta diciendo "no puedo convertir el string "" en un numero"

probe con parametros y me sigue tirando el mismo error

Código SQL [-]
 _DM.consulta1.SQL.Text:='SELECT * From clientes Where id_cliente=:miid';
 _DM.consulta1.ParamByName('miid').value:=QuotedStr(edit11.text);
       _DM.consulta1.open;

Intenta de esta manera:

Código Delphi [-]
var
  IdCliente: Integer;
begin
 _DM.consulta1.SQL.Text:='SELECT * From clientes Where id_cliente=:miid';
  if TryStrToInt(edit11.text, IdCliente) then
   _DM.consulta1.ParamByName('miid').value:= IdCliente
  else
   _DM.consulta1.ParamByName('miid').value:= Null; // debes incluir la unidad Variants en el uses

   // segun los componentes, tambien es posible que este definido el metodo Clear;
   _DM.consulta1.ParamByName('miid').Clear; // equivale a asignar Null
 _DM.consulta1.open;
end;

No has comentado con que componentes estas trabajando, pero de este modo en Firebird no tendría por que darte error:

Código Delphi [-]
  _DM.consulta1.SQL.Text := 'SELECT * FROM CLIENTES WHERE ID_CLIENTE = :MIID';
  _DM.consulta1.ParamByName('MIID').AsString := Edit11.Text; // (1)
  _DM.consulta1.open;

(1) Pero, si el ingreso no es un entero (vg. 'hola') lanzará un error de conversión, que se podría evitar de este modo:

Código Delphi [-]
  _DM.consulta1.Close;
  _DM.consulta1.SQL.Text := 'SELECT * FROM CLIENTES WHERE ID_CLIENTE = :MIID';
  _DM.consulta1.ParamByName('MIID').AsInteger := StrToIntDef(Edit11.Text, 1); // (*)
  _DM.consulta1.Open;

(*) Uno o el valor que desees por defecto.

Otra opción es interpretar el ingreso de cadena vacía como la intención de mostrar todas las filas:

Código Delphi [-]
  _DM.consulta1.Close;
  _DM.consulta1.SQL.Clear;
  _DM.consulta1.SQL.Add('SELECT * FROM CLIENTES');
  if Edit1.Text <> '' then
  begin
    _DM.consulta1.Add('WHERE ID_CLIENTE = :MIID');
    _DM.consulta1.ParamByName('MIID').AsInteger := StrToIntDef(Edit11.Text, 1);
  end;
  _DM.consulta1.Open;

Saludos :)