Å vite hvordan du får tilgang OLE og ActiveX -grensesnitt kan gi deg mer kraft om hvordan du henter data fra en rekke kilder. Et OLE-objekt er også ofte referert til som en ActiveX-kontroll . ActiveX er egentlig bare et annet navn for en OLE-objekt . Lag en Microsoft SQL Server-tilkobling ved hjelp av ActiveX Data Objects ( ADO ) til å spørre en database tabell . Også gjøre en OLEDB tilkobling til en Microsoft Access-database til å opprette en ny tabell . Begge disse objektene kan brukes i flere programmeringsspråk , men i dette eksemplet vil du bruke Visual Basic. NET . Du trenger
Microsoft Visual Basic Express
Microsoft SQL Server
Microsoft Office Access database
Vis flere instruksjoner
en

Åpne Microsoft Visual Basic Express og velg "New Project ... " fra venstre ruten på skjermen. Klikk på " Visual Basic " under " Installerte maler " og dobbeltklikk på " Windows Forms Application ".
2

Klikk på " Toolbox" rute og dobbeltklikk på " Button " for å legge til en ny knapp i skjema . Klikk på "Project "-menyen og velg " Properties".
3

Klikk " Referanser ", velg deretter "Legg til ". Velg " COM " og klikk " Microsoft ActiveX Data Objects Library". Klikk "OK". Legge til disse referansene vil gi deg tilgang til begge disse stedene.
4

Dobbeltklikk på " Button1 " for å åpne " Form1.vb " modulen. Skriv inn følgende i den aller første linjen over "Public Class Form1 " :

Importen System.Data.OleDb

Import adodb
5

Kopier og lim inn følgende under " button1_click " for å opprette et OLE -tilkobling og lage en tabell i en Access database:

Dim OLEConn Som OleDbConnection

Dim OLECmd Som OleDbCommand

Dim strSQL As String

OLEConn = Ny OleDbConnection _

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

OLEConn.Open ( )

strSQL = "CREATE TABLE ThisTable " _

& " ( Fornavn CHAR , Etternavn CHAR ),"

OLECmd = Ny OleDbCommand ( strSQL , OLEConn )

OLECmd.ExecuteNonQuery ( )

OLEConn.Close ( )

Edit " Source = C: \\ Northwind 2007.accdb " . , og skriv inn banen og navnet til Access-databasen

6

Kopier og lim inn i neste linje følgende kode for å lage et ADO -tilkobling til en SQL Server og spørring en database tabell:

Dim ADOConn som ny ADODB.Connection
< p> Dim ADORst som ny ADODB.Recordset

Dim ADORslt As String

ADOConn.ConnectionString = " Provider = SQLNCLI10 ; " _

& " server = navnet på serveren ; "_

&" database = databasen navn, "_

&" Integrated Security = SSPI ; "_

&" DataTypeCompatibility = 80 ; "_

& " MARS Connection = False ; "

ADOConn.Open ( )

ADORst.ActiveConnection = ADOConn

ADORst = ADOConn.Execute ( "SELECT tableName.fieldName FRA tablename ; . ")

Mens (Ikke ADORst.EOF )

ADORslt = ADORst.Fields ( " fieldname ") Verdi

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

End Mens

ADOConn.Close ( )

ADOConn = Ingenting