begin process at 2012 02 09 01:34:13
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Base de Donnees

 > GESTION DE DONNÉES AVEC ACCESS

GESTION DE DONNÉES AVEC ACCESS


 Information sur la source

Note :
Aucune note
Catégorie :Base de Donnees Source .NET ( DotNet ) Classé sous :Base Données, multimédia, Shell, chaine Niveau :Débutant Date de création :07/11/2008 Date de mise à jour :16/12/2008 11:52:06 Vu / téléchargé :10 264 / 2 145
Auteur : fradimed

Ecrire un message privé
Commentaire sur cette source (11)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Cette source est un petit exemple qui a pour rôle de gérer les fonctions les plus utilisable en Base de données Ex:Insertion,Modification,Suppression,Recherche. (La source conçerne Microsoft Access)

Source

  • Imports System.Data.OleDb
  • Module Connect
  • Public Cn As OleDbConnection
  • Public CmdR As OleDbCommand
  • Public Sub Connection()
  • Dim strCon$ = CStr("Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + My.Application.Info.DirectoryPath & "\DataBase\test.mdb;")
  • Cn = New OleDbConnection(strCon)
  • Cn.ConnectionString = strCon
  • Cn.Open()
  • End Sub
  • Public Sub Affichage()
  • With main.la
  • .Items.Clear()
  • CmdR = Cn.CreateCommand() 'Creation de commande
  • CmdR.CommandText = "select * from liste" ' Creation de la requete SQL
  • CmdR.ExecuteNonQuery() 'Exécution de requet
  • Dim enumerate As OleDbDataReader = CmdR.ExecuteReader()
  • Dim i% = 0
  • Do While enumerate.Read
  • .Items.Add(enumerate.Item(0).ToString)
  • .Items(i).SubItems.Add(enumerate.Item(1).ToString)
  • .Items(i).SubItems.Add(enumerate.Item(2).ToString)
  • .Items(i).SubItems.Add(enumerate.Item(3).ToString)
  • i += 1
  • Loop
  • enumerate.Close()
  • End With
  • End Sub
  • End Module
  • 'La suite de code est dans le fichier .zip
Imports System.Data.OleDb
Module Connect
    Public Cn As OleDbConnection
    Public CmdR As OleDbCommand
    Public Sub Connection()
        Dim strCon$ = CStr("Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + My.Application.Info.DirectoryPath & "\DataBase\test.mdb;")
        Cn = New OleDbConnection(strCon)
        Cn.ConnectionString = strCon
        Cn.Open()
    End Sub

    Public Sub Affichage()
        With main.la
            .Items.Clear()
            CmdR = Cn.CreateCommand() 'Creation de commande
            CmdR.CommandText = "select * from liste" ' Creation de la requete SQL
            CmdR.ExecuteNonQuery() 'Exécution de requet
            Dim enumerate As OleDbDataReader = CmdR.ExecuteReader()
            Dim i% = 0
            Do While enumerate.Read
                .Items.Add(enumerate.Item(0).ToString)
                .Items(i).SubItems.Add(enumerate.Item(1).ToString)
                .Items(i).SubItems.Add(enumerate.Item(2).ToString)
                .Items(i).SubItems.Add(enumerate.Item(3).ToString)
                i += 1
            Loop
            enumerate.Close()
        End With
    End Sub
End Module

'La suite de code est dans le fichier .zip


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

18 novembre 2008 13:30:48 :
Je remplace la reference DAO 3.6 par ADO
16 décembre 2008 11:52:08 :
L'ancien code contient une erreur dans la reqêute de modification de donnée.

 Sources de la même categorie

Source avec Zip Source avec une capture BIEN ADMINISTRER LES ETUDIANTS ET LEURS CÔTES par okosa
Source avec Zip VBA EXEL GESTION DE PERSONEL NOUVEAU CONTRAT DE TRAVAI par oudlarbi
Source avec Zip Source avec une capture CREATION D'UN OBJET D'ACCÈS AUX DONNÉES par okosa
Source avec Zip Source .NET (Dotnet) MISAHORAIRE par MdelM
Source avec Zip Source avec une capture BASEDEDONNEES,GESTIONDEMALADES,DATABASSE par shadkitenge
Toutes les sources de la catégorie Base de Donnees

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture LECTEUR MULTIMÉDIA par lartiguef
Source avec Zip Source avec une capture Source .NET (Dotnet) GESTION DE PC par TedX80
Source avec Zip Source avec une capture UTILISER LES COMMANDES WINDOWS EN VB par Sechaud
Source avec Zip Source avec une capture Source .NET (Dotnet) AJOUTER - MODIFIER - SUPPRIMER DANS UNE BDD ACCESS SOUS VB20... par kewan
Source avec Zip Source avec une capture GESTIONNAIRE ASSISTANT PROJET VBP BAS par Galactus13

Commentaires et avis

Commentaire de Renfield le 07/11/2008 13:46:11 administrateur CS

exercice de style ?

ADO.Net n'est pas a ton gout ?

Commentaire de bouv le 07/11/2008 14:34:18

Salut Mister,

En tout cas il n'est pas du mien... pas plus que le DAO...
Du coup je suis resté à ADO 2.8 même avec VB.NET

Peut-être que je prend le problème du mauvais côté, mais ce que je faisait super simplement et en 3 lignes en ADO devient super compliqué et me demande 15 lignes en ADO.NET

Commentaire de casy le 10/11/2008 18:38:20

DAO en .Net !!!! Mais non je ne rêve pas, il a osé !!!

Alors pour l'info, DAO date de VB4 et VB5. Déjà avec la sortie de VB6 en 95, Microsoft signalait DAO comme étant obsolète et recommandait très vivement de passer à ADO.

Mais maintenant sous .Net, ADO est aussi obsolète car il fait pas partie de la technologie .Net. C'est ADO.Net qui le remplace, et plus exactement ADO.Net 2.0 sous VS2005 (quand même beaucoup plus puissant et plus simple à utiliser, soit-dit en passant).


DAO en .Net, et pourquoi pas le DOS6.22 sous Vista, tant que l'on y est.

Certes DAO et ADO fonctionnent toujours même sous .Net (tant que les moteurs de BDD les acceptent encore)

Commentaire de bouv le 10/11/2008 19:35:58

CASY>>Je te rejoins tout à fait concernant le fait qu'il faille aller avec l'avancement technologique. Cependant quand tu dis "plus simple à utiliser" concernant ADO.NET, je doute un peu. Les quelques essais que j'ai fait et les tutos que j'ai pu lire n'ont pas été concluants. J'ai trouvé cela au contraire beaucoup plus compliqué.

Voici en outre quelques difficultés que je n'ai pas réussi à franchir :

- Ajouter/modifier des valeurs sans les passer dans l'instruction INSERT/UPDATE. Personnellement, je prefere faire ainsi :

MonRecordset.Open("SELECT * FROM MATABLE", MaConnection)
MonRecordset.AddNew
MonRecordset!MonChamps1 = MaValeur
MonRecordset.Update
MonRecordset.Close

Je trouve la méthode plus lisible, plus simple et plus sûr (évite les problèmes lié à certains caractères : simple cote dans les String, point ou virgule dans les nombres...)


- L'utilisation des Cols et Rows rendent le parcour des enregistrement franchement beaucoup plus complexes. Pour les rows pourquoi pas mais pourquoi ne pas appeler les champs par leur nom ?

- On est désormais obligé d'utiliser un OleDbDataAdapter, un OleDbCommand et un DataTable quand un Recordset suffisait !


PS : Ce n'est qu'un avis perso, si tu possèdes des tutos illustrant le contraire je suis bien entendu le premier preneur.

Commentaire de casy le 10/11/2008 22:02:57

>>Ajouter/modifier des valeurs sans les passer dans l'instruction INSERT/UPDATE.
Personellement, je préfère, je maitrise exactement ce qui est mis à jour.

>>Je trouve la méthode plus lisible, plus simple et plus sûr
Pour l'exemple que tu donne, je ne trouve pas, L'update n'est pas mis en évidence et en débuggage tu eux très bien y tourner autour un moment avant de t'en rendre compte. Personnellement je préfère une requette Update clairement visible et identifiée dans le code.

>>évite les problèmes lié à certains caractères
Ca les masques, mais ne les évitent pas toujours. Pas évident à débugger, çà non plus.

>>pourquoi ne pas appeler les champs par leur nom
Mais c'est le cas lorsque on sait utiliser les classes .Net

>>Ce n'est qu'un avis perso
Tout à fait d'accord avec toi, tu l'auras compris, je suis absolument contre le code "vb6" en .Net mais ça n'engage que moi.
Mais j'ai surtout aussi une forte aversion pour tout ce qui est automatique et ou je ne maitrise pas ce qui est fait, notamment lorsqu'il s'agit de manipuler des données.
Je suis probablement vieux-jeu mais je préfère me taper des lignes de codes et maitriser ce que je fais.
Et je vois effectivement d'un ½il un peu sceptique toutes ces nouvelles méthodes et logiciels qui deviennent la mode et qui se charge de générer le code à ta place. C'est très pratique, c'est génial, .... quand ça marche ! ...


Commentaire de bouv le 10/11/2008 22:20:53

CASY>>Dans le fonds je crois qu'on est d'accord.

">>pourquoi ne pas appeler les champs par leur nom
Mais c'est le cas lorsque on sait utiliser les classes .Net"

Aurais-tu des exemples ou des tutos qui me permettent d'étudier cela ?

Commentaire de casy le 10/11/2008 22:25:51

soit dr un DataReader et Nom le champ à lire :

MessageBox.Show(dr("Nom").ToString)

Commentaire de casy le 10/11/2008 22:31:32

avec un DataAdapter, on ne peut même pas dire que c'est plus compliqué

soit dtr un DataRow sur la ligne à lire :

MessageBox.Show(dtr.Item("Nom").ToString)

Commentaire de bouv le 10/11/2008 22:37:39

ok pour la lecture.

Et pour l'écriture (Ajout/Modif) peut-on faire la même chose ?

Commentaire de PCPT le 11/11/2008 00:49:19 administrateur CS

salut,

en aparté il est possible en VB6 de modifier un rs "SELECT" sans faire de .Update

déroutant...
partant de ce constat, s'il n'y a plus de ".update" en dotnet, petite perte d'habitudes mais c'est pas forcément plus mal...

Commentaire de bouv le 16/11/2008 14:11:02

Salut,
Je me suis longuement penché sur la question et j'ai enfin trouvé comment manipuler ADO.Net.
Cela dit cela reste quand même un peu compliqué à mon goût. Et surtout cela demande 3 fois plus de lignes de code.
J'ai donc réalisé une class permettant de manipuler ADO.Net de la même manière que je le faisait en ADO. Cela simplifie la tâche et me permet de conserver mes habitudes.
Pour ceux que cela interesse, c'est par ici :
http://www.vbfrance.com/codes/UTILISER-ADO-NET-COMME-ADO-RECORDSET_48468.aspx

Bonne prog
++

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Commande Shell avec chaine de caractères variant [ par popiggy ] bonjour, voilà mon souçi : j'ai une commande shell du type Shell("copy C:\Program Files\mon_repertoire\toto.txt") "mon_repertoire" étant une chaine de pb pour concaténer une date au milieu d'une chaine [ par kankrelune ] Bonjour...J'ai un petit problème avec un script vbs... et comme c'est pas trop ma tasse de thé j'en appel à votre aide...Donc... en fait c'est un peti Lancer le navigateur avec shell [ par lolpop ] Bonjour,je voudrai savoir si on peux lancer le navigateur par defaut avec une url défini en utilisant la commande shell?Merci beaucoup chaine de caractere [ par jerome57440 ] bonjour ,j'ai une chaine de caractere de n element du style "abcde...." et jaimerai separer chaque caractere par un espace pour ensuite affecter une v equivalence basic shell [ par alpbutcher ] Bonjour à tous !!Existe t'il une équivalence du "&" basic en shellexemple pour faire des iterations du genrefor i = 1 to 10fichier&i&.xxx Lire chaine d'un fichier entre deux adresses Hexa [ par crazy33 ] Bonjour à tous,Je voudrait développer un logiciel qui pourra lire un fichier et me renvoyer le contenu de la chaine compris entre deux adresses hexadé Cloner une structure de données dynamiquement sans les format de chaine. Possible ? (VB6) [ par Polack77 ] Bonjour ,    Je fait actuellement de grosse modification dans un programme. Pour cela j'ai crée des classes. Dans ce programme sont déclarer des types bibliotheque des fonctions chaine [ par Mg2007 ] Erreur de compilation des fonctions chaines (trim, left, ....) quelle biblio?, merci (vb6 sous xp) complèter une chaine [ par majong ] J'ai un programme client serveur, mais le serveur est sur linux, lorsque j'envoie deux messages j'ai le tout collé ensemble car mon serveur traite des Recuperer la chaine texte d une vue "view" depuis un sql serveur [ par joketoons ] Bonjour a tous,je cherche un bout de code a mon avis tres simple mais ne le trouve pas.mon codeDim Rcdset As New ADODB.RecordsetRcdset.Open ("ReqSuivi


Nos sponsors


Sondage...

Comparez les prix


Archos 7 home tablet - 2 Go
Entre 149€ et 159€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Underwater View of the Ocean With LIght Shining Through the Wave
Photo Renewable Energy is Within Reach 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,593 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)