Delphi - consulta sql

 
Vista:

consulta sql

Publicado por bolivar kissell (1 intervención) el 22/04/2010 00:03:00
he realizado una consulta en delphi
con el control query1

query1.sql.clear;
query1.add('select numero from numeros where clave ='+editbox.text);
query1.open;

la consulta se realiza correctamente y me lo muestra en un dbgrid pero si no encuentra nada y le doy de nuevo me da error de eof y bof true.

otra cosa no habra forma de decir le que si el contenido de un editbox.text es numerico que la haga sino no
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:consulta sql

Publicado por celizo (77 intervenciones) el 22/04/2010 07:20:41
Creeria que debes de hacer es mostrar un mensaje si la consulta no retorna un valor. Si query1.eof then mostrar mensaje y salir
with query1 do
begin
close;
sql.clear;
sql.add(string de consulta);
open;
end;

Después, para validar que un edit sea solo numerico puedes hacer
if ( StrScan('0123456789.-',Key) <> nil ) or
( Key = Char(VK_BACK) ) then
begin
{Aqui tu tratamiento normal del evento}
end
else
Key := #0;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:consulta sql

Publicado por martin (43 intervenciones) el 22/04/2010 19:46:39
A mi pasaba exactamente lo mismo con delphi 5 y Windos Xp, la solucion fue delphi 7.
Parece que el control ado no liberaba bien memoria o algo por el estilo.

saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar