lentitud en conexion remota con bases de datos

[Casimiro Noteví]

Coincido con Julián, una cosa es que en lugar de una décima de segundo, ahora tarde 2 segundos. Pero un cuarto de hora para conectar es que algo está muy mal

[anubis]

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

[Casimiro Noteví]

Primera regla: nunca jamás hagas burradas del tipo 'select * from ...'

zquery2.SQL.text:='select * from tbeneficiario'; 
zquery3.SQL.Text:='select * from tcuentas'; 
zquery1.sql.text:='select * from tcheques'; 
zquery4.sql.text:='select * from facturas';

[anubis]

gracias amigo casimiro.

Si, se que eso recoge todos los registros. Pero eso lo uso cuando quiero ver todos los registros.

Llamame burro o asno, pero siempre habia usado eso asi incluso para consultas.

Código Delphi [-]
procedure TForm1.filtrar;
begin
zquery1.close;
ZQUERY1.sql.clear;
ZQUERY1.SQL.Text:='select sum(cmonto) as suma11 FROM tcheques where ccuenta=:cuenta2';
zquery1.ParamByName('cuenta2').asinteger:=filtro1;
ZQUERY1.active:=true;
LABEL2.CAPTION:=FloatToStrF((zquery1.Fieldbyname('suma11').asfloat),ffcurrency,8,2);
label2.repaint;
ZQUERY1.SQL.Clear;
ZQUERY1.SQL.TEXT:='select * from tcheques where ccuenta=:cuenta2';
zquery1.ParamByName('cuenta2').asinteger:=filtro1;
zquery1.active:=true;
end;

Gracias de verdad.

[Casimiro Noteví]

Hombre, no te llamo burro a ti, lo que digo es que hacer eso es una barbaridad/burrada.
Y si tienes costumbre de hacerlo, pues es mala costumbre, está claro.
Resumiendo: ¿necesitas traerte todos los campos y todos los registros?

[anubis]

No te preocupes, si son burrada soy burro si no hago las cosas como se deben sino uno no aprende.

De entrada si uso esa sentencia es porque hay que asignarle al query la tabla que vas a usar.
y la otra de consultas es para filtrar segun lo que me conviene y luego se la vuelvo a aplicar con * por si tengo que aplicar otra consulta y no me la aplique solo con los registros resultantes de la consulta anterior.

Si no se debe hacer asi, si me das un ligero apunte a ver si me aclaro, porque no se trata de que las cosas funcionen, sino de que funcionen aplicando las reglas como deben de ser.

gracias de nuevo

Esto no es lo que se pone para asignar al inicio?.

Código Delphi [-]
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;

[Casimiro Noteví]

Empezado por anubis

Esto no es lo que se pone para asignar al inicio?.

Bueno, no.
Quiero decir lo que he preguntado antes: ¿necesitas para algo traerte todos los campos de todos los registros de todas esas tablas?