Avere la conoscenza su come accedere a più fonti di dati utilizzando Microsoft Visual Basic.NET può rendere l'applicazione più dinamico. È possibile aprire più connessioni al database per inviare comandi o dati di query da una tabella del database. In questo esempio si creerà una connessione 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 collegamenti (OLE DB) in più linguaggi di programmazione. In questo esempio si utilizzerà Microsoft Visual Basic.NET.

istruzione

1 Aprire Microsoft Visual Basic Express e selezionare "Nuovo progetto ..." dal riquadro sinistro dello schermo. Fai clic su "Visual Basic" sotto "Modelli installati", quindi 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à". 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".

3 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

4 Digitare il seguente punto "Button1_Click" per dichiarare le variabili di connessione OLE DB:

Dim oleDBConn Come OleDbConnection

oleDBComm fioco come OleDbCommand

Dim SQLStr As String

5 Digitare il seguente punto "Button1_Click" per dichiarare le variabili di connessione ADO:

Dim AdoCon come nuovo ADODB.Connection

Dim AdoRst come nuovo ADODB.Recordset

Dim adoResult As String

6 Digitare la seguente per creare una nuova connessione al database Northwind:

oleDBConn = nuovo OleDbConnection _

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

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

7 Digitare la seguente per creare una nuova connessione ADO al database di SQL Server:

AdoCon.ConnectionString = "Provider = SQLNCLI10;" _

& "Server = il nome del server;" _

& "Database = il nome del database;" _

E "Integrated Security = SSPI;" _

& "DataTypeCompatibility = 80;" _

& "MARS Connection = false;"

AdoCon.Open ()

8 Digitare la seguente per creare una nuova tabella nel database Northwind:

SQLStr = "CREATE TABLE ThisTable" _

& "(FirstName CAR, Cognome char);"

oleDBComm = Nuovo OleDbCommand (SQLStr, oleDBConn)

oleDBComm.ExecuteNonQuery ()

oleDBConn.Close ()

9 Digitare la seguente per interrogare una tabella nel server SQL:

AdoRst.ActiveConnection = AdoCon

AdoRst = AdoCon.Execute ( "SELECT nome_tabella.nome_campo FROM nometabella;")

Digitare quanto segue per scorrere i risultati della query e li visualizza attraverso una finestra di messaggio:

Mentre (non AdoRst.EOF)

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

MsgBox (adoResult)

AdoRst.MoveNext ()

End While

AdoCon.Close ()

AdoCon = Nothing

Premere il tasto "F5" per eseguire il programma poi cliccare su "Button1".