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 Haga clic en " Referencias" y seleccione "Agregar ". Seleccione " COM " y haga clic en " ActiveX Data Objects 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 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 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 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 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 ) End While ADOConn.Close () ADOConn = Nothing
3
5
Página 6
< p> ADORst Dim As New ADODB.Recordset
< p> ADORst.MoveNext ()