Avere la conoscenza per creare e utilizzare una connessione ADO a SQL Server consente di risparmiare tempo quando si ha bisogno di interrogare i dati da un database. SQL Server è un sistema di gestione di database relazionali comunemente usato per creare grandi basi di dati disponibili a più utenti in più sedi . È possibile utilizzare connessioni ADO in più linguaggi di programmazione ; questo esempio utilizza Microsoft Visual Basic.NET . VB.NET è un linguaggio di programmazione orientato agli oggetti che è relativamente facile da imparare e da usare . Cose che ti serviranno
Microsoft Visual Basic Express
Microsoft SQL Server
Show More Istruzioni
1

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

Fare clic sul riquadro "Toolbox" e fare doppio clic su "Pulsante " per aggiungere un nuovo pulsante al form . Fare clic sul menu "Progetto" e selezionare "Proprietà " . Fare clic su "Riferimenti " quindi selezionare "Aggiungi " . Selezionare " COM " e fare clic 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 ADODB
4

Digitare quanto segue per dichiarare le variabili di seguito " Button1_Click " :

Dim con As New ADODB.Connection

Dim rst As New ADODB.Recordset Dim

sXMLResult As String
5

digitare quanto segue per aprire la connessione al database SQL Server :

con.ConnectionString = "Provider = SQLNCLI10 ; " _

& " Server = il nome del server , " _

& "Database = il nome del database , "_

&" Integrated Security = SSPI ; " _

& " DataTypeCompatibility = 80; " _

&" MARS Connection = false; "

con.Open ( ) economici 6

Digitare quanto segue per interrogare una tabella di database di SQL Server :

rst.ActiveConnection = con

rst = con.Execute ( "SELECT FROM nome_tabella.nome_campo tableName ; " ) economici 7

digitare quanto segue per scorrere tutti i record della tabella :

Mentre (Non rst.EOF ) per

sXMLResult = rst.Fields ( " fieldName " ) . Valore

MsgBox ( sXMLResult ) per

rst.MoveNext ( ) per

End While
8

Digitare quanto segue per chiudere la connessione e la variabile di uscita dalla memoria :

con.close ( ) per

con = Niente

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

• Come unire due file PDF in Acrobat 9 da VBA 
• Come utilizzare VBS per avviare il servizio automatico