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 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 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 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 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 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 () 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 () Escriba lo siguiente para consultar una tabla en el servidor SQL : AdoRst.ActiveConnection = adoCon 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 () AdoCon.Close () adoCon = Nothing Press "F5 " para ejecutar el programa y luego haga clic en " Button1 ".
4
5
6
7
8
9
< p > End While