Progress Bar para conectarse a una BD Remota
hola que tal.
Pues aqui de nuevo.
Tengo un codigo para conectarme a una BD de access, todo esta bien, solo que dependiendo de lo lejos de la base de datos (es una red grande), se tarda cierto tiempo, no es mucho, solo quisiera que el tiempo que durara en conectarse se llenara una barra de progreso este es el codigo que tengo, esta en un evento change de un combobox, donde selecciono la ubicacion de la BD a la cual conectarme:
procedure TF_Asistencia.ComboBox1Change(Sender: TObject);
begin
Case ComboBox1.ItemIndex Of
0: begin
try
AC.Close;
AC.ConnectionString:=Memo1.lines[0]+'\\(Direccion IP)\BDDatos\'+Memo1.Lines[1];
AC.Connected:=True;
except
ShowMessage('Error En La Conexión');
end
end;
no se preocupen opr lo del conectionstrig si funciona JEJE
|