Vide, hvordan man adgang til OLE og ActiveX grænseflader kan give dig mere power på, hvordan at hente data fra en række forskellige kilder. Et OLE-objekt er også almindeligt omtalt som en ActiveX control. ActiveX er egentlig bare et andet navn for en OLE-objekt . Lav en Microsoft SQL Server -forbindelse med ActiveX Data Objects ( ADO ) for at søge en database tabel . Også gøre en OLEDB forbindelse til en Microsoft Access-database til at oprette en ny tabel . Begge disse objekter kan bruges i flere programmeringssprog , men i dette eksempel vil du bruge Visual Basic. NET . Ting du skal
Microsoft Visual Basic Express & Microsoft SQL Server
Microsoft Office Access -database
Vis Flere Instruktioner
1

Åbn Microsoft Visual Basic Express og vælg " Nyt projekt ... " fra venstre rude på skærmen. Klik på " Visual Basic " under " Installerede skabeloner " og dobbeltklik på "Windows Forms Application ".
2

Klik på " Toolbox" rude og dobbeltklik på " Button " for at tilføje en ny knap til din formular . Klik på " Projekt "-menuen og vælg " Egenskaber".
3

Klik på " Referencer " og derefter vælge " Tilføj". Vælg " COM" og klik på " Microsoft ActiveX Data Objects Library". Klik på "OK". Tilføjelse disse referencer vil give dig adgang til begge disse objekter.
4

Dobbeltklik på " Button1 " for at åbne " Form1.vb "-modulet . Indtast følgende i den allerførste linje over "Public Class Form1 " :

Import System.Data.OleDb

Import ADODB
5

Kopier og indsæt følgende under " Button1_Click " for at oprette et OLE -forbindelse og oprette en tabel i en Access-database : Hej

Dim OLEConn Som OleDbConnection

Dim OLECmd Som OleDbCommand

Dim strSQL As String < br >

OLEConn = Ny OleDbConnection _

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

OLEConn.Open ( )

strSQL = " CREATE TABLE ThisTable " _

& " ( Fornavn char, EfterNavn CHAR ) "

OLECmd = Ny OleDbCommand ( strSQL , OLEConn )

OLECmd.ExecuteNonQuery ()

OLEConn.Close ()

Edit "Source = C: \\ Northwind 2007.accdb " . og skriv stien og navnet på din Access-database < br >
6

Kopier og indsæt i den næste linie følgende kode til at oprette en ADO -forbindelse til en SQL Server og forespørgsel en database tabel : Hej

Dim ADOConn Som New ADODB.Connection
< p> Dim ADORst Som New ADODB.Recordset

Dim ADORslt As String

ADOConn.ConnectionString = " Provider = SQLNCLI10 , " _

& " server = navnet på din server ; "_

&" database = din database navn, "_

&" Integrated Security = SSPI , "_

&" DataTypeCompatibility = 80; "_

& " MARS Connection = false; "

ADOConn.Open ()

ADORst.ActiveConnection = ADOConn

ADORst = ADOConn.Execute ( "SELECT tableName.fieldName FROM tabelnavn ; ").

( Ikke ADORst.EOF )

ADORslt = ADORst.Fields ( " Feltnavn " ) Value

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

End Mens

ADOConn.Close ()

ADOConn = Nothing