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ù posizioni. È 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.

istruzione

1 Aprire Microsoft Visual C # Express e selezionare "Nuovo progetto ..." dal riquadro sinistro dello schermo. Fai clic su "Visual Basic" nella sezione "Modelli installati" 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 "<projectname> Proprietà". Fare 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":

Le importazioni ADODB

4 Digitare la seguente per dichiarare le variabili sotto "Button1_Click":

con fioco come nuovo ADODB.Connection

primo fioco come nuovo ADODB.Recordset

Dim sXMLResult As String

5 Digitare quanto segue per aprire la connessione al database di SQL Server:

con.ConnectionString = "Provider=SQLNCLI10;" _

& "Server = il nome del server;" _

& "Database = il nome del database;" _

E "Integrated Security = SSPI;" _

& "DataTypeCompatibility = 80;" _

& "MARS Connection = false;"

con.Open ()

6 Digitare la seguente per interrogare una tabella di database di SQL Server:

rst.ActiveConnection = con

prima = Con.Execute ( "SELECT nome_tabella.nome_campo FROM nometabella;")

7 Digitare quanto segue per scorrere tutti i record della tabella:

Mentre (non rst.EOF)

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

MsgBox (sXMLResult)

rst.MoveNext ()

End While

8 Digitare la seguente per chiudere la connessione e rilasciare variabile dalla memoria:

con.Close()

con = Nothing

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