. Kjernen i alle Visual Basic.Net ' s datatilgangsmetoder ligger ADO.Net . Dette datatilgang teknologi ble lansert i originalen. Net rammeverket . Den forbinder med mange databaseservere , inkludert Microsoft Access , og tilbyr mer fleksibilitet og gir sterk feilbehandling. Tilkobling til Microsoft Access kan illustreres ved å lage en enkel konsoll applikasjon som viser navn fra en kontaktdatabase . Instruksjoner
en
Åpne Microsoft Access- ( 2000 eller senere) , og opprette en ny database kalt Kontakter. Lag en tabell tblContacts og legge til to tekstfelt, fornavn og etternavn . Skriv noen få navn i tabellen , deretter tett Access.
2
Åpen Visual Basic.Net (alle versjoner ) og opprette en ny konsoll applikasjon . Legg til følgende linje før Module uttalelse
import System.Data.OleDb
Module Module1
OLEDB namespace gir referanser til databasen Access-objekter .
3
Legg til følgende linje før Module uttalelse
import System.Data.OleDb
Module Module1
OLEDB namespace gir referanser til databasen . tilgang gjenstander
4
Sett inn en forbindelse strengen etter modulen erklæringen
Private connString As String = " Provider = Microsoft.Ace.OLEDB.12.0 ; datakilde = d: . \\ contacts.mdb ; "
forbindelse streng beskriver hvordan OLEDB vil kommunisere med databasen . Tthis eksempel bruker Microsoft ACE leverandøren for å kommunisere med Access
database d: \\ contacts.mdb . Endre plasseringen for å reflektere den databasen du opprettet i trinn 1. .
5
Kopier koden nedenfor i den viktigste metoden . Start med å erklære den variable searchstring , som inneholder SQL -kommandoen til å velge dataene .
Sub Main ( )
Dim searchstring As String = "Velg Fornavn, Etternavn Fra tblContacts "
< p> searchstring & = " Sorter etter Etternavn, Fornavn ; " .
6
opprette en tilkobling til Access-databasen ved hjelp av OleDbConnection objektet
Dim conn som ny OleDbConnection
< p> Prøv
conn.ConnectionString = connString
conn.Open ( )
Catch ex As Exception
Console.WriteLine ( "Kan ikke åpne databasen ")
Console.WriteLine ( ex.Message )
Return
End Prøv
bruk alltid strukturerte unntak ( prøve /fangst ) å felle og rapport feil kastet av datatilgang stedene.
7
Lag kommando og data adapter gjenstander og bruke dem til å hente søkeresultatene inn i et nytt datasett struktur .
Dim ds som nye datasett
Prøv
Dim cmd som ny OleDbCommand ( searchstring , conn )
cmd.CommandType = CommandType.Text
Dim dap som ny OleDbDataAdapter
< p> dap.SelectCommand = cmd
dap.Fill ( ds )
Catch ex As Exception
Console.WriteLine ( "Kan ikke utføre søket Prøv
8
Loop gjennom radene i Dataset å hente Fornavn og Etternavn felt. Siden tilgang til en nullverdi til et unntak , alltid test for nullverdier før å hente dem .
Console.WriteLine ( "Kontakter :" ) .
Hver rad Som DataRow I ds.Tables ( 0 ) Rader
p Hvis row.IsNull ( " Fornavn" ) = False Deretter
Console.Write (rad ( " Fornavn" ) & " ")
End If
p Hvis row.IsNull ( "Etternavn" ) = sant Hvis
Neste
WriteLine ( "Funnet" og ds.Tables ( 0 ) . Rows.Count.ToString & "kontakter" )
End Sub
< p > End Module
