Cómo acceder a OLE y ActiveX

Saber cómo acceder a las interfaces OLE y ActiveX le puede dar más poder sobre la manera de recuperar datos de una variedad de fuentes. Un objeto OLE también se conoce comúnmente como un control ActiveX. ActiveX es en realidad otro nombre para un objeto OLE. Realizar una conexión de Microsoft SQL Server mediante ActiveX Data Objects (ADO) para consultar una tabla de base de datos. También hacen una conexión OLEDB a una base de datos Microsoft Access para crear una nueva tabla. Ambos de estos objetos se puede utilizar en múltiples lenguajes de programación, pero en este ejemplo que va a utilizar .NET Visual Basic.

Instrucciones

1 Abra Microsoft Visual Basic Express y seleccionar "Nuevo proyecto ..." en el panel izquierdo de la pantalla. Haga clic en "Visual Basic" en "Plantillas instaladas" y haga doble clic en "Aplicación de Windows Forms".

2 Haga clic en el panel "Herramientas" y haga doble clic en "botón" para añadir un nuevo botón a su formulario. Haga clic en el menú "Proyecto" y seleccione "<proyecto> Propiedades".

3 Haga clic en "Referencias" y luego seleccionar "Añadir". Seleccione "COM" y haga clic en "Microsoft ActiveX Data Objects <número de versión> Biblioteca." Haga clic en Aceptar." La adición de estas referencias le dará acceso a estos dos objetos.

4 Haga doble clic en "Button1" para abrir el módulo "Form1.vb". Escriba lo siguiente en la primera línea de arriba "Public Class Form1":

Imports System.Data.OleDb

Las importaciones de ADODB

5 Copiar y pegar el siguiente en "Button1" para crear una conexión OLE y crear una tabla en una base de datos de acceso:

Dim OLEConn Como OleDbConnection

Dim OLECmd As OleDbCommand

Dim como secuencia strSQL

OLEConn = nuevo OleDbConnection _

( "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = C: \ Neptuno 2007.accdb;")

OLEConn.Open ()

strSQL = "CREATE TABLE EstaTabla" _

& "(Nombre CHAR, Apellido CHAR);"

OLECmd = New OleDbCommand (strSQL, OLEConn)

OLECmd.ExecuteNonQuery ()

OLEConn.Close ()

Editar "Fuente = C: \ Neptuno 2007.accdb" y escriba la ruta y el nombre de su base de datos Access.

6 Copiar y pegar en la siguiente línea del código siguiente para crear una conexión ADO a un servidor SQL Server y consultar una tabla de base de datos:

Dim ADOConn As New ADODB.Connection

Dim ADORst As New ADODB.Recordset

Dim como secuencia ADORslt

ADOConn.ConnectionString = "Provider = SQLNCLI10;" _

Y "Servidor = el nombre del servidor;" _

Y "Base de datos = el nombre de la base de datos"; _

& "Integrated Security = SSPI;" _

& "DataTypeCompatibility = 80;" _

Y "Conexión MARS = false;"

ADOConn.Open ()

ADORst.ActiveConnection = ADOConn

ADORst = ADOConn.Execute ( "SELECT TableName.FieldName DE nombreTabla;")

Mientras (no ADORst.EOF)

ADORslt = ADORst.Fields ( "fieldName"). Valor

MsgBox (ADORslt)

ADORst.MoveNext ()

Mientras End

ADOConn.Close ()

ADOConn = nada