Ver Mensaje Individual
  #4  
Antiguo 24-11-2012
Avatar de anubis
anubis anubis is offline
Miembro
 
Registrado: mar 2007
Posts: 863
Reputación: 18
anubis Va por buen camino
Gracias por darme un poco de esperanza.

Vereis, la conexion la hago a traves de un tunnel ssh.
Con un administrador, como el fdbmaestro, al intentar ver los datos, por ejemplo, de la tabla con los blob, me tarda un par de minutos, con flamerobin, tarda menos, pero con la aplicacion que tengo (que son dos), con una tarda en abrir 15 min y con la otra casi nada.

La conexión es esta:

Código Delphi [-]
zconnection1.Protocol:='firebird-2.5';
 try
 zconnection1.Connected:=true;
 except
 showmessage('conexión imposible. Verifique su conexión');
 end;
zquery3.connection:=zconnection1;
zquery2.Connection:=zconnection1;
zquery1.Connection:=zconnection1;
zquery4.connection:=zconnection1;

zquery2.SQL.text:='select * from tbeneficiario';
zquery3.SQL.Text:='select * from tcuentas';
zquery1.sql.text:='select * from tcheques';
zquery4.sql.text:='select * from facturas';
 zquery3.Active:=true;
 zquery2.Active:=true;
 zquery4.active:=true;
 zquery1.Active:=true;
 datasource1.DataSet:=zquery1;
 datasource2.dataset:=zquery2;
 datasource3.dataset:=zquery3;
 datasource4.dataset:=zquery4;
 dbgrid1.DataSource:=datasource1;
 dblookupcombobox1.ListSource:=datasource3;
 dblookupcombobox1.KeyField:='clave';
 dblookupcombobox1.ListField:='cuenta';

 dblookupcombobox2.ListSource:=datasource2;
 dblookupcombobox2.KeyField:='claveb';
 dblookupcombobox2.ListField:='calculado';
 dblookupcombobox1.itemindex:=0;

 dblookupcombobox2.Enabled:=false;


 FILTRO1:=1;
 FILTRAR;
 FECHAS;
 COMBOBOX1.ItemIndex:=MES-1;
 SPINEDIT1.Value:=ANO;
 checkbox2.Checked:=true;
 cambiar;
 ORDEN:=' ASC';

end;

Código Delphi [-]
procedure tform1.leerconfiguracion;
 var
   archivoini:tinifile;
   basededatos:string;
   servidor:string;
   puerto:string;
begin
archivoini:=tinifile.create(ExtractFilePath( Application.ExeName)+'path.ini');
basededatos:=archivoini.readstring('ruta','path','val');
puerto:=archivoini.readstring('ruta','puerto','val');
servidor:=archivoini.readstring('ruta','server','val');
zconnection1.Database:=basededatos;
zconnection1.HostName:=servidor;
zconnection1.Port:=strtoint(puerto);
 archivoini.Free;
end;

La base de datos tiene 2000 registros, y ocupa 34 mb.

No se que mas datos se necesitan.

Gracias de nuevo de verdad
Responder Con Cita