Komma åt flera datakällor

ha kunskap om hur man kan komma åt flera datakällor som använder Microsoft Visual Basic.NET kan göra din ansökan mer dynamisk . Du kan öppna flera databaskopplingar att skicka kommandon eller frågedata från en databas tabell . I det här exemplet skapar du en Microsoft SQL Server- anslutning med ActiveX Data Objects ( ADO ) för att söka en databas tabell . Du kommer också att göra en OLEDB anslutning till en Microsoft Access-databas för att skapa en ny tabell . Du kan använda ADO och Object och inbäddning ( OLEDB ) anslutningar i flera programmeringsspråk . I detta exempel kommer du att använda Microsoft Visual Basic.NET . Saker du behöver
Microsoft Visual Basic Express Review Microsoft SQL Server Review Northwind databas
Visa fler instruktioner
1

Öppna Microsoft Visual Basic Express och välj " nytt projekt ... " från vänster på skärmen . Klicka på " Visual Basic " under " Installerade mallar " och sedan dubbelklicka på " Windows Forms Application . "
2

Klicka på " Verktyg" panelen och dubbelklicka på " knappen " för att lägga till en ny knapp för att formuläret. Klicka på " Project " -menyn och välj " Properties . " Klicka på " Referenser " och välj " Lägg till ". Välj " COM " och klicka på " Microsoft ActiveX Data Objects Library . " Klicka på " OK . " Addera 3

Dubbelklicka på " Button1 " för att öppna " Form1.vb " modul . Skriv följande i den allra första raden ovanför " public class Form1 " :

Imports System.Data.OleDb

Import adodb
4

Skriv följande under " Button1_Click " att deklarera dina OLEDB anslutning variabler :

Dim oleDBConn som OleDbConnection

Dim oleDBComm som OleDbCommand

Dim sqlstr As String
5

Type följande under " Button1_Click " att deklarera dina ADO anslutning variabler :

Dim AdoCon som ny ADODB.Connection

Dim AdoRst som New ADODB.Recordset

Dim adoResult As String

6

Skriv följande för att skapa en ny anslutning till Northwind databasen :

oleDBConn = ny OleDbConnection _

( " Provider = Microsoft.ACE.OLEDB.12.0 , Data Source = C : \\ Northwind 2007.accdb , " ) oleDBConn.Open ( ) katalog

Redigera " Source = C : . \\ Northwind 2007.accdb " och skriv in sökvägen till din Access-databas

7

Skriv följande för att skapa en ny ADO -anslutning till din SQL Server-databas :

AdoCon.ConnectionString = " Provider = SQLNCLI10 ; " _

& " Server = din server namn , " _

& " Database = din databas namn , " _

& " Integrated Security = SSPI ; " _

& " DataTypeCompatibility = 80 ; " _

& " MARS Connection = false; "

AdoCon.Open ( )
8

Skriv följande för att skapa en ny tabell i Northwind -databasen :

sqlstr = " CREATE TABLE ThisTable " _

& " ( Förnamn CHAR , EfterNamn CHAR ) , "

oleDBComm = Ny OleDbCommand ( sqlstr , oleDBConn ) katalog

oleDBComm . ExecuteNonQuery ( ) katalog

oleDBConn.Close ( )
9

Skriv följande för att fråga en tabell i SQL server :

AdoRst.ActiveConnection = AdoCon

AdoRst = AdoCon.Execute ( " SELECT tableName.fieldName FROM tableName , " ) katalog

Skriv följande för att slinga genom frågeresultatet och visa dem genom en meddelanderuta :

( Inte AdoRst.EOF ) katalog

adoResult = AdoRst.Fields ( " fieldName " ) . Value

MsgBox ( adoResult ) katalog

AdoRst.MoveNext ( ) katalog

Slut Medan

AdoCon.Close ( ) katalog

AdoCon = Nothing

Tryck " F5 " för att köra programmet och klicka sedan på " Button1 . "