Open Microsoft Access ( 2000 of hoger ) en maak een nieuwe database genaamd Contacten 1 . Maak een tabel tblContacts en voeg twee tekstvelden , Voornaam en Achternaam . Voer een paar namen in de tabel , dan sluit Access .

Open Visual Basic.Net 2 (alle versies ) en maak een nieuwe console applicatie . Voeg de volgende regel voor de module verklaring

invoer System.Data.OleDb

Module Module1

De OleDb namespace biedt verwijzingen naar de toegang tot de database objecten .
< Br > Goedkope 3

Voeg de volgende regel voor de module verklaring

invoer System.Data.OleDb Module

Module1

de OleDb namespace biedt verwijzingen naar de databank . toegang objecten
4

Plaats een verbinding string na de module verklaring

Prive connString
As String = " Provider = Microsoft.ACE.OLEDB.12.0 ; data Source = d : . \\ contacts.mdb ; "

de verbinding string beschrijft hoe OleDb zal communiceren met de database. Tthis voorbeeld gebruikt de Microsoft ACE -provider om te communiceren met de Access -database

d : \\ contacts.mdb . Verander de locatie van de database die u hebt gemaakt in stap 1 .
5

Kopieer onderstaande in de Main -methode code weer te geven . Beginnen door te verklaren dat de variabele SearchString , waarin de SQL-opdracht om de gegevens te selecteren bevat .

Sub Main
( )

Dim SearchString
As String = "Selecteer Voornaam, Achternaam Van tblContacts "

SearchString & = " Sorteer op Achternaam, Voornaam ; " .
6

tot stand brengen van een verbinding met de Access-database met behulp van de OleDbConnection object

Dim conn
als Nieuwe OleDbConnection

Try

conn.ConnectionString = connString

conn.Open ( ) op

Catch ex
als Uitzondering

Console.WriteLine
( " Kan niet openen van de database " )

Console.WriteLine ( ex.Message )

Terug

Einde
Try

gebruik altijd gestructureerd uitzonderingen ( try /catch ) om val en verslag fouten gegooid door de toegang tot de gegevens objecten.
7

Maak commando en data adapter voorwerpen en gebruik ze om de zoekresultaten op te halen in een nieuwe DataSet structuur .

Dim ds
As New DataSet < br >

Probeer

Dim cmd
als Nieuwe OleDbCommand ( SearchString , conn )

cmd.CommandType = CommandType.Text

Dim dap
Als Nieuw OleDbDataAdapter

dap.SelectCommand = cmd

dap.Fill
( ds )

Catch ex
als Uitzondering

Console.WriteLine
( " Kan niet de zoekopdracht uit te voeren Probeer

Loop 8 door de rijen van de Dataset om de velden Voornaam en Achternaam halen . Aangezien de toegang van een null-waarde veroorzaakt een uitzondering , altijd test voor null-waarden vóór het ophalen van hen.

Console.WriteLine ( " Contacts : ' ) .

Elke rij als DataRow In ds.Tables ( 0 ) Rijen

Als row.IsNull ( " Voornaam " ) = False dan

Console.Write ( rij ( " Voornaam " ) & " " )

Eind
Als

Als row.IsNull ( " Achternaam " ) = True Als

Volgende

WriteLine
( " Gevonden " & ds.Tables ( 0 ) . Rows.Count.ToString & " contacten " )

End Sub

End Module