1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Base de Donnees
  5. Utiliser une base de données access avec ado.net

Utiliser une base de données access avec ado.net

Soyez le premier à donner votre avis sur cette source.

Vue 12 538 fois - Téléchargée 1 029 fois

Télécharger le projet
Commenter

Description

Ce module -- facile à intégrer dans un programme -- permet très facilement d'appeler une BD Access avec un objet Command(lecture) et un objet Datareader(écriture). Largement inspiré de la 2e edition du manuel de VB.NET de chez Micro Application (sans pour autant créer une classe de plus), ce module vous permettra de communiquer avec votre BD en langage SQL.

Source / Exemple : 


'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

Conclusion :


Si un problème survient, me contacter.
Si vous utilisez ce petit module ADO.NET, Mettez mon nom dans votre source ou envoyez-moi un mail! ça fait toujours plaisir!
moutonjr_@hotmail.fr
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (moutonjr)