Conexiones Firebird, Sql, Oracle
Imports System.Data
Imports System.Data.SqlClient
Imports System.Windows.Forms
Imports FirebirdSql.Data.FirebirdClient
Imports FirebirdSql.Data.Client
ImportsFirebirdSql.Data.Isql
Imports FirebirdSql.Data
Imports System.Data.OleDb
Public Class Conexion
Dim MiConexionSql As SqlConnection
Dim AdaptadorSql As SqlDataAdapter
Dim SeleccionarSql AsSqlCommand
Dim InsertarSql As SqlCommand
Dim ActualizarSql As SqlCommand
Dim EliminarSql As SqlCommand
Dim MiconexionFb As FbConnection
Dim SeleccionarFb As FbCommand
DimAdaptadorFb As FbDataAdapter
Dim MiConexionOrac As OleDbConnection
Dim AdaptadorOrac As OleDbDataAdapter
Dim SeleccionarOrac As OleDbCommand
Dim DSsql As DataSet 'sql
Dim DSfbAs DataSet 'firebird
Dim DSorac As DataSet 'oracle
Public Sub inicializar()
Try
'sql server
MiConexionSql = New SqlConnection()MiConexionSql.ConnectionString = "Data Source=172.24.1.7;Initial Catalog=AnalisisTC;Persist Security Info=True;User ID=INVITADO;Password=InvitadoAvm"
AdaptadorSql = New SqlDataAdapter()SeleccionarSql = New SqlCommand()
InsertarSql = New SqlCommand()
EliminarSql = New SqlCommand()
ActualizarSql = New SqlCommand()
DSsql = NewDataSet()
AdaptadorSql.SelectCommand = SeleccionarSql
AdaptadorSql.InsertCommand = InsertarSql
AdaptadorSql.DeleteCommand = EliminarSqlAdaptadorSql.UpdateCommand = ActualizarSql
SeleccionarSql.Connection = MiConexionSql
InsertarSql.Connection = MiConexionSql
EliminarSql.Connection = MiConexionSqlActualizarSql.Connection = MiConexionSql
'-------------------------------------------------------------
'firebird
MiconexionFb = New FbConnection()...
Regístrate para leer el documento completo.