Avere la conoscenza su come accedere a fonti di dati multiple utilizzando Microsoft Visual Basic.NET può rendere l'applicazione più dinamico . È possibile aprire più connessioni di database per inviare comandi o dati query da una tabella di database . In questo esempio verrà creato un collegamento di Microsoft SQL Server utilizzando ActiveX Data Objects ( ADO) per interrogare una tabella di database . Potrai anche effettuare una connessione OLEDB ad un database Microsoft Access per creare una nuova tabella . È possibile utilizzare ADO e Object Linking and Embedding ( OLE DB ) connessioni in più linguaggi di programmazione . In questo esempio si utilizzerà Microsoft Visual Basic.NET . Cose che ti serviranno
Microsoft Visual Basic Express
Microsoft SQL Server
Northwind 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 ", quindi fare doppio clic su "Windows Forms Application ".
2

Fare clic sul riquadro "Toolbox" e fare doppio clic su "Pulsante " per aggiungere un nuovo pulsante per il modulo. Fare clic sul menu "Progetto " e selezionare "Proprietà . " Clicca "Riferimenti ", quindi selezionare " Aggiungi ". Selezionare " COM " e clicca su " ActiveX Data Objects libreria Microsoft . " Fare clic su " OK ".
3

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
4

Digitare il seguente sotto " Button1_Click " di dichiarare le variabili di connessione OLEDB :

Dim oleDBConn Come OleDbConnection

Dim oleDBComm Come OleDbCommand

Dim sqlstr As String
5

Tipo la seguente voce " Button1_Click " per dichiarare le variabili di connessione ADO :

Dim adoCon As New ADODB.Connection Dim

AdoRst As New ADODB.Recordset Dim

adoResult As String
Pagina 6

digitare quanto segue per creare una nuova connessione al database Northwind :

oleDBConn = New OleDbConnection _

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

Edit " Source = C : \\. Northwind 2007.accdb "e digitare il percorso al database di Access

7

digitare quanto segue per creare una nuova connessione ADO al database di SQL Server :

AdoCon.ConnectionString = "Provider = SQLNCLI10 ; " _

& " Server = server nome ; "_

& " Database = il nome del database , "_

&" Integrated Security = SSPI ; " _

& " DataTypeCompatibility = 80; " _

& " MARS Connection = false;"

AdoCon.Open ( ) economici 8

digitare quanto segue per creare una nuova tabella nel database Northwind :

sqlstr = " CREATE TABLE ThisTable " _

& " ( CAR Nome , Cognome CHAR ) ; "

oleDBComm = New OleDbCommand ( sqlstr , oleDBConn ) per

oleDBComm . ExecuteNonQuery ( ) per

oleDBConn.Close ( ) economici 9

digitare quanto segue per interrogare una tabella nel server SQL :

AdoRst.ActiveConnection = adoCon

AdoRst = AdoCon.Execute ( " nome_tabella.nome_campo PRESCELTO da tableName ; " ) per

Digitare quanto segue un ciclo tra i risultati della query e visualizzarli attraverso una finestra di messaggio :

Mentre (Non AdoRst.EOF ) per

adoResult = AdoRst.Fields ( " fieldName " ) . Valore

MsgBox ( adoResult ) per

AdoRst.MoveNext ( ) per

Fine Mentre

AdoCon.Close ( ) per

adoCon = Nothing

Premere " F5 " per eseguire il programma, quindi fare clic su " Button1 ".

• Proprietà del form in Visual Basic 
• Come unire due file PDF in Acrobat 9 da VBA