Multiple conexion a la base de datos
Quisiera saber como hago para trabajar con varias bases de datos, es decir, quiero elegir que el usuario elija con que base de datos quiere trabajar. Muchas gracias.
Te comento es sencillo desde donde yo lo veo , cre un modulo, y
Pga esto
Public conexion As New ADODB.Connection ' la conexion
Public rsCat As New ADODB.Recordset ' defino el nuevo recordset
Sub main()
On Error GoTo etqerror ' si hay error
conexion.Open ("dsn=dsn_prueba;user id = sa;pwd=;")
Form1.Show
Exit Sub
etqerror:
MsgBox "error de Conexion", vbCritical, conexion
End Sub
Si te das cuenta hay un dsn m, pero tu con un select o if anidados puedes crear mas de un dsn y esos dsn los configuras con las distintas bases de dats que necesites, y haces que el usuario se conecte con el dsn que desee o que tu impongas ....es una idea espero qe la puedas cristalizar
Saludos
Andres
Pga esto
Public conexion As New ADODB.Connection ' la conexion
Public rsCat As New ADODB.Recordset ' defino el nuevo recordset
Sub main()
On Error GoTo etqerror ' si hay error
conexion.Open ("dsn=dsn_prueba;user id = sa;pwd=;")
Form1.Show
Exit Sub
etqerror:
MsgBox "error de Conexion", vbCritical, conexion
End Sub
Si te das cuenta hay un dsn m, pero tu con un select o if anidados puedes crear mas de un dsn y esos dsn los configuras con las distintas bases de dats que necesites, y haces que el usuario se conecte con el dsn que desee o que tu impongas ....es una idea espero qe la puedas cristalizar
Saludos
Andres
dsn_variable = "dsn_que desee"
conexion.Open (" & dsn_variable & ";user id = sa;pwd=;")
Mira esto esta mejor asi no pones if ni select si no que reemplzas en el string de la conxion el nombre del dsn que vas a utillizar
Espero que te ayude esta idea
conexion.Open (" & dsn_variable & ";user id = sa;pwd=;")
Mira esto esta mejor asi no pones if ni select si no que reemplzas en el string de la conxion el nombre del dsn que vas a utillizar
Espero que te ayude esta idea