Hvordan få tilgang til flere datakilder

January 14

Å 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 databasetilkoblinger å sende kommandoer eller søke 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å få en OLEDB tilkobling til en Microsoft Access-database for å 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.

Bruksanvisning

1 Åpne Microsoft Visual Basic Express og velg "New Project ..." fra den venstre ruten på skjermen. Klikk på "Visual Basic" under "Installerte maler", dobbeltklikk deretter "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 på "Referanser" og velg deretter "Legg til". Velg "COM" og klikk "Microsoft ActiveX Data Objects <versjonsnummer> Bibliotek." 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 System.Data.OleDb

importen adodb

4 Skriv inn følgende under "button1_click" for å erklære dine OLEDB tilkoblings variabler:

Dim oleDBConn Som OleDbConnection

Dim oleDBComm Som OleDbCommand

Dim SQLStr As String

5 Skriv inn følgende under "button1_click" for å erklære dine ADO tilkoblings variabler:

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; Data Source = C: \ North 2007.accdb;") oleDBConn.Open ()

Edit "Source = C: \ North 2007.accdb" og skriv inn banen til Access database.

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

AdoCon.ConnectionString = "Provider = SQLNCLI10;" _

& "Server = navnet på serveren;" _

& "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 til å spørre en tabell i SQL server:

AdoRst.ActiveConnection = AdoCon

AdoRst = AdoCon.Execute ( "SELECT tableName.fieldName FROM tabellnavn;")

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

Mens (Ikke AdoRst.EOF)

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

MsgBox (adoResult)

AdoRst.MoveNext ()

slutt Mens

AdoCon.Close ()

AdoCon = Nothing

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