Hola a todos , tenia algún tiempo sin poner algo por este foro.
Programo en Delphi 7 y con BD SQL , conecto mi aplicación a la BD por medio de ADO Connection y por medio de un ODBC.
Me ha funcionado de maravilla cuando solo me quiero conectar a una BD ya que el ODBC lo conecto a la misma y todo al 100%.
Hoy tengo la necesidad de mostrar un menú de empresas al iniciar mi aplicación y cada empresa es una BD en SQL por lo cual requiero estar conectando el ADO a diferentes BD.
Cuando creo el ODBC no le pongo BD predeterminada y toma por default la BD Master en la propiedad del componente ADO que se llama DefaultDatabase.
Esa propiedad es la que quiero manipular por medio de Codigo al momento de seleccionar la empresa pero no funciona, la verdad es que no lo asigna . les pongo el código que les comente:
Código Delphi
[-]
procedure TFrmPrincipal.RzDBLookupComboBox1Click(Sender: TObject);
begin
if tbllistaempresa.Locate('NOMBRE',RzDBLookupComboBox1.Text,[]) THEN
BEGIN
RzLabel2.Caption:=TblListaempresaAliasBDD.Value;
ADOConnection1.DefaultDatabase:='';
ADOConnection1.DefaultDatabase:=RzLabel2.Caption;
end;
end;
No funciona.
Aunque se que si le asigna la BD pero al correr el query me dice que no existen las tablas involucradas en la consulta.
Alguna recomendación para este tipo de casos?
Gracias de antemano