Ako získať prístup viac zdrojov dát

Mať vedomosti o tom , ako pristupovať k viacerým zdrojom dát pomocou Microsoft Visual Basic.NET môže vaše aplikácie dynamickejšie . Môžete otvoriť viac databázových pripojení pre odosielanie príkazov alebo dát dotaz z tabuľky databázy . V tomto príklade vytvoríte pripojenie k Microsoft SQL Server pomocou ActiveX Data Objects ( ADO ) na dotaz tabuľku databázy . Budete tiež pripojenie OLEDB k databáze programu Microsoft Access vytvoriť novú tabuľku . Môžete použiť ADO a Prepájanie a vkladanie objektov ( OLEDB ) pripojenie v rôznych programovacích jazykoch . V tomto príklade budete používať Microsoft Visual Basic.NET . Veci , ktoré budete potrebovať v Microsoft Visual Basic Express
Microsoft SQL Server
Northwind databázy
Zobraziť ďalšie inštrukcie Cestuj 1

Otvorte program Microsoft Visual Basic Express a zvoľte " new Project ... " od ľavej table obrazovky . Kliknite na " Visual Basic " pod " Nainštalované šablóny " a potom dvakrát kliknite na " Windows Forms aplikácie . "
2

Kliknite na " Nástroje " panel a dvakrát kliknite na " tlačidlo " pridať nové tlačidlo pre Váš formulár . Kliknite na menu " Project " a zvoľte " Vlastnosti . " Kliknite na " Referencie " , potom vyberte " Pridať " . Vyberte " COM " a kliknite na " Microsoft ActiveX Data Objects knižnice . " Kliknite na tlačidlo " OK " .
3

Double - kliknite na " Button1 " otvorte modul " Form1.vb " . Zadajte nasledujúce v prvom riadku nad " Public Class Form1 " :

Dovoz System.Data.OleDb

Dovoz ADODB
Stránka 4

Zadajte nasledujúce pod " Button1_Click " deklarovať svoje premenné pripojenia OLEDB :

Dim oleDBConn Ako OleDbConnection

Dim oleDBComm Ako OleDbCommand

Dim SQLStr As String
5

Typ nasledujúce za " button1_Click " deklarovať svoje premenné pripojenie ADO :

Dim AdoCon ako nové ADODB.Connection

Dim AdoRst As New ADODB.Recordset

Dim adoResult As String
Praha 6

Zadajte nasledujúci vytvoriť nové pripojenie k databáze Northwind :

oleDBConn = New OleDbConnection _

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

Edit " Source = C : \\ Northwind 2007.accdb " a zadajte cestu k databáze programu Access
< . br > 7

zadajte nasledujúci príkaz na vytvorenie novej ADO pripojenie k databáze servera SQL server : Autor

AdoCon.ConnectionString = " Provider = SQLNCLI10 " ; _

& " server = vašom serveri meno , " _

& " Database = vaše meno databázy , " _

a " Integrated Security = SSPI ; " _

& " DataTypeCompatibility = 80 ; " _

a " MARS Connection = False ; "

AdoCon.Open ( )
8

Zadajte nasledujúci vytvoriť novú tabuľku v databáze Northwind :

SQLStr = " CREATE TABLE ThisTable " _

& " ( FirstName CHAR , priezvisko CHAR ) ; "

oleDBComm = New OleDbCommand ( SQLStr , oleDBConn )

oleDBComm . ExecuteNonQuery ( )

oleDBConn.Close ( )
9

zadajte nasledujúci dotaz tabuľku v SQL servera:

AdoRst.ActiveConnection = AdoCon

AdoRst = AdoCon.Execute ( " SELECT FROM tabulka.sloupec tableName ; " )

zadajte nasledujúce prechádzať výsledky dotazu a zobraziť ich pomocou okne so správou :

keď ( Nie AdoRst.EOF )

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

MsgBox ( adoResult )

AdoRst.MoveNext ( )

End While

AdoCon.Close ( )

AdoCon = Nothing

Stlačte " F5 " , spustiť program a potom kliknite na tlačidlo " Button1 . "

• Predchádzajúca strana: Vlastnosti formulára v jazyku Visual Basic 
• Ďalšia strana: Ako zlúčiť dva súbory PDF v Acrobat 9 VBA