Komma åt OLE & ActiveX

Veta hur man kommer åt OLE och ActiveX- gränssnitt kan ge dig mer makt om hur man hämtar data från en mängd olika källor . Ett OLE-objekt är också ofta kallas en ActiveX -kontroll . ActiveX är egentligen bara ett annat namn för ett OLE-objekt . Gör en Microsoft SQL Server- anslutning med ActiveX Data Objects ( ADO ) för att söka en databas tabell . Också göra en OLEDB anslutning till en Microsoft Access-databas för att skapa en ny tabell . Båda dessa objekt kan användas i flera programmeringsspråk , men i det här exemplet kommer du att använda Visual Basic . NET . Saker du behöver
Microsoft Visual Basic Express Review Microsoft SQL Server Review Microsoft Office Access-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 dubbelklicka på " Windows Forms Application . "
2

Klicka på " Verktyg" panelen och dubbelklicka på " knappen " för att lägga till en ny knapp på din formulär . Klicka på " Project " -menyn och välj " Properties . " Addera 3

Klicka " Referenser " och välj sedan " Lägg till ". Välj " COM " och klicka på " Microsoft ActiveX Data Objects Library . " Klicka på " OK . " Lägga dessa referenser kommer att ge dig tillgång till båda dessa syften .
4

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
5

Kopiera och klistra in följande under " Button1_Click " för att skapa ett OLE -anslutning och skapa en tabell i en Access-databas :

Dim OLEConn som OleDbConnection

Dim OLECmd som OleDbCommand

Dim strSQL As String

OLEConn = Ny OleDbConnection _

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

OLEConn.Open ( ) katalog

strSQL = " CREATE TABLE ThisTable " _

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

OLECmd = Ny OleDbCommand ( strSQL , OLEConn ) katalog

OLECmd.ExecuteNonQuery ( ) katalog

OLEConn.Close ( ) katalog

Redigera " Source = C : \\ Northwind 2007.accdb " . och ange sökvägen och namnet på din Access-databas

6

Kopiera och klistra in i nästa rad följande kod för att skapa en ADO -anslutning till en SQL Server och fråga en databas tabell :

Dim ADOConn som ny ADODB.Connection

Dim ADORst Som New ADODB.Recordset

Dim ADORslt As String

ADOConn.ConnectionString = " Provider = SQLNCLI10 ; " _

& " Server = namnet på din server ; " _

& " Database = din databas namn , " _

& " Integrated Security = SSPI ; " _

& " DataTypeCompatibility = 80 ; " _

& " MARS Connection = false; "

ADOConn.Open ( ) katalog

ADORst.ActiveConnection = ADOConn

ADORst = ADOConn.Execute ( " SELECT tableName.fieldName FRÅN tableName , . " ) katalog

( Not ADORst.EOF ) katalog

ADORslt = ADORst.Fields ( " fieldName " ) Value

MsgBox ( ADORslt ) katalog

ADORst.MoveNext ( ) katalog

Slut Medan

ADOConn.Close ( ) katalog

ADOConn = Nothing