1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Base de Donnees
  5. Unne application de gestion de base de donnée access sans dataenvironnement ni adodc

Unne application de gestion de base de donnée access sans dataenvironnement ni adodc

0/5 (3 avis)

Vue 22 878 fois - Téléchargée 28 135 fois

Télécharger le projet
Commenter

Description

Et en ce qui concerne l'exemple de gestion d'une base de donnée ce code source qui est commenté en expliquant la méthode de connexion d'une base de données sans utiliser ni dataenvironnement ni contrôle adodc ,donc c'est une connexion directe par code.
Biensûr il y a avec lui une gestion des exceptions généralisées.
La base de données Access se constitue de trois tables relationnelles et deux requêtes de sélection
le programme en Visual basic fait la consultation at l'affichage des données dans un mshflexgrid et les opérations de mise à jour normales l'ajout et la modification.
et je voulais noter qui m'as aidé a déposer ce code c'est un ami qui veut mon aide alors j'ai consacré 4 jours mais pas 24 heures par jour biensur , alors lorsque j'ai finis ce code j'ai l'idée de le déposer dans ce très beau site et aider des autres et j'espère bonne chance pour tout
mon émail:mohamedfnicha@hotmail.com

Source / Exemple : 


'Etablir la connexion avec la base
'******************************************
cnnADO.Provider = "Microsoft.jet.OLEDB.4.0"
cnnADO.ConnectionString = App.Path & "\testbd.mdb"
cnnADO.Open
'configurer la commande
cmdADO.ActiveConnection = cnnADO
rsadovendeur.CursorLocation = adUseClient
rsadocomboc.CursorLocation = adUseClient
rsadocombov.CursorLocation = adUseClient
rsadoclient.CursorLocation = adUseClient
rsadoventeclient.CursorLocation = adUseClient
rsadorvendeur.CursorLocation = adUseClient
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
End
End Sub
Private Sub mnclientvt_Click()
' la création de la requette venteclient
cmdADO.CommandText = "SELECT ca.code, ca.client, SUM(ca.vente) " _
& "AS `Chiffre d'affaires définitif` FROM ca GROUP BY ca.code, ca.client"
If rsadoventeclient.State = 1 Then rsadoventeclient.Close
rsadoventeclient.Open cmdADO
If rsadoventeclient.State = 0 Then rsadoventeclient.Open "venteclient", cnnADO, , adLockOptimistic, adCmdText
With fliste
Set .lstpersonnels.DataSource = rsadoventeclient
.Caption = "Chiffre d'affaires par vendeurs"
End With
bordrvendeur 'appel de la procédure de dimmensionnement du tableau
End Sub

Private Sub mnrvendeurvt_Click()
' la création de la requette rvendeur
cmdADO.CommandText = "SELECT ca.Matricule, ca.Nom, SUM(ca.vente) " _
& "AS `Chiffre d'affaires définitif` FROM ca GROUP BY ca.Matricule, ca.Nom"
If rsadorvendeur.State = 1 Then rsadorvendeur.Close
rsadorvendeur.Open cmdADO
If rsadorvendeur.State = 0 Then rsadorvendeur.Open "rvendeur", cnnADO, , adLockOptimistic, adCmdText
With fliste
Set .lstpersonnels.DataSource = rsadorvendeur
.Caption = "Chiffre d'affaires par vendeurs"
End With
bordrvendeur 'appel de la procédure de dimmensionnement du tableau
End Sub

Private Sub mnvendeur_Click()
fliste.Caption = "Vendeurs"
etatplma = 2
bordvendeur 'appel de la procédure de dimmensionnement du tableau
End Sub
Private Sub mnclient_Click()
fliste.Caption = "Clients"
etatplma = 3
bordclient
End Sub
Private Sub mnsvente_Click()
etatplma = 4
With fsaisie
.Caption = "Saisie des ventes"
.Height = 4700
.fravente.Visible = True
.Width = 5200
.fbouform.Top = 3000
.fbouform.Left = 1400
If rsadocomboc.State = 0 Then rsadocomboc.Open "client", cnnADO, , adLockOptimistic, adCmdTable
Set .txtclient.RowSource = rsadocomboc
.txtclient.ListField = "code"
If rsadocombov.State = 0 Then rsadocombov.Open "vendeur", cnnADO, , adLockOptimistic, adCmdTable
Set .combocodevendeur.RowSource = rsadocombov
.combocodevendeur.ListField = "Matricule"
If rsadovendeur.State = 0 Then rsadovendeur.Open "vente", cnnADO, , adLockOptimistic, adCmdTable
rsadovendeur.AddNew
.Show vbModal
End With
End Sub
Private Sub Quit_Click()
Unload Me
End
End Sub
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Utilisateur anonyme
27 févr. 2008 à 15:25
Purée, trop lisible le code bravo....
crachzero
Messages postés
1
Date d'inscription
mardi 25 décembre 2007
Statut
Membre
Dernière intervention
25 décembre 2007
25 déc. 2007 à 16:59
trés bien j'é bien aimé


crachzero
musta47
Messages postés
15
Date d'inscription
lundi 27 mars 2006
Statut
Membre
Dernière intervention
3 mars 2014
17 sept. 2007 à 13:02
Salut, c'est Excellent comme travail j'essaie de faire ainsi et j'aimerai bien etre averti du nouveau Merci
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.