Cadenas de conexion VB.net Con Oracle y SQL Server

Para generar las diferentes cadenas de conexion creamos un modulo de codigo en vb.net dentro del proyecto
ahi incorporamos los siguiente:

Cadena de Conexion vb.net - Oracle con odbc
   Public mstrCadenaConOracle As String
    Public ConexionOracle As New Oracle.DataAccess.Client.OracleConnection
    Public ComandoOracle As New Oracle.DataAccess.Client.OracleCommand
    Public TablaOracle As New DataTable
    Public AdapterOracle As New Oracle.DataAccess.Client.OracleDataAdapter(ComandoOracle)

    Dim InFile As Integer   ' Descriptor para archivo. 
    Dim NextTip, DataBase, Server, User, Pass As String   ' Leer cada sugerencia desde archivo.

    Public Sub ConectarOracle()
         Server = "el nombre de tu servidor o su direccion ip"
        User = "hr"
        Pass = "hr"
        mstrCadenaConOracle = "Data Source=" & Server & ";" & _
                        "User ID=" & User & ";" & _
                        "Password=" & Pass & ";"
      ConexionOracle.ConnectionString = mstrCadenaConOracle
        ComandoOracle.Connection = ConexionOracle
       ConexionOracle.Open()
    End Sub
Cadena de Conexion vb.net - SQL SERVER 2008  con odbc

 Public mstrCadenaCon As String
    Public Conexion As New SqlClient.SqlConnection
    Public Comando As New SqlClient.SqlCommand
    Public Tabla As New DataTable
    Public Adapter As New SqlClient.SqlDataAdapter(Comando)
 
   Dim NextTip, DataBase, Server, User, Pass As String   ' Leer cada sugerencia desde archivo.

    Public Sub Conectar()
        DataBase = "NOMBRE DE TU BASE DE DATOS"
        Server = " NOMBRE DE TU SERVIDOR "
        User = "tu usuario"
        Pass = "tu codigo"
        mstrCadenaCon = "Database=" & DataBase & ";" & "Server=" & Server & ";" & "User=" & User & ";" & "Password=" & Pass
        Conexion.ConnectionString = mstrCadenaCon
        Comando.Connection = Conexion
        Conexion.Open()
    End Sub

Con esto solo nos queda invocar a las funciones cada vez que necesitemos realizar una consulta dentro de nuestro codigo de la siguiente manera

ConectarOracle()
        TablaOracle.Clear()
        TablaOracle = New DataTable
        ComandoOracle.CommandText = "SELECT campo1,campo2 FROM TABLA; "
        AdapterOracle.Fill(TablaOracle)
        ConexionOracle.Close()
        Conectar()







de esta manera vamos a llenar una tabla sql con los resultados del select que estamos haciendo
O solo para ejecutar el comando que queremos realizarlo ya sea para un insert o un delete usamos

Conectar()
Comando2.CommandText = "update TABLA set campo1='" & TablaOracle.Rows(1).Item(0) & "' campo2= '" & TablaOracle.Rows(2).Item(1) & "' where '" & TablaOracle.Rows(2).Item(0) & "' = '" & Tabla.Rows(1).Item(0) & "' "
Comando2.ExecuteReader()
Conexion.Close()

 


La sintaxis va a ser igual para cualquiera de los dos conexiones lo que va a variar son las variables que voy a utilizar aqui utilizamos las variables de oracle en el primer caso y las de sql server en el segundo.

Saludos.