Å ha kunnskap om hvordan du kan få tilgang til flere datakilder ved hjelp av Microsoft Visual Basic.NET kan gjøre programmet mer dynamisk . Du kan åpne flere database tilkoblinger til å sende kommandoer eller spørring data fra en database tabell . I dette eksemplet vil du opprette en Microsoft SQL Server-tilkobling ved hjelp av ActiveX Data Objects ( ADO ) til å spørre en database tabell . Du vil også være et OLEDB tilkobling til en Microsoft Access-database til å opprette en ny tabell . Du kan bruke ADO og Object Linking and Embedding ( OLEDB ) forbindelser i flere programmeringsspråk . I dette eksemplet vil du bruke Microsoft Visual Basic.NET . Du trenger
Microsoft Visual Basic Express
Microsoft SQL Server
Northwind database
Vis flere instruksjoner
en

Åpne Microsoft Visual Basic Express og velg " nytt prosjekt ... " fra venstre ruten på skjermen. Klikk på " Visual Basic " under " Installerte maler , " og dobbeltklikk på "Windows Forms Application ".
2

Klikk på " Toolbox" rute og dobbeltklikk på " Button " for å legge til en ny knapp ditt skjema . Klikk på "Project "-menyen og velg " Properties". 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 " :

Importen System.Data.OleDb

Import adodb
4

Skriv inn følgende under " button1_click " å erklære dine OLEDB tilkobling variabler : en

Dim oleDBConn Som OleDbConnection

Dim oleDBComm Som OleDbCommand

Dim SQLStr As String
5

Type følgende under " button1_click " å erklære dine ADO forbindelse variabler : en

Dim AdoCon som ny ADODB.Connection

Dim AdoRst som ny ADODB.Recordset

Dim adoResult As String

6

Skriv inn følgende for å opprette en ny tilkobling til Northwind database:

oleDBConn = Ny OleDbConnection _

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

Edit" Source = C: . \\ Northwind 2007.accdb " og skriver inn banen til Access-databasen

7

Skriv inn følgende for å opprette en ny ADO tilkobling til SQL server-database : en

AdoCon.ConnectionString = " Provider = SQLNCLI10 ; " _

& " server = din server navn, "_

&" database = databasen navn, "_

&" Integrated Security = SSPI ; "_

&" DataTypeCompatibility = 80 ; "_

& " MARS Connection = False ; "

AdoCon.Open ( )
8

Skriv inn følgende for å opprette en ny tabell i Northwind database:

SQLStr = "CREATE TABLE ThisTable " _

& " ( Fornavn CHAR , Etternavn CHAR ),"

oleDBComm = Ny OleDbCommand ( SQLStr , oleDBConn )

oleDBComm . ExecuteNonQuery ( )

oleDBConn.Close ( )
9

Skriv inn følgende å spørre en tabell i SQL server:

AdoRst.ActiveConnection = AdoCon

AdoRst = AdoCon.Execute ( "SELECT tableName.fieldName FRA tablename ; " )

Skriv inn følgende å sløyfe gjennom søkeresultatene og vise dem gjennom en meldingsboks : en

Mens (Ikke AdoRst.EOF )

adoResult = AdoRst.Fields ( " fieldname ") . Verdi

MsgBox ( adoResult )

AdoRst.MoveNext ( )
< p > Slutt Mens

AdoCon.Close ( )

AdoCon = Ingenting

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