Busqueda de registro lenta

[jafera]

A ver si alguien me puede echar un cable.

Ejecuto el código siguiente con un doble clik y cada x veces, no tiene una cadencia fija, se congelan los formularios uno encima del otro tardando más de un minuto en mostrar el resultado.

Código Delphi [-]
 
procedure TF_Parcs.JvDBGrid1DblClick(Sender: TObject);
var cod:Integer;
begin
        cod:= Camions_ParcID.Value;
        if not Assigned(F_Camions) then
        begin
                Buscar_Camio.Close;
                Buscar_Camio.UnPrepare;
                Buscar_Camio.SQL.Text:='SELECT ID FROM BOM0001 WHERE ID ='+ IntToStr(cod);
                Buscar_Camio.Prepare;
                Buscar_Camio.Open;
                F_Camions:=TF_Camions.Create(nil);
                F_ModulDades.Camions.Locate('ID',Buscar_CamioID.Value,[]);
        end
        else
        begin
                Buscar_Camio.Close;
                Buscar_Camio.UnPrepare;
                Buscar_Camio.SQL.Text:='SELECT ID FROM BOM0001 WHERE ID ='+ IntToStr(cod);
                Buscar_Camio.Prepare;
                Buscar_Camio.Open;
                F_ModulDades.Camions.Locate('ID',Buscar_CamioID.Value,[]);
                F_Camions.BringToFront;
        end;
end;

Esto es en D6 y FB 1.5

Saludos

Josep

[xomen]

Empezado por jafera

A ver si alguien me puede echar un cable.

Ejecuto el código siguiente con un doble clik y cada x veces, no tiene una cadencia fija, se congelan los formularios uno encima del otro tardando más de un minuto en mostrar el resultado.

Código Delphi [-]
 
procedure TF_Parcs.JvDBGrid1DblClick(Sender: TObject);
var cod:Integer;
begin
        cod:= Camions_ParcID.Value;
        if not Assigned(F_Camions) then
        begin
                Buscar_Camio.Close;
                Buscar_Camio.UnPrepare;
                Buscar_Camio.SQL.Text:='SELECT ID FROM BOM0001 WHERE ID ='+ IntToStr(cod);
                Buscar_Camio.Prepare;
                Buscar_Camio.Open;
                F_Camions:=TF_Camions.Create(nil);
                F_ModulDades.Camions.Locate('ID',Buscar_CamioID.Value,[]);
        end
        else
        begin
                Buscar_Camio.Close;
                Buscar_Camio.UnPrepare;
                Buscar_Camio.SQL.Text:='SELECT ID FROM BOM0001 WHERE ID ='+ IntToStr(cod);
                Buscar_Camio.Prepare;
                Buscar_Camio.Open;
                F_ModulDades.Camions.Locate('ID',Buscar_CamioID.Value,[]);
                F_Camions.BringToFront;
        end;
end;

Esto es en D6 y FB 1.5

Saludos

Josep

Si tu base de datos esta muy pesada o tiene muchos registros debe ser por eso que tarda podrías ayudarle un poco
siendo mas especifico en la query o tal vez reindexando la base de datos. revisa tus formas pueda ser que este algo mal programado
si puedes proporcionar mas datos para poder ayudarte. Espero te sirva de algo saludos

[ecfisa]

Hola Josep.

Hace la prueba de este modo:

Código Delphi [-]
procedure TF_Parcs.JvDBGrid1DblClick(Sender: TObject);
begin
  Buscar_Camio.Close;
  Buscar_Camio.SQL.Text:='SELECT ID FROM BOM0001 WHERE ID = :COD');
  Buscar_Camio.ParamByName('COD').AsInteger:= Camions_ParcID.AsInteger;
  Buscar_Camio.Open;
  F_ModulDades.Camions.Locate('ID', Buscar_CamioID.Value, []);
  if not Assigned(F_Camions) then
     F_Camions:=TF_Camions.Create(nil);
  else
    F_Camions.BringToFront;
end;

Saludos.

[roman]

Desde luego, el código es mucho más claro como lo pone ecfisa, aunque no creo que influya mucho en la velocidad. Por otra parte, hay algo muy raro en lo que haces:

Código Delphi [-]
Buscar_Camio.SQL.Text:='SELECT ID FROM BOM0001 WHERE ID = :COD');
Buscar_Camio.ParamByName('COD').AsInteger:= Camions_ParcID.AsInteger;

¿Qué sentido tiene esta consulta? Estás buscando el ID de un registro siendo que ya conoces de antemano el ID (se lo pasas como parámetro). ¡Mejor te ahorras la consulta!

// Saludos

[jafera]

Gracias por las respuestas.

No es un problema de velocidad realmente, lo que me pasa es que de vez en cuando al hacer el doble click se quedan los formularios congelados uno encima del otro y no puedo hacer nada más que esperar a que se acabe el proceso.
He probado con puntos de interrupción y ver que pasa pero no consigo aislar la linea que se bloquea.
La base tiene solo 1500 registros, una nimiedad para un locate.
El campo ID de la tabla está como PK, todo lo demás son consultas normales.
Sigo investigando, aunque cualquier ayudita se agradece.

Saludos

Josep

[ecfisa]

Hola.

En realidad, lo que me llevó a pensar en una posible demora con los forms (y reorganizar el código) fueron las líneas:

Código Delphi [-]
    ...
    F_Camions:=TF_Camions.Create(nil);
    F_ModulDades.Camions.Locate('ID',Buscar_CamioID.Value,[]);
    ...

Donde primero se crea el form y luego se posiciona con Locate, pero viendo ahora que son muy pocos registros, no sé...

Y no había prestado atención a lo que observó roman, tiene razón; la consulta puede omitirse.

Saludos.

[jafera]

Gracias.

Yo habia pensado en lo de la consulta para acotar el locate, pues así lo entendí en alguno de los hilos leidos.

El problema persiste y debe ser en la creación del form o algo así ya que como ha dicho antes se produce esporadicamente y sin un patrón fijo.

Si coloco un punto de interrupción en el doble click pasa por todas las lineas correctamente, no se donde más puedo mirar

Saludos

Josep