Conexion a dos bases de datos distintas
Publicado por Emmanuel Gonzalez (1 intervención) el 17/04/2020 00:42:21
Se puede realizar una conexión y consulta a una base de datos pendiendo de una variable, es decir
Si la variable dice "Access" haga a consulta en la base de datos access y si la variable dice "SQL_Server" haga la consulta en SQL Server
Que tendría que modificar?
Si la variable dice "Access" haga a consulta en la base de datos access y si la variable dice "SQL_Server" haga la consulta en SQL Server
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
Friend Sub Verificar_Prestamos_por_el_Nuemro()
Dim DA As OleDbDataAdapter
Dim DS As DataSet
Dim lista As Byte
Try
Dim conexion As New OleDbConnection(RutaPublica)
conexion.Open()
SQL = "SELECT * FROM TB_025_Maestro_de_Prestamo WHERE Maestro_de_Prestamos_No = '" & TxtNumero_de_Prestamo.Text & "'"
DA = New OleDbDataAdapter(SQL, conexion)
DS = New DataSetDA.Fill(DS, "TB_025_Maestro_de_Prestamo")
lista = DS.Tables("TB_025_Maestro_de_Prestamo").Rows.Count
TxtNumero_de_Prestamo.Text = Format(CInt(DS.Tables("TB_025_Maestro_de_Prestamo").Rows(0).Item("Maestro_de_Prestamos_Sucursal")), "000") & "-" & Format(CInt(DS.Tables("TB_025_Maestro_de_Prestamo").Rows(0).Item("Maestro_de_Prestamos_No")), "000000")
Lbl_Codigo_Prestamo.Text = DS.Tables("TB_025_Maestro_de_Prestamo").Rows(0).Item("Maestro_de_Prestamos_No")
Lbl_Codigo_Cliente.Text = DS.Tables("TB_025_Maestro_de_Prestamo").Rows(0).Item("Maestro_de_Prestamos_Codigo_Cliente")
Catch ex As Exception
MsgBox("No se pudo Registrar los datos. " & ex.Message, MsgBoxStyle.Critical, "Error")
End Try
Call Bsucar_Nombre_y_Cedula()
End Sub
Que tendría que modificar?
Valora esta pregunta
0