. Kärnan i alla Visual Basic.Net s dataåtkomstmetoder ligger ADO.Net . Detta dataåtkomst teknik släpptes i originalet . NET Framework . Den ansluts med många databasservrar , inklusive Microsoft Access , erbjuder större flexibilitet och ger starka felhantering . Anslutning till Microsoft Access kan illustreras genom att skapa en enkel konsol program som listar namnen från en kontakter databas . Instruktioner
1
Öppna Microsoft Access ( 2000 eller senare ) och skapa en ny databas som kallas Kontakter. Skapa en tabell tblContacts och tillsätt två textfält , Förnamn och Efternamn . Skriv några namn i tabellen , stäng sedan Access.
2
Öppna Visual Basic.Net ( alla versioner ) och skapa en ny konsol ansökan . Lägg till följande rad före Module uttalande
import System.Data.OleDb
Module Module1
OLEDB namespace ger referenser till databasobjekt tillgång .
Billiga 3
Lägg till följande rad före Module uttalande
import System.Data.OleDb
modul Module1
OLEDB namespace ger hänvisningar till databasen . åtkomst till objekt
4
in en anslutning strängen efter Moduldeklaration
Privat connString As String = " Provider = Microsoft.Ace.OLEDB.12.0 , Data Source = d : . \\ contacts.mdb ; "
anslutningssträngen beskriver hur OLEDB kommer att kommunicera med databasen . Ddetta exempel använder Microsoft ACE leverantören för att kommunicera med Access-
databas d : \\ contacts.mdb . Ändra platsen för att spegla den databas du skapade i steg 1 .
5
Kopiera koden nedan i den huvudsakliga metoden . Börja genom att deklarera variabeln SearchString , som innehåller SQL- kommando för att välja data.
Sub Main ( ) katalog
Dim SearchString As String = "Välj Förnamn, Efternamn Från tblContacts "
SearchString & = " Order by Efternamn, Förnamn , " .
6
upprätta en anslutning till Access- databasen med OleDbConnection objektet
Dim conn som ny OleDbConnection
Försök
conn.ConnectionString = connString
conn.Open ( ) katalog
Catch ex Som Exception
Console.WriteLine ( "Kan inte öppna databasen " ) katalog
Console.WriteLine ( ex.Message ) katalog
Return
End försök
använd alltid strukturerade undantag ( prova /catch ) till fällan och rapport fel som kastas av föremålen dataåtkomst .
7
Skapa kommandot och dataobjekt adapter och använda dem för att hämta sökresultaten i en ny DataSet struktur .
Dim ds As New DataSet
Prova
Dim cmd som ny OleDbCommand ( SearchString , conn ) katalog
cmd.CommandType = CommandType.Text
Dim DAP Som New OleDbDataAdapter
dap.SelectCommand = cmd
dap.Fill ( ds ) katalog
Catch ex Som Exception
Console.WriteLine ( "Kan inte utföra sökningen Prova
8
Loop genom raderna på datamängden för att hämta Förnamn och Efternamn fält . Sedan åt ett null-värde orsakar ett undantag , alltid testa för null-värden innan du hämtar dem .
Console.WriteLine ( " Kontaktpersoner : " ) .
för varje rad som DataRow I ds.Tables ( 0 ) rader
p Om row.IsNull ( " Förnamn " ) = False Sen
Console.Write ( rad ( " Förnamn " ) & " " ) katalog
End If
p Om row.IsNull ( "Efternamn " ) = Sant Om
Nästa
WriteLine ( "hittat" & ds.Tables ( 0 ) . Rows.Count.ToString & " kontakter " ) katalog
End Sub
ändmodul
