La vida digital

Imports System.Data.Common
 
Public Class identificacion
'CREO UN DATASET PARA RELLENARLO CON LA INFO DE LA TABLA
Dim dataset As DataSet = New DataSet
 
Private Sub identificacion_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'CREO El OBJETO FACTORIA E INDICO EL PROVEEDOR QUE VOY A USAR
Dim factoria As DbProviderFactory =
DbProviderFactories.GetFactory("System.Data.SqlClient")
 
'CREO EL CONEXIONBUILDER PARA PREPARAR LA CONEXION
Dim parametrosConexion As DbConnectionStringBuilder =
factoria.CreateConnectionStringBuilder
 
'PREPARO LA CADENA DE CONEXION
With parametrosConexion
.Add("Data Source", "localhost")
.Add("Initial Catalog", "unica_db")
.Add("Integrated Security", "SSPI")
End With
 
'CREO EL OBJETO DE CONEXION
Dim conexion As DbConnection = factoria.CreateConnection
 
'ESTABLEZCO LA CADENA DE CONEXION
conexion.ConnectionString = parametrosConexion.ConnectionString
 
'ABRO LA CONEXION
Try
'INTENTO LA CONEXION
conexion.Open()
Catch ex As Exception
'SI FALLA, MUESTRO UN MENSAJE Y CIERRO EL PROGRAMA
MessageBox.Show("Error en la conexión con la base de datos. Si el problema
persiste consulte con el Administrador del sistema", _
"Error en la conexión", MessageBoxButtons.OK,
MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
My.Forms.principal.Close()
Me.Close()
Exit Sub
End Try
 
'PREPARO UN ADAPTADOR PARA OBTENER LA TABLA DE USUARIOS
Dim adaptador As DbDataAdapter = factoria.CreateDataAdapter
 
'CREO UN COMANDO
Dim comando As DbCommand = conexion.CreateCommand
 
'CREO LA CONSULTA
comando.CommandText = "SELECT * FROM tbl_usuarios"
 
'ENLAZO EL ADAPTADOR AL COMANDO
adaptador.SelectCommand = comando
 
'RELLENO EL DATASET
dataset = New DataSet
adaptador.Fill(dataset, "tbl_usuarios")
End Sub
End Class