Tener el conocimiento sobre la forma de acceder a múltiples fuentes de datos utilizando Microsoft Visual Basic.NET puede hacer que su aplicación sea más dinámico. Puede abrir varias conexiones de base de datos para enviar comandos o consultar datos de una tabla de base de datos. En este ejemplo se creará una conexión a Microsoft SQL Server mediante ActiveX Data Objects ( ADO) para consultar una tabla de base de datos . También realizar una conexión OLEDB para una base de datos Microsoft Access para crear una nueva tabla. Usted puede utilizar ADO y Object Linking and Embedding ( OLE DB ) conexiones en varios lenguajes de programación. En este ejemplo, podrá usar Microsoft Visual Basic.NET . Cosas que necesitará
Microsoft Visual Basic Express Hotel Microsoft SQL Server base de datos Northwind

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 ", 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 seleccionar " Propiedades . " Haga clic en " Referencias " y luego seleccionar " Añadir ". Seleccione " COM " y haga clic en " ActiveX Data Objects 3

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
4

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

oleDBConn As OleDbConnection

Dim oleDBComm Como OleDbCommand

sqlstr dévil como secuencia
5

Tipo lo siguiente bajo " Button1_Click " para declarar las variables de conexión ADO :

adoCon Dim As New ADODB.Connection

AdoRst Dim As New ADODB.Recordset Dim

adoResult As String
6

Escriba el siguiente para crear una nueva conexión a la base de datos Northwind :

oleDBConn = New OleDbConnection _

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

Edit" Fuente = C : \\. Northwind 2007.accdb "y escriba la ruta de acceso a la base de datos de acceso

7

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

AdoCon.ConnectionString = " Provider = SQLNCLI10 ; " _

y "Servidor = el servidor nombre, "_

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

&" Integrated Security = SSPI ; "_

&" DataTypeCompatibility = 80 ; "_

y "Conexión MARS = False; "

AdoCon.Open ()
8

Escriba el siguiente para crear una nueva tabla en la base de datos Northwind :

sqlstr = " CREATE TABLE ThisTable " _

& " ( CHAR Nombre , Apellidos CHAR ),"

oleDBComm = New OleDbCommand ( sqlstr , oleDBConn )

oleDBComm . ExecuteNonQuery ()

oleDBConn.Close ()
9

Escriba lo siguiente para consultar una tabla en el servidor SQL :

AdoRst.ActiveConnection = adoCon < br >

AdoRst = AdoCon.Execute ( " TableName.FieldName SELECT FROM tableName ;")

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

Mientras (No AdoRst.EOF )

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

MsgBox ( adoResult )

AdoRst.MoveNext ()
< p > End While

AdoCon.Close ()

adoCon = Nothing

Press "F5 " para ejecutar el programa y luego haga clic en " Button1 ".