Sapendo come accedere interfacce OLE e ActiveX può dare più potere su come recuperare i dati da una varietà di fonti. Un oggetto OLE è anche comunemente indicato come un controllo ActiveX. ActiveX è in realtà solo un altro nome per un oggetto OLE. Effettuare una connessione di Microsoft SQL Server utilizzando ActiveX Data Objects (ADO) per interrogare una tabella di database. Anche effettuare una connessione OLEDB ad un database Microsoft Access per creare una nuova tabella. Entrambi questi oggetti può essere utilizzato in diversi linguaggi di programmazione, ma in questo caso si sarà utilizzare Visual Basic .NET.

istruzione

1 Aprire Microsoft Visual Basic Express e selezionare "Nuovo progetto ..." dal riquadro sinistro dello schermo. Fai clic su "Visual Basic" nella sezione "Modelli installati" e fare doppio clic su "Applicazione Windows Form."

2 Fare clic sul riquadro "Strumenti" e fare doppio clic su "Pulsante" per aggiungere un nuovo pulsante al form. Fare clic sul menu "Progetto" e selezionare "<nomeprogetto> Proprietà".

3 Fai clic su "Riferimenti", quindi selezionare "Aggiungi". Selezionare "COM" e fare clic su "Microsoft ActiveX Data Objects <numero di versione> Libreria". Fai clic su "OK". L'aggiunta di questi riferimenti vi darà l'accesso a entrambi questi oggetti.

4 Fare doppio clic su "Button1" per aprire il modulo "Form1.vb". Digitare quanto segue nella prima riga sopra "Public Class Form1":

Imports System.Data.OleDb

Le importazioni ADODB

5 Copia e incolla il seguente sotto "Button1_Click" per creare una connessione OLE e creare una tabella in un database di Access:

Dim OLEConn Come OleDbConnection

Dim OLECmd As OleDbCommand

Dim strSQL As String

OLEConn = nuovo OleDbConnection _

( "Provider = Microsoft.ACE.OLEDB.12.0; Dati Source = C: \ Northwind 2007.accdb;")

OLEConn.Open ()

strSQL = "CREATE TABLE ThisTable" _

& "(FirstName CAR, Cognome char);"

OLECmd = Nuovo OleDbCommand (strSQL, OLEConn)

OLECmd.ExecuteNonQuery ()

OLEConn.Close ()

Modifica "Source = C: \ Northwind 2007.accdb" e digitare il percorso e il nome per il database di Access.

6 Copia e incolla nella riga successiva il seguente codice per creare una connessione ADO a un server SQL e interrogare una tabella del database:

Dim ADOConn come nuovo ADODB.Connection

Dim ADORst As New ADODB.Recordset

Dim ADORslt As String

ADOConn.ConnectionString = "Provider = SQLNCLI10;" _

& "Server = il nome del server;" _

& "Database = il nome del database;" _

E "Integrated Security = SSPI;" _

& "DataTypeCompatibility = 80;" _

& "MARS Connection = false;"

ADOConn.Open ()

ADORst.ActiveConnection = ADOConn

ADORst = ADOConn.Execute ( "SELECT nome_tabella.nome_campo FROM nometabella;")

Mentre (non ADORst.EOF)

ADORslt = ADORst.Fields ( "fieldName"). Valore

MsgBox (ADORslt)

ADORst.MoveNext ()

End While

ADOConn.Close ()

ADOConn = Nothing