Ako získať prístup OLE & ActiveX

Vedieť , ako sa dostať k OLE a ActiveX rozhranie vám môže dať viac energie na to , ako načítať dáta z rôznych zdrojov . Objekt OLE je tiež obyčajne odvolával sa na ako ovládací prvok ActiveX . ActiveX je naozaj len iný názov pre objekt OLE . Vykonajte pripojenie k Microsoft SQL Server pomocou ActiveX Data Objects ( ADO ) na dotaz tabuľku databázy . Tiež skontrolujte pripojenia OLEDB k databáze programu Microsoft Access vytvoriť novú tabuľku . Oba tieto objekty môžu byť použité v rôznych programovacích jazykoch , ale v tomto prípade budete používať Visual Basic . NET . Veci , ktoré budete potrebovať v Microsoft Visual Basic Express
Microsoft SQL Server v Microsoft Office Access databázy
Zobraziť ďalšie inštrukcie Cestuj 1

Otvorte program Microsoft Visual Basic Express a vyberte " Nový projekt ... " od ľavej table obrazovky . Kliknite na " Visual Basic " pod " Nainštalované šablóny " a double - kliknite na " Windows Forms aplikácie . "
2

Kliknite na " Nástroje " panel a tlačidlo " " double - kliknite na pridať nové tlačidlo pre váš forma . Kliknite na menu " Project " a zvoľte " Vlastnosti . "
3

Kliknite na " Odkazy " a potom vyberte " Pridať " . Vyberte " COM " a kliknite na " Microsoft ActiveX Data Objects knižnice . " Kliknite na tlačidlo " OK " . Pridanie tieto odkazy vám umožní prístup do oboch týchto objektov .
4

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

Dovoz System.Data.OleDb

Dovoz ADODB
5

Skopírujte a vložte nasledujúci pod " button1_Click " vytvoriť pripojenie OLE a vytvoriť tabuľku v databáze programu Access :

Dim OLEConn Ako OleDbConnection

Dim OLECmd Ako OleDbCommand

Dim strSQL As String

OLEConn = New OleDbConnection _

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

OLEConn.Open ( )

strSQL = " CREATE TABLE ThisTable " _

& " ( FirstName CHAR , priezvisko CHAR ) ; "

OLECmd = New OleDbCommand ( strSQL , OLEConn )

OLECmd.ExecuteNonQuery ( )

OLEConn.Close ( )

Edit " Source = C : \\ Northwind 2007.accdb " a zadajte cestu a názov k databáze Access < br . > Praha 6

skopírujte a vložte na ďalšom riadku nasledujúci kód pre vytvorenie pripojenia ADO k SQL Server a otázka tabuľku databázy : klipart

Dim ADOConn As New ADODB.Connection

Dim ADORst ako New ADODB.Recordset

Dim ADORslt As String

ADOConn.ConnectionString = " Provider = SQLNCLI10 ; " _

a " server = názov servera ; " _

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

a " Integrated Security = SSPI ; " _

& " DataTypeCompatibility = 80 ; " _

a " MARS Connection = False ; "

ADOConn.Open ( )

ADORst.ActiveConnection = ADOConn

ADORst = ADOConn.Execute ( " SELECT tabulka.sloupec Z názov_tabuľky ; " )

keď ( nie ADORst.EOF )

ADORslt = ADORst.Fields ( " fieldname " ) Hodnota

MsgBox ( ADORslt )
< . p > ADORst.MoveNext ( )

End While

ADOConn.Close ( )

ADOConn = Nothing

• Predchádzajúca strana: ActiveX DLL Tutorial 
• Ďalšia strana: Ako napísať program , ktorý osvieži Explorer