Consulta numerica

[alcides]

hola a todos,

esta consulta es alfabetica, lo que quisiera es hacer esta misma consulta pero numerica.
que en lugar de Descripcion_Expediente sea Numero_Expediente
pero el mismo tipo de busqueda.


procedure TFrm_Consulta_Exp.DescripcionChange(Sender: TObject);
const
STRSQL = 'select * from Maestro_Expediente';
STRORDER = ' ORDER BY Descripcion_Expediente';
begin
Qry_busca_Expediente.Close;
if (Descripcion.Text = '') then begin
Qry_busca_Expediente.SQL.Text := STRSQL;
end
else begin
Qry_busca_Expediente.SQL.Text := STRSQL +
' WHERE Descripcion_Expediente LIKE ' + QuotedStr('%' + Descripcion.Text + '%') +
STRORDER;
end;
qry_busca_Expediente.Open;
end;



Gracias mil,

Alcides
Rep.Dom.

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

NOTA: Si colocas código delphi puedes utilizar los TAG´s de Delphi (Delphi y /Delphi entre corchetes).



// Suponiendo que el control se llama numero
procedure TFrm_Consulta_Exp.NumeroChange(Sender: TObject);
const
STRSQL = 'select * from Maestro_Expediente';
STRORDER = ' ORDER BY Numero_Expediente';
begin
Qry_busca_Expediente.Close;
if (Numero.Text = '') then begin
Qry_busca_Expediente.SQL.Text := STRSQL;
end
else begin
Qry_busca_Expediente.SQL.Text := STRSQL +
' WHERE Numero_Expediente = ' + StrToInt(Numero.Text) +
STRORDER;
end;
qry_busca_Expediente.Open;
end;

[alcides]

gracias mil neftali por tu ayuda,

ahora en la compilación me da el siguiente error:

Incompatible types: 'String' and 'Integer'

en esta linea es que me da el error

Qry_buscar_codigo.SQL.Text := STRSQL +
' WHERE Numero_Transacion = ' + StrToInt(Codigo_buscar.Text) +
STRORDER;


Gracias mil

ALcides
Rep.Dom.

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

Perdón...
Prueba con ésto:


Qry_buscar_codigo.SQL.Text := STRSQL +
' WHERE Numero_Transacion = ' + Codigo_buscar.Text +
STRORDER;


Sin el StrToInt.

[alcides]

Gracias mil Neftali, por tu ayuda




Alcides
Rep.Dom.