Library . " Klik op " OK . " Het toevoegen van deze referenties wordt u
Dubbelklik op " Button1 " 4 toegang geven tot zowel van deze objecten . Naar de " Form1.vb " module te openen . Typ het volgende in de allereerste regel boven " Public Class Form1 " :
Imports
System.Data.OleDb
Imports ADODB
Copy
5 en plak de volgende onder " Button1_Click " om een OLE -verbinding te maken en maak een tabel in een Access-database :
Dim OLEConn
Zoals OleDbConnection
Dim OLECmd
Zoals OleDbCommand
Dim strSQL
als Koord < br >
OLEConn = Nieuwe OleDbConnection _
( " Provider = Microsoft.ACE.OLEDB.12.0 ; data Source = C : \\ Noordenwind 2007.accdb ; " )
OLEConn.Open
( ) op
strSQL = " CREATE TABLE ThisTable " _
& " ( Voornaam CHAR , Achternaam CHAR ) ; "
OLECmd = Nieuw OleDbCommand ( strSQL , OLEConn ) op Twitter
OLECmd.ExecuteNonQuery ( )
OLEConn.Close ( ) op
Edit " Source = C : \\ Noordenwind 2007.accdb "
. en typt u het pad en de naam van uw Access-database < br >
Copy 6 en plakken in de volgende regel de volgende code om een ADO- verbinding met een SQL Server en vraag een database- tabel te maken :
Dim ADOConn
als Nieuwe ADODB.Connection
Dim ADORst als Nieuwe ADODB.Recordset
Dim ADORslt
als Koord
ADOConn.ConnectionString = " Provider = SQLNCLI10 ; " _
& " server = naam van uw server ; " _
& " Database = uw database naam ; " _
& " Integrated Security = SSPI ; " _
& " DataTypeCompatibility = 80 ; " _
& " MARS Connection = False ; "
ADOConn.Open
( )
ADORst.ActiveConnection
= ADOConn
ADORst
= ADOConn.Execute ( " SELECT tabelnaam.veldnaam FROM tabelnaam ; . " ) op Twitter
Terwijl ( Niet ADORst.EOF ) op
ADORslt = ADORst.Fields ( " veldnaam " ) Value
MsgBox ( ADORslt )
ADORst.MoveNext ( )
End
Terwijl
ADOConn.Close ( )
ADOConn = Nothing