Å ha kunnskap til å lage og bruke et ADO -tilkobling til SQL Server kan spare deg for tid når du må spørre data fra en database . SQL Server er en relasjonell database management system som vanligvis brukes til å lage store databaser tilgjengelig for flere brukere på flere steder . Du kan bruke ADO tilkoblinger i flere programmeringsspråk , og dette eksempelet bruker Microsoft Visual Basic.NET . VB.NET er et objektorientert programmeringsspråk som er relativt lett å lære og bruke. Du trenger
Microsoft Visual Basic Express
Microsoft SQL Server
Vis flere instruksjoner
en

Åpne Microsoft Visual C # Express og velg "New Project ... " fra venstre ruten på skjermen. Klikk på " Visual Basic" under " Installerte maler " dobbel -klikk "Windows Forms Application ".
2

Klikk på " Toolbox" rute og dobbeltklikk på " Button " for å legge til en ny knapp i skjemaet . Klikk på "Project "-menyen og velg " Egenskaper" . Klikk på " Referanser ", velg deretter "Legg til" . Velg " COM " og klikk " " Microsoft ActiveX Data Objects Library " " . Klikk "OK".
3

Dobbeltklikk på " Button1 " for å åpne " Form1.vb " modulen. Skriv inn følgende i den aller første linjen over "Public Class Form1 " : en

Import adodb
4

Skriv inn følgende å erklære variabler under " button1_click " : en < p > Dim con som ny ADODB.Connection

Dim rst som ny ADODB.Recordset

Dim sXMLResult As String
5

Skriv inn følgende for å åpne tilkoblingen til SQL server-database : en

con.ConnectionString = " Provider = SQLNCLI10 ; " _

& " server = navnet på serveren , " _

& " database = databasen navn ; "_

&" Integrated Security = SSPI ; "_

&" DataTypeCompatibility = 80 ; "_

&" MARS Connection = False ; "
< p> con.Open ( )
6

Skriv inn følgende for å spørre en SQL Server-database tabell:

rst.ActiveConnection = con

rst = con.Execute ( "SELECT tableName.fieldName FRA tablename ; ")
7

Skriv inn følgende å sløyfe gjennom alle postene i tabellen : en

Mens (Ikke rst.EOF )

sXMLResult = rst.Fields ( " fieldname ") . Verdi

MsgBox ( sXMLResult )

rst.MoveNext ( )

End Mens
8

Skriv inn følgende for å lukke tilkoblingen og slipp variable fra minnet : en

con.Close ( )

con = Ingenting

Trykk " F5 " for å kjøre programmet klikk deretter på " Button1 . "