Seleccionar BD access

[analoyra]

Hola, tengo un problema que no logro darme cuenta como resolverlo, yo ingreso a un formulario que debo elegir una empresa de las que hay en una lista o darle de alta y que me cree una nueva BD, segun la empresa elegida es la BD que uso, y ahi es donde no se como hacer una conexion a la bd dependiendo de la empresa elegida
Se agradece cualquier sugerencia, y desde ya muchas gracias

[David]

Iniciado por analoyra

Hola, tengo un problema que no logro darme cuenta como resolverlo, yo ingreso a un formulario que debo elegir una empresa de las que hay en una lista o darle de alta y que me cree una nueva BD, segun la empresa elegida es la BD que uso, y ahi es donde no se como hacer una conexion a la bd dependiendo de la empresa elegida
Se agradece cualquier sugerencia, y desde ya muchas gracias

Pues bien, en tu conexión simplemente sustituye la ruta de la BD por la BD seleccionada...

[analoyra]

ok, estaria bien si hago una bd apararte con la empresa y la ruta? y en el form tengo una variable que tome esa ruta?? si estaria bien.... la ruta la guardo como string en access?
gracias por la respuesta!

[David]

Iniciado por analoyra

ok, estaria bien si hago una bd apararte con la empresa y la ruta? y en el form tengo una variable que tome esa ruta?? si estaria bien.... la ruta la guardo como string en access?
gracias por la respuesta!

Sí, puedes guardarla como string en access, o simplemente tomarla según sea el nombre de la empresa, en ese caso la base de datos la crearías de acuerdo al nombre de empresa...

[analoyra]

Y como haria para tomarla según sea el nombre de la empresa, en ese caso la base de datos la crearías de acuerdo al nombre de empresa??
en ese caso no me doy idea y seria la mejor solucion para mi caso.
gracias por la ayuda

[David]

Iniciado por analoyra

Y como haria para tomarla según sea el nombre de la empresa, en ese caso la base de datos la crearías de acuerdo al nombre de empresa??
en ese caso no me doy idea y seria la mejor solucion para mi caso.
gracias por la ayuda

Pues sí, crea la base de datos según el nombre de la empresa y conecta colocando:

Código:

"C:\Ruta\" & Lista.List(List.ListIndex) & ".mdb"

[analoyra]

muchas gracias, otra cosa, a ver si se puede.... yo creo una empresa y tengo que asignarle la BD de las mismas empresas anteriores pero en blanco, para eso, por programacion copio y pego un BD en blanco que tengo guardada, entonces la podria renombrar a esa BD?
gracias otra vez!

[David]

Iniciado por analoyra

muchas gracias, otra cosa, a ver si se puede.... yo creo una empresa y tengo que asignarle la BD de las mismas empresas anteriores pero en blanco, para eso, por programacion copio y pego un BD en blanco que tengo guardada, entonces la podria renombrar a esa BD?
gracias otra vez!

¿Cuál es el código que utilizas para copiar? En el mismo proceso de copiado ya puedes cambiarle el nombre. También, no hay problema en cambiarlo después..

[analoyra]

todavia no defini ninguna sentencia, como voy aprendiendo el Basic a medida q avanzo con el trabajo practico voy investigando, lo que encontre fue algo como esto

With objRpt
.FormulaFields.GetItemByName("empresa").Text = "'" & gstrEmpresa & "'"

Si hay algo mejor... Bienvenido!

[David]

No entendí tu código, pero para copiar el archivo (si ya tienes uno en blanco) simplemente utiliza FileCopy:
FileCopy "C:\archivo_origen.mdb", "C:\archivo_destino.mdb"

[analoyra]

Ahh!! Ok, ese es mucho mejor, el que te mostre loencontre por ahi en la red, tampoco me convencia.... pero bueno....
y en archivo destino directamente le pongo el nombre que yo quiero verdad?
y ver si entendi bien.... yo guardo en la bd por ejemplo una carpeta llamada empresa\empresa.mdb y en mi libreria
Dim SPath As String
SPath = App.Path & ' y aca una variable con la ruta de la BD
muchas gracias por la ayuda David el Grande!

[David]

Iniciado por analoyra

Ahh!! Ok, ese es mucho mejor, el que te mostre loencontre por ahi en la red, tampoco me convencia.... pero bueno....
y en archivo destino directamente le pongo el nombre que yo quiero verdad?
y ver si entendi bien.... yo guardo en la bd por ejemplo una carpeta llamada empresa\empresa.mdb y en mi libreria
Dim SPath As String
SPath = App.Path & ' y aca una variable con la ruta de la BD
muchas gracias por la ayuda David el Grande!

Exactamente, puedes elegir el nombre del archivo de destino. La solución que propones es correcta, solo cuidado con que no se te olvide la contrabarra (\) después del App.Path...

Saludos

[analoyra]

por lo menos no estaba mal rumbeada!
Gracias!!! por toda tu ayuda!!