Sapere come accedere interfacce OLE e ActiveX in grado di 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 fare una connessione OLEDB ad un database Microsoft Access per creare una nuova tabella . Entrambi questi oggetti possono essere utilizzati in più linguaggi di programmazione , ma in questo esempio verrà utilizzato Visual . NET di base . Cose che ti serviranno
Microsoft Visual Basic Express
Microsoft SQL Server
Microsoft Office Access database di
Mostra più istruzioni
1

Aprire Microsoft Visual Basic Express e selezionare " Nuovo progetto ... " dal riquadro sinistro dello schermo . Fare clic su " Visual Basic " in " Modelli installati " e fare doppio clic su " Applicazione Windows Form ".
2

Fare clic sul riquadro "Toolbox" e fare doppio clic su "Pulsante " per aggiungere un nuovo pulsante al vostro forma . Fare clic sul menu "Progetto " e selezionare "Proprietà ".
3

Clicca "Riferimenti ", quindi selezionare "Aggiungi ". Selezionare " COM " e clicca su " ActiveX Data Objects libreria Microsoft . " Fare clic su " OK ". L'aggiunta di questi riferimenti ti darà accesso a entrambi questi oggetti .
4

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

Imports System.Data.OleDb

Imports 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 Come OleDbCommand

Dim strSQL As String < br >

OLEConn = New OleDbConnection _

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

OLEConn.Open ( ) per

strSQL = " CREATE TABLE ThisTable " _

& " ( Nome CHAR , Cognome CHAR ) ; "

OLECmd = New OleDbCommand ( strSQL , OLEConn ) per

OLECmd.ExecuteNonQuery ( ) per

OLEConn.Close ( ) per

Edit "Source = C : \\ Northwind 2007.accdb ." e digitare il percorso e il nome per il database di Access < br > Pagina 6

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

Dim ADOConn As New ADODB.Connection
< p > Dim ADORst As New ADODB.Recordset Dim

ADORslt As String

ADOConn.ConnectionString = "Provider = SQLNCLI10 ; " _

& " Server = il nome del server ; "_

& " Database = il nome del database , "_

&" Integrated Security = SSPI ; " _

& " DataTypeCompatibility = 80; " _

& " MARS Connection = false;"

ADOConn.Open ( ) per

ADORst.ActiveConnection = ADOConn

ADORst = ADOConn.Execute ( "SELECT nome_tabella.nome_campo DA tableName ; ". ) per

Mentre (Non ADORst.EOF ) per

ADORslt = ADORst.Fields ( " fieldName " ) Valore

MsgBox ( ADORslt ) per < p > ADORst.MoveNext ( ) per

End While

ADOConn.Close ( ) per

ADOConn = Nothing