Open Microsoft Visual Basic Express en selecteer " nieuw project ... " uit het linkervenster van het scherm . Klik op " Visual Basic " onder " Geïnstalleerde sjablonen , " en dubbelklik op " Windows Forms Application . " Kopen van 2

Klik op de " Toolbox " venster en dubbelklik op " knop" om een nieuwe knop toe te voegen aan uw formulier . Klik op het menu " Project " en selecteer " Eigenschappen. " Klik op " Referenties " en selecteer vervolgens " toevoegen . " Selecteer " COM " en klik op " Microsoft ActiveX Data Objects Library . " Klik op "OK . "

Dubbelklik op " Button1 " 3 op de " Form1.vb " module te openen . Typ het volgende in de allereerste regel boven " Public Class Form1 " :

Imports
System.Data.OleDb

Imports ADODB

Type 4 het volgende onder " Button1_Click "om uw OLEDB connectie variabelen op te geven :

Dim oleDBConn
Zoals OleDbConnection

Dim oleDBComm Zoals OleDbCommand

Dim sqlstr
als Koord

Type 5 de volgende onder " Button1_Click " om uw ADO-verbinding variabelen op te geven :

Dim AdoCon als Nieuwe ADODB.Connection

Dim AdoRst
als Nieuwe ADODB.Recordset

Dim adoResult als Koord
< br >

Type 6 de volgende opties om een ​​nieuwe verbinding te maken met de database Noordenwind :

oleDBConn = nieuwe OleDbConnection
_

( " Provider = Microsoft.ACE.OLEDB.12.0 , data Source = C : \\ Noordenwind 2007.accdb ; " ) oleDBConn.Open ( )

Bewerken
" Bron = C : . \\ Noordenwind 2007.accdb " en typ het pad naar uw Access-database
< br

type> 7 het volgende om een ​​nieuwe ADO- verbinding met uw SQL Server- database te maken :

AdoCon.ConnectionString
= " Provider = SQLNCLI10 ; " _

& " server = uw server naam ; " _

& " Database = uw database naam ; " _

& " Integrated Security = SSPI ; " _

& " DataTypeCompatibility = 80 ; " _ < >

& " MARS Connection = False ; " br

AdoCon.Open ( )

Type 8 de volgende opties om een ​​nieuwe tabel te maken in de database Noordenwind :

sqlstr = " CREATE TABLE ThisTable " _

& " ( Voornaam CHAR , Achternaam CHAR ) ; "

oleDBComm = Nieuw OleDbCommand ( sqlstr , oleDBConn )

oleDBComm
. ExecuteNonQuery ( ) op

oleDBConn.Close ( )

type 9 de volgende om een tafel te bevragen in uw SQL -server :

AdoRst.ActiveConnection
= AdoCon < br >

AdoRst = AdoCon.Execute ( " SELECT tabelnaam.veldnaam FROM tabelnaam ; " )

Typ het volgende om lus door de query- resultaten en weergeven via een message box :

Terwijl ( Niet AdoRst.EOF )

adoResult = AdoRst.Fields ( " fieldName " ) . Value

MsgBox ( adoResult )

AdoRst.MoveNext (
) op Twitter

End While

AdoCon.Close ( ) op

AdoCon
= Nothing

Druk op "F5 "
om uw programma uit te voeren en klik op ' Button1 . "
< br >