. Kernen i alle Visual Basic.Net 's dataadgangsmetoder ligger ADO.Net . Dette dataadgang teknologien blev frigivet i originalen. Net rammer. Det forbinder med mange databaseservere , herunder Microsoft Access , giver større fleksibilitet og giver en stærk fejlhåndtering . Tilslutning til Microsoft Access kan illustreres ved at skabe en simpel konsol applikation , der viser navne fra en kontaktdatabase . Instruktioner
1
Åbn Microsoft Access (2000 eller senere) og oprette en ny database kaldet Kontakter. Oprette en tabel tblContacts og tilføje to tekstfelter , Fornavn og Efternavn . Indtast et par navne i tabellen , og luk derefter Access.
2
Open Visual Basic.Net ( enhver version ) og oprette en ny konsol applikation. Tilføj følgende linje før modul erklæring
import System.Data.OleDb
Module Module1
OLEDB namespace giver henvisninger til databasen adgang objekter.
< Br >
3
Tilføj følgende linje før modul erklæring
import System.Data.OleDb
Modul Module1
OLEDB namespace giver henvisninger til databasen . adgang objekter
4
Indsæt en forbindelse streng efter modulet erklæring
Private connString As String = " Provider = Microsoft.Ace.OLEDB.12.0 , datakilde = d : . \\ contacts.mdb ; "
forbindelse streng beskriver, hvordan OLEDB vil kommunikere med databasen. DDenne eksempel bruger Microsoft ACE udbyder til at kommunikere med Access
database d: \\ contacts.mdb . Skift placering for at afspejle den database, du oprettede i trin 1. .
5.
Kopier koden nedenfor ind i den vigtigste metode . Start med at erklære variable searchString , som indeholder SQL-kommando for at vælge de data .
Sub Main ( )
Dim searchString As String = "Vælg Fornavn, Efternavn Fra tblContacts "
< p> searchString & = " Sortér efter Efternavn, Fornavn ," .
6
Etabler en forbindelse til Access-database ved hjælp af OleDbConnection objekt
Dim conn som ny OleDbConnection
< p> Prøv
conn.ConnectionString = connString
conn.Open ()
Fang ex Som Exception
Console.WriteLine ( "Kan ikke åbne databasen " )
Console.WriteLine ( ex.Message )
Return
End Prøv
altid bruge strukturerede undtagelser ( try /catch ) til fælde og rapport fejl smidt af dataadgang objekter.
7
Opret kommando og data adapter genstande og bruge dem til at hente søgeresultaterne i en ny DataSet struktur.
Dim ds As New DataSet < br >
Prøv
Dim cmd As New OleDbCommand ( searchString , conn )
cmd.CommandType = CommandType.Text
Dim dap Da New OleDbDataAdapter
< p> dap.SelectCommand = cmd
dap.Fill (DS)
Fang ex Som Exception
Console.WriteLine ( "Kan ikke udføre søgningen Prøv
8
Loop gennem rækkerne af datasættet for at hente de Fornavn og Efternavn felter. Da adgang til en null-værdi medfører en undtagelse , altid test for null værdier, før at hente dem.
Console.WriteLine ( "Kontakter :") .
Hver række Som DataRow I ds.Tables (0) Rækker
p Hvis row.IsNull ( " Fornavn" ) = False Derefter
Console.Write (række ( " Fornavn" ) & "")
End If
p Hvis row.IsNull ( "Efternavn " ) = Sand Hvis
Næste
WriteLine ( "fundet" & ds.Tables (0). Rows.Count.ToString & " kontakter" )
End Sub
< p > End Module