Library " . " Klikk " OK " for å legge referansen
3 Import den adodb namespace ved å skrive følgende linje med kode i den første linjen i modulen : .
Importen adodb
4
Skriv inn følgende VB koden under " Sub Main ( ) " for å lage en ny variabel : en
Dim ADOconnection som ny ADODB.Connection
5
Kopier og lim inn følgende kode for å koble til en database i SQL server:
ADOconnection.ConnectionString = " Provider = SQLNCLI10 ; " _
& " server = server Name :" _
& " Database = DATABASENAVN ; " _
& " Integrated Security = SSPI ; " _
& " DataTypeCompatibility = 80 ; " _
& " MARS tilkobling = False ; "
ADOconnection.Open ( )
6
Edit" server Name " og skriv inn navnet på din SQL server . Rediger " DATABASE NAME " og skriv inn navnet på databasen du vil koble deg til
7
Skriv inn følgende for å lukke tilkoblingen når du er ferdig med tilkoblingen : .
ADOconnection.Close ( )
ADOconnection = Ingenting