Soyez le premier à donner votre avis sur cette source.
Vue 12 615 fois - Téléchargée 1 036 fois
'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
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.