Cambiar Base de Datos

[Eduard23]

gracias casimiro por tu pronta respuesta si tengo una base de datos por cada empresa y dicho de otro modo no se si sea una locura pero se podria cambiar en el connectiostring de componente adoquery la base de datos por una variable ????
Ejemplo
Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=MySQL;DESCRIPTION=Conector MySQL;SERVER=localhost;UID=root;DATABASE=bd;PORT=3306"

por este otro
Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=MySQL;DESCRIPTION=Conector MySQL;SERVER=localhost;UID=root;DATABASE=VARIABLE;PORT=3306"

Solo Necesitaria Cambiar la parte DATABASE= variable
Gracias

[[duilioisola]]

Se me ocurre utilizar format() para esto.
format() es muy potente para hacer cosas como la que quieres. Tiene muchas opciones.

Código Delphi [-]
// Como ejemplo voy a utilizar dos variables para generar el ConnectioString:
NombreBaseDeDatos := DameBaseEmpresa();
PuertoBaseDeDatos := 3306;
[...]
// format() reemplaza 
//    %s por el valor de una variable tipo string
//    %d por el valor de una variable tipo integer
//    y muchas otras opciones.
ConnectionString := format('Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=MySQL;DESCRIPTION=Conector MySQL;SERVER=localhost;UID=root;DATABASE=&s;PORT=%d"', [NombreBaseDeDatos, PuertoBaseDeDatos]);
[...]

[Eduard23]

gracias duilioisola probe como me sugeristes pero arroja el siguiente error.

format of the initialization string does not conform to Ole DB specification.
si tienes alguna otra idea seria genial muchisimas gracias

[Casimiro Notevi]

¿Y el código que usas?

[[duilioisola]]

Para averiguar cuál es el problema, mira qué es lo que genera el format(...).
Seguramente lo que contienen las variables NombreBaseDeDatos y PuertoBaseDeDatos no es lo que espera el ConnectionString.
Fíjate que DSN=... tiene que estar todo entre comillas dobles.

Código Delphi [-]
// Como ejemplo voy a utilizar dos variables para generar el ConnectioString:
NombreBaseDeDatos := DameBaseEmpresa();
PuertoBaseDeDatos := 3306;
[...]
// format() reemplaza 
//    %s por el valor de una variable tipo string
//    %d por el valor de una variable tipo integer
//    y muchas otras opciones.

// Para debugar muestro el resultado del format antes de aplicarlo a ConnectionString
s := format('Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=MySQL;DESCRIPTION=Conector MySQL;SERVER=localhost;UID=root;DATABASE=&s;PORT=%d"', [NombreBaseDeDatos, PuertoBaseDeDatos]);
ShowMessage(s);

ConnectionString := s;
[...]

[Eduard23]

gracias duilioisola creo voy a tener que cambiar la conexion porque la estoy haciendo directamente en el componente lo voy a cambiar para hacerlo por codigo
estoy en esa etapa de aprendizaje, usare tu sugerencia. y les estoy comentando
muchisimas gracias