Cómo tener acceso a múltiples fuentes de datos

Tener el conocimiento sobre cómo acceder a múltiples fuentes de datos utilizando Microsoft Visual Basic.NET puede hacer su aplicación más dinámica. Puede abrir varias conexiones de base de datos para enviar comandos o datos de la consulta de una tabla de base de datos. En este ejemplo se creará una conexión de Microsoft SQL Server mediante ActiveX Data Objects (ADO) para consultar una tabla de base de datos. También hará una conexión OLEDB a una base de datos Microsoft Access para crear una nueva tabla. Usted puede utilizar ADO y objetos de conexiones de enlace e integración (OLEDB) en múltiples lenguajes de programación. En este ejemplo va a utilizar Microsoft Visual Basic.NET.

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", a continuación, 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". 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."

3 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

4 Escriba lo siguiente en "Button1" para declarar las variables de conexión OLEDB:

Dim oleDBConn Como OleDbConnection

oleDBComm tenue Como OleDbCommand

Dim como secuencia sqlstr

5 Escriba lo siguiente en "Button1" para declarar las variables de conexión ADO:

Dim adoCon As New ADODB.Connection

Dim AdoRst como nuevo ADODB.Recordset

Dim como secuencia adoResult

6 Escribe lo siguiente para crear una nueva conexión a la base de datos Neptuno:

oleDBConn = nuevo OleDbConnection _

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

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

7 Escribe lo siguiente para crear una nueva conexión ADO a la base de datos de SQL Server:

AdoCon.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;"

AdoCon.Open ()

8 Escribe lo siguiente para crear una nueva tabla en la base de datos Northwind:

Sqlstr = "CREATE TABLE EstaTabla" _

& "(Nombre CHAR, Apellido CHAR);"

oleDBComm = New OleDbCommand (sqlstr, oleDBConn)

oleDBComm.ExecuteNonQuery ()

oleDBConn.Close ()

9 Escribe lo siguiente para consultar una tabla en el servidor SQL:

AdoRst.ActiveConnection = adoCon

AdoRst = AdoCon.Execute ( "SELECT TableName.FieldName DE nombreTabla;")

Escriba lo siguiente para recorrer los resultados de la consulta y mostrarlos a través de un cuadro de mensaje:

Mientras (no AdoRst.EOF)

adoResult = AdoRst.Fields ( "fieldName"). Valor

MsgBox (adoResult)

AdoRst.MoveNext ()

Mientras End

AdoCon.Close ()

AdoCon = Nada

Pulse la tecla "F5" para ejecutar el programa y haga clic en "Button1".