ADO, Conexion a Sql Server

Para desarrollar verdaderas aplicaciones con acceso a Bases de Datos visual basic dispone de los Objetos ADO pudiendo utilizar las siguientes herramientas:

1. El Control ADO.
2. Los Objetos ADO.
3. El DataEnvironment.

Esta entrada abarcara la segunda herramienta Objetos ADO.

lo primero que debemos hacer es activar la referencia a la libreria Microsoft Activex Data Object 2.8 o similar desde el menu Proyecto/Referencias.... y activar la correspondiente casilla.

De esta manera, cuando se cree la instancia a un objeto encontraremos el prefijo ADODB el cual nos permitira utilizar los objetos Ado. acontinuación veremos los objetos ADO.

El Objeto Connection

se utiliza para conectarnos a la base de datos. su propiedad principal es ConnectionString que siginifica cadena de conexión y sirve para indicar la forma de conexión a la base de datos. La cadena de conexión para una autenticacion en SQL Server esta formada básicamente por los siguientes parámetros que van separados por un punto y coma:

• Provider , Se utiliza para indicar el nombre del proveedor de los Datos.
• DataSource , Se utiliza para indicar el nombre del servidor SQL donde se encuentra la base de datos a Conectarse.
• Initial Catalog , Se utiliza para indicar el nombre de las bases de datos a la cual nos queremos conectar.
• User ID , Se utiliza para indicar el nombre del usuario que se conecta a la base de datos.
• Password , Se utiliza para indicar la clave del usuario que esta conectándose a la base de datos.
  

La siguiente cadena de conexión utiliza el proveedor nativo de SQL server para conectarse a la base de Datos:

"Provider=SQLOLEDB.1;Initial Catalog=Empresa;Data Source=FAMILIA;User Id=sa;Password=esparta"

La siguiente cadena de conexión utiliza la autenticación de Windows

"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Empresa;Data Source=FAMILIA".

Método Open

Este Método permite abrir o activar la conexion indicada en la propiedad ConnectionString del objeto Connection.

Dim Cn As New ADODB.Connection
Dim Cadena As String
Cadena = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Empresa;Data Source=FAMILIA"
Cn.ConnectionString = Cadena
Cn.Open

Método Close

Este método permite cerrar la conexión indicada en la propiedad ConnectionString del objeto Connection.

Cn.Close
set Cn= Nothing

para finalizar esta entrada te presento una sencilla conexión a sql server con el método de autenticación de Windows .

el código es el siguiente:

Private Sub CmdIngresar_Click()
On Error GoTo aviso
Dim cn As New ADODB.Connection
Dim cadena As String
cadena = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Empresa;Data Source=FAMILIA"
cn.ConnectionString = cadena
cn.Open
MsgBox "Conexion conforme", vbExclamation + vbOKOnly
Exit Sub
aviso:
MsgBox Err.Description

End Sub

Enviado Por : Luis Ramirez

Lima, Perú