Conocer cómo acceder a interfaces OLE y ActiveX puede darle más poder sobre la forma de recuperar los 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. Establezca una conexión Microsoft SQL Server mediante ActiveX Data Objects ( ADO) para consultar una tabla de base de datos . También hacer 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, usted va a usar. NET Visual Basic . Cosas que necesitará
Microsoft Visual Basic Express Hotel Microsoft SQL Server
Microsoft Office Access base de datos
Ver Más instrucciones
1

Abra Microsoft Visual Basic Express y seleccione " 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 la formulario. Haga clic en el menú "Proyecto " y seleccionar " Propiedades . "
3

Haga clic en " Referencias" y seleccione "Agregar ". Seleccione " COM " y haga clic en " ActiveX Data Objects 4

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

Imports ADODB
5

Copia y pega el siguiente bajo " Button1_Click " para crear una conexión OLE y crear una tabla en una base de datos :

OLEConn As OleDbConnection

OLECmd As OleDbCommand

strSQL Dim As String < br >

OLEConn = New OleDbConnection _

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

OLEConn.Open ( )

strSQL = " CREATE TABLE ThisTable " _

& " ( CHAR Nombre , Apellidos CHAR ),"

OLECmd = New OleDbCommand ( strSQL , OLEConn )

OLECmd.ExecuteNonQuery ()

OLEConn.Close ()

Edit " Fuente = C: \\ Northwind 2007.accdb ." y escriba la ruta y el nombre de su base de datos Access < br > Página 6

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

ADOConn Dim As New ADODB.Connection
< p> ADORst Dim As New ADODB.Recordset

ADORslt dévil como secuencia

ADOConn.ConnectionString = " Provider = SQLNCLI10 ; " _

y " servidor = nombre del servidor ; "_

y " Database = el nombre de base de datos; "_

&" Integrated Security = SSPI ; "_

&" DataTypeCompatibility = 80 ; "_

& " MARS conexión = False; "

ADOConn.Open ()

ADORst.ActiveConnection = ADOConn

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

bien (No ADORst.EOF )

ADORslt = ADORst.Fields ( " fieldName " ) Valor

MsgBox ( ADORslt )
< p> ADORst.MoveNext ()

End While

ADOConn.Close ()

ADOConn = Nothing