ADO SQL Server Tutorial

Å ha kunnskap til å lage og bruke et ADO tilkobling til SQL Server kan spare deg for tid når du trenger å søke informasjon fra en database. SQL Server er en relasjonsdatabase styringssystem som vanligvis brukes til å lage store databaser tilgjengelig for flere brukere på flere steder. Du kan bruke ADO tilkoblinger i flere programmeringsspråk; dette eksempelet bruker Microsoft Visual Basic.NET. VB.NET er et objektorientert programmeringsspråk som er relativt enkelt å lære og bruke.

Bruksanvisning

1 Åpne Microsoft Visual C # Express og velg "New Project ..." fra den venstre ruten på skjermen. Klikk på "Visual Basic" under "Installerte maler" dobbeltklikk på "Windows Forms Application".

2 Klikk på "Toolbox" panelet og dobbeltklikk på "knapp" for å legge til en ny knapp i skjemaet. Klikk på "Project" -menyen og velg "<prosjektnavn> Egenskaper". Klikk "Referanser", velg deretter "Legg til". Velg "COM" og klikk "" Microsoft ActiveX Data Objects <versjonsnummer> Library "". Klikk på "OK".

3 Dobbeltklikk på "Button1" for å åpne "Form1.vb" modul. Skriv inn følgende i den aller første linje ovenfor "Public Class Form1":

importen adodb

4 Skriv inn følgende å erklære variabler under "button1_click":

Dim con som ny ADODB.Connection

Dim første som ny ADODB.Recordset

Dim sXMLResult As String

5 Skriv inn følgende for å åpne tilkobling til SQL Server-database:

con.ConnectionString = "Provider=SQLNCLI10;" _

& "Server = navnet på serveren;" _

& "Database = databasen navn;" _

& "Integrated Security = SSPI;" _

& "DataTypeCompatibility = 80;" _

& "MARS Connection = False;"

con.Open ()

6 Skriv inn følgende å spørre en SQL Server-database tabellen:

rst.ActiveConnection = con

rst = con.Execute ( "SELECT tableName.fieldName FROM tabellnavn;")

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

Mens (Ikke rst.EOF)

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

MsgBox (sXMLResult)

rst.MoveNext ()

slutt Mens

8 Skriv inn følgende for å lukke tilkoblingen og slipp variabel fra minnet:

con.Close()

con = Nothing

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