UTILISER UNE BASE DE DONNÉES ACCESS AVEC ADO.NET

'Comment utiliser ce module :
Option Strict On
'1) Lire une DB
'Avec un OleDbDataReader
Sub LireLaDb(...)
Implements System.Data.OleDb

'La SQL d'ordre
Dim OrdreSQL As String = _
"SELECT * FROM MaDB WHERE Nom = 'Dupond'"
'Le DataReader qui lira les données :
Dim DB as OleDbDataReader
Dim Prénom(4), Nom(4) As String
'Compteur
Dim i as UInteger = 0

'On retire l'information
Set DB = LireDB(OrdreSQL)

'Utiliser le DataReader comme habituel avec :
While DB.Read()
Prenom(i) = DB("Prenom")
Nom(i) = DB("Nom")
i = 1 + i
End While
'La Méthode Read avance automatiquement
'le focus d'une ligne dans les résultats de la BD
'Note : Tout l'Array Nom() a la même valeur  : "Durand"
'Car la recherche spécifiait toutes les personnes
'appelées ainsi.
'Pour Plus d'informations, condultez
' l'onglet 'SQL' de Codes Sources.
End Sub

'Pour un compteur :
Sub Scalar()
Dim OrdersSQL as String = _
"SELECT COUNT * FROM MaDB WHERE DateNaissance < #03/22/1980#"
Dim Compteur As Integer

Compteur = LireDB(OrdersSQL, True)
 'Retourne le nombre de personnes nées avant le 22 Mars 1980.
End Sub

'2)Modifier la DB
Sub ModifierLaDB()
Dim OrdersSQL As String = _
"INSERT INTO MaTable (Nom, Prénom) VALUES ('Durand' , 'Patrick')"
Dim Lignes As Integer 'Nombre de lignes changées
Lignes = OrdersDB(OrdersSQL)
End Sub

'3)A la fin de l'Appel SQL toujours fermer la connexion
Sub Quitter()
Call CloseConnection
End Sub