Visual Basic.NET - varias bases de datos

 
Vista:
Imágen de perfil de edgardo
Val: 54
Ha aumentado su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

varias bases de datos

Publicado por edgardo (17 intervenciones) el 24/10/2020 00:16:03
Hola, la pregunta es: Como puedo abrir 2 bases de datos en access para que trabajen en el mismo proyecto. Yo lo hice tomando dos conexiones diferentes y me abre la primera pero no la segunda.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Module ConeccionBD
    Public CaminodeBD As String = My.Computer.FileSystem.ReadAllText("NGSSystem.txt")
    Public StrBD As String = "provider = microsoft.ACE.OLEDB.12.0;data source = " & CaminodeBD
    Public conectar As New OleDbConnection(StrBD)
    '----------------------------
    Sub ConectarBD()
        If conectar.State = ConnectionState.Open Then
        Else
            conectar.Open()
 
        End If
    End Sub
    '--------------------------------------------------------------------------------------
    Public CaminodeBD2 As String = My.Computer.FileSystem.ReadAllText("SisLocal.txt")
    Public StrBD2 As String = "provider = microsoft.ACE.OLEDB.12.0;data source = " & CaminodeBD2
    Public conectar2 As New OleDbConnection(StrBD2)
 
    Sub ConectarBD2()
        If conectar2.State = ConnectionState.Open Then
        Else
            conectar2.Open()
 
        End If
    End Sub
 
 
    Sub DesconectarBD()
        conectar.Close()
    End Sub
 
End Module
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de melqui
Val: 643
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

varias bases de datos

Publicado por melqui (201 intervenciones) el 24/10/2020 01:08:34
asu, esta dificil de entender tu codigo la verdad [jejeje]
mas creo que necesitas de una practica mejor mas vamos ver si consigo ayudar vea se funciona
en tu modulo haga asi

1
2
3
4
5
6
Public Function Conexao_Banco_Dados_1() As OleDbConnection
    Dim StrCaminhoConexo As String
  StrCaminhoConexo = " aqui colocas la ruta de tu primera base de datos"
 
       Return New OleDbConnection(StrCaminhoConexo)
    End Function


1
2
3
4
5
6
Public Function Conexao_Banco_Dados_2() As OleDbConnection
    Dim StrCaminhoConexo As String
  StrCaminhoConexo = " aqui colocas la ruta de tu segunda base de datos"
 
       Return New OleDbConnection(StrCaminhoConexo)
    End Function


en tu form declare asi

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
public sub cargar_datos_1
Using cn As OleDbConnection= Conexao_Banco_Dados_1
            Try
                cn.Open()
                Dim StrSql As String = " select * from tabla  '"
                cmd = New oledbCommand(StrSql, cn)
                            Dim da As New oledbDataAdapter(cmd)
                da.Fill(dt)
               datagrid_1.datasource = dt
            Catch ex As Exception
                MsgBox(ex, MsgBoxStyle.Critical, "melqui serrano")
                '              Finally
                cn.Close()
            End Try
 
 
        End Using
end sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
public sub cargar_datos_2
Using cn As OleDbConnection= Conexao_Banco_Dados_2
            Try
                cn.Open()
                Dim StrSql As String = " select * from tabla  '"
                cmd = New oledbCommand(StrSql, cn)
                            Dim da As New oledbDataAdapter(cmd)
                da.Fill(dt)
               datagrid_2.datasource = dt
            Catch ex As Exception
                MsgBox(ex, MsgBoxStyle.Critical, "melqui serrano")
                '              Finally
                cn.Close()
            End Try
 
 
        End Using
end sub

eso es todo, espero que sea de grande ayuda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de edgardo
Val: 54
Ha aumentado su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

varias bases de datos

Publicado por edgardo (17 intervenciones) el 25/10/2020 23:26:47
Gracias por tu respuesta, ahora lo voy a probar, y otra pregunta conviene abrir una bd o dos y tenerlas siempre abiertas en toda la solución o abrir y cerrar por form?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de melqui
Val: 643
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

varias bases de datos

Publicado por melqui (201 intervenciones) el 26/10/2020 04:47:51
tienes que analisar, no se cual es el objetivo de tener 2 base de datos, no se cual es la regla d enegocio.
en si, mas en mi punto de vista proprio, siempre tienes que mantenerla cerrada la base de datos eso evitas grandes problemas de conexion y de invasion.
cuando usas consultas, insert, update (CRUD) solamente la abres y cierras, ahora para consulta principalmente te recomiendo trabajar siempre con tablas virtuales asi evitas muchos retornos a la base de datos una vez cargada en la memoria apenas trabajas en ella.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de edgardo
Val: 54
Ha aumentado su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

varias bases de datos

Publicado por edgardo (17 intervenciones) el 26/10/2020 20:41:00
y como es el tema de trabajar con tablas virtuales ? no entiendo...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de melqui
Val: 643
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

varias bases de datos

Publicado por melqui (201 intervenciones) el 26/10/2020 20:54:38
da una busqueda sobre tablas temporarias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar