Para desarrollar verdaderas aplicaciones con acceso a Bases de Datos visual basic dispone de los Objetos ADO pudiendo utilizar las siguientes herramientas:
- El Control ADO.
- Los Objetos ADO.
- 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ú