Visual Basic.NET - CONEXION DEFERENTES TIPO DE BASE DE DATOS

 
Vista:
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

CONEXION DEFERENTES TIPO DE BASE DE DATOS

Publicado por melqui (242 intervenciones) el 05/09/2022 20:38:40
hola chicos, necesito una ayuda,
estoy intentando una conexion de 3 tipo de base de datos

mysql, sql, oracle, mas necesito que esa conexion sea definido por el provider
ejemplo
si el provider es import system.data.sqlcient, ira a definir que se conect por el sql, y asi sucesivamente.
alguna idea que pueda ayudar?
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

CONEXION DEFERENTES TIPO DE BASE DE DATOS

Publicado por Raúl Guillermo Mejía Tenorio (31 intervenciones) el 05/09/2022 21:05:09
Buenas tardes Melqui.

Leí tu mensaje y lo primero que se me vino a la mente es que en el formulario inicial debería haber un combobox con los tres registros de los providers y de esa manera seleccionar la conexión que deses usar.

Saludos desde México.
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 Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

CONEXION DEFERENTES TIPO DE BASE DE DATOS

Publicado por Phil Rob (1554 intervenciones) el 05/09/2022 21:26:25
Hola Melqui,

En tus códigos, al lugar de usar OleDBAdapter, o SQLAdapter, o MySqlAdapter, …, OleCommand, o SQLCommand, …, utilizar IDbConnection, IDbCommand, IDbAdapter, IDbDataReader, …

Es como este :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
' Escribir todos Imports necesarios
Imports System.Data.Odbc
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.Data.OracleClient
' …
' Declarar todas herramientas necesarias
Dim MiConnexion As IDbConnection
Dim MiComando As IDbCommand
Dim MiReader As IDataReader
Dim MiAdapter As IDbDataAdapter
' …
Dim TipoDB As Integer  ' segun los casos…
Select Case TipoDB
Case 1  ' ODBC
    MiConnexion = New OdbcConnection
    MiComando = New OdbcCommand
    MiConnexion.ConnectionString = "DSN=TestAccess;"  ‘ es ejemplo
' …
 MiReader …
' …
 MiAdapter …
Case 2  ' OLEDB Access 2007
    MiConnexion = New OleDbConnection
    MiComando = New OleDbCommand
    Dim NombreDB As String = "X:\MesDonnees\MaBaseAccess.mdb"
    MiConnexion.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & NombreDB & ";"
' …
' …
Case 3  ' SQL Server
    MiConnexion = New SqlConnection
    MiComando = New SqlCommand
    MiConnexion.ConnectionString = "Data Source=MonServeur; Initial Catalog=MaBaseSQL;Integrated Security=True;"
' …
' …
Case 4  ' Oracle
    MiConnexion = New OracleConnection
    MaCommande = New OracleCommand
    ' MiConnexion.ConnectionString =  …
' …
 
End Select
 
' … Ejemplo
MiConnexion.Open()
MiComando = MiConnexion.CreateCommand()
' …

Espero te dar buena idea …
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