begin process at 2012 02 17 11:10:51
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Base de Donnees

 > CONNEXION À UNE BASE DE DONNÉES ET DÉFILEMENT DES ENREGISTREMENTS

CONNEXION À UNE BASE DE DONNÉES ET DÉFILEMENT DES ENREGISTREMENTS


 Information sur la source

Note :
Aucune note
Catégorie :Base de Donnees Niveau :Débutant Date de création :02/05/2003 Date de mise à jour :03/05/2003 15:54:12 Vu / téléchargé :8 431 / 1 287
Auteur : neibaf

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

 Description

C'est tout simple : voici un programme qui se connecte à une base de données (Test.mdb) et qui, toutes les secondes, se déplace d'un enregistrement. Cela permet donc de lister la base.

J'ai mis ce code car en fait j'ai eu quelques difficulté à le trouver sur le site.
Bien entendu, il est pour des débutants.

02/05/03
Par contre j'ai un petit problème :
A côté de ce programme, j'ai fait une interface en ASP pour pouvoir ajouter dynamiquement des enregistrement dans la base. En fait, je lance mon programme et ensuite je lance mon interface. Je vois donc des enregistrements défiler dans ma fenetre.
En meme temps je rajoute un enregistrement via la page ASP. Une fois l'enregistrement effectué il devrait s'afficher dans le programme. Helas non. ALORS SI QUELQU'UN SAIT COMMENT ON FAIT POUR RAFRAICHIR LA BASE DE DONNEE DANS VB.... je lui en serais très reconnaissant !!
Merci a tous !!

03/05/03
Grace a PROGRAMMIX j'ai pu corriger mon probleme ! J'ai mis le rsADO.Requery dans la boucle "if" qui test si la base est finie.
Merci bcp Programmix!
Mais il reste encore un truc. Le rafraichissement de la base ne se fait qu'au second passage !
Mais bon c'est déjà pas mal !
Les aides et commentaires sont toujours les bien venus !
Merci @ tous...


03/05/03... Quelques heures après..... ;o) !
J'ai rajouter deux fichiers dans le zip pour effectuer un petit test de conflit.
Le test est simple. Il se compose de deux pages en ASP qui permettent une action d'enregistrement sur la base. L'EXE Standard liste le contenu de la base.
[b]Réalisation du test :[/b]
1/ Placer le contenu du zip dans un répertoire situé sur un serveur (wwwroot).
2/ Lancer l'exécutable accesBase.exe
3/ Exécuter la page saisie_nom.asp dans un navigateur et insérer un nom dans le champ correspondant puis valider.
[b]Résultat :[/b] Après l'enregistrement du nom, l'exe accesBase.exe liste le nouvel enregistrement sans conflit (petit bug : attendre le deuxieme passage dans le listage des enregistrements).
Voila !

Source

  • Option Explicit
  • '--- Déclaration obligatoire des variables---
  • ' Pour la connection à la base de données
  • Dim cnnADO As New ADODB.Connection
  • ' Pour la commande à la base de données
  • Dim cmdADO As New ADODB.Command
  • ' Pour recevoir le résultat de la commande
  • Dim rsADO As New ADODB.Recordset
  • '---Paramétrage de la base au lancement de la fenetre---
  • Private Sub Form_Load()
  • ' Choix du fournisseur de la Base de Données - pour Access - Microsoft jet OLEDB
  • cnnADO.Provider = "Microsoft.jet.OLEDB.4.0"
  • ' Chemin de la Base de Données - ici le répertoire de l'applicationcnnADO.ConnectionString = App.Path & "\test.mdb"
  • 'Ouverture de la Base de Données
  • cnnADO.Open
  • ' Pour relier la connexion ouverte à la commande
  • cmdADO.ActiveConnection = cnnADO
  • ' Configuration de la conmande avec requete SQL
  • cmdADO.CommandText = "SELECT * FROM ident"
  • ' Initialisation du Curseur Client
  • rsADO.CursorLocation = adUseClient
  • ' Utilisation d'un Curseur Client Dynamique
  • rsADO.CursorType = adOpenDynamic
  • ' Transmission de la commande à la méthode Open
  • rsADO.Open cmdADO
  • End Sub
  • 'Bouton "Refresh" pour rafraichir la base a tout moment
  • Private Sub refresh_Click()
  • rsADO.Requery
  • End Sub
  • '---Configuraiton du Timer---
  • Private Sub Timer1_Timer()
  • 'Affiche dans le champ de texte un enregistrement
  • Text1.Text = rsADO("nom")
  • 'On se déplace sur l'enregistrement suivant
  • rsADO.MoveNext
  • 'Boucle "if" : si l'enregistrement suivant n'existe pas
  • If rsADO.EOF = True Then
  • 'on revient au premier
  • rsADO.MoveFirst
  • 'permet de rafrachir l'affichage, pb: ça ne se fait qu'au tour suivant
  • rsADO.Requery
  • End If
  • End Sub 
Option Explicit
'--- Déclaration obligatoire des variables---
' Pour la connection à la base de données
Dim cnnADO As New ADODB.Connection
' Pour la commande à la base de données
Dim cmdADO As New ADODB.Command
' Pour recevoir le résultat de la commande
Dim rsADO As New ADODB.Recordset

'---Paramétrage de la base au lancement de la fenetre---
Private Sub Form_Load()
' Choix du fournisseur de la Base de Données - pour Access - Microsoft jet OLEDB
cnnADO.Provider = "Microsoft.jet.OLEDB.4.0"
' Chemin de la Base de Données - ici le répertoire de l'applicationcnnADO.ConnectionString = App.Path & "\test.mdb"
'Ouverture de la Base de Données
cnnADO.Open
' Pour relier la connexion ouverte à la commande
cmdADO.ActiveConnection = cnnADO
' Configuration de la conmande avec requete SQL
cmdADO.CommandText = "SELECT * FROM ident"
' Initialisation du Curseur Client
rsADO.CursorLocation = adUseClient
' Utilisation d'un Curseur Client Dynamique
rsADO.CursorType = adOpenDynamic
' Transmission de la commande à la méthode Open
rsADO.Open cmdADO
End Sub

'Bouton "Refresh" pour rafraichir la base a tout moment
Private Sub refresh_Click()
rsADO.Requery
End Sub

'---Configuraiton du Timer---
Private Sub Timer1_Timer()
'Affiche dans le champ de texte un enregistrement
Text1.Text = rsADO("nom")
'On se déplace sur l'enregistrement suivant
rsADO.MoveNext
'Boucle "if" : si l'enregistrement suivant n'existe pas
If rsADO.EOF = True Then
'on revient au premier
    rsADO.MoveFirst 
'permet de rafrachir l'affichage, pb: ça ne se fait qu'au tour suivant
    rsADO.Requery
End If
End Sub


 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


 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

Commentaires et avis

Commentaire de PROGRAMMIX le 02/05/2003 21:45:28

OK très simple effectivement.
Façon originale de passer en revue des enregistrements.

Par contre pour les question, tu dois normalement passer par le forum.
Mais bon... Personnellement, je pense que ton problème se situe dans le fait que ton programme charge la table au démarrage et parcours ensuite les enregistrements qu'il a mémorisé.  Or si tu ajoutes des enregistrements, tu devrais mémoriser recharger la table ...  Essaie avec rsAdo.Requery...

Commentaire de houssem_rebai le 04/05/2006 18:32:17

salut c'est un bon code mais si vous avez une grande application en vb elle va être allourdi à cause de cette actualisation puisse tu avoir une autre solution de raffraichissement plus rapide

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Motorola MILESTONE
Entre 489€ et 489€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Happy Bright Landscape WIth ButterfliesPhoto Underwater View of the Ocean With LIght Shining Through the Wave
Photo Coral colony and coral fish 

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,858 sec (3)

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)