Tener los conocimientos necesarios para crear y utilizar una conexión ADO a SQL Server le puede ahorrar tiempo cuando necesite consultar datos de una base de datos . SQL Server es un sistema de gestión de base de datos relacional utilizada para crear grandes bases de datos disponibles para múltiples usuarios en múltiples ubicaciones. Usted puede utilizar conexiones de ADO en varios lenguajes de programación , este ejemplo utiliza Microsoft Visual Basic.NET . VB.NET es un lenguaje de programación orientado a objetos que es relativamente fácil de aprender y usar. Cosas que necesitará
Microsoft Visual Basic Express Hotel Microsoft SQL Server
Mostrar más instrucciones
1

Abra Microsoft Visual C # Express y seleccione "Nuevo proyecto ... " en el panel izquierdo de la pantalla. Haga clic en " Visual Basic " en " Plantillas instaladas " doble -click " de aplicaciones 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 seleccione " Agregar " . Seleccione " COM " y pulse " " 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 ADODB
4

Escriba lo siguiente para declarar las variables abajo " Button1_Click ":
< p > con Dim As New ADODB.Connection

primera Dim As New ADODB.Recordset Dim

sXMLResult As String
5

Escriba lo siguiente para abrir la conexión con el base de datos de SQL Server :

con.ConnectionString = " Provider = SQLNCLI10 ; " " servidor = nombre del servidor , " _ & _

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

&" Integrated Security = SSPI ; "_

&" DataTypeCompatibility = 80 ; "_

y " Conexión MARS = False; "
< p> con.Open ()
6

Escriba lo siguiente para consultar una tabla de base de datos SQL Server :

rst.ActiveConnection = con

rst = con.Execute ( "SELECT TableName.FieldName dE tableName ;")
7

Escriba lo siguiente para recorrer todos los registros de la tabla :

bien (No rst.EOF )

sXMLResult = rst.Fields ( " fieldName" ) . Valor

MsgBox ( sXMLResult )

rst.MoveNext ()

End While
8

Escriba lo siguiente para cerrar la conexión y variables de liberación de la memoria :

con.close ()

con = Nada

Press "F5 " para ejecutar el programa a continuación, haga clic en " Button1 ".