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

Soyez le premier à donner votre avis sur cette source.

Vue 22 404 fois - Téléchargée 27 916 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

musta47
Messages postés
15
Date d'inscription
lundi 27 mars 2006
Statut
Membre
Dernière intervention
3 mars 2014
-
Salut, c'est Excellent comme travail j'essaie de faire ainsi et j'aimerai bien etre averti du nouveau Merci
crachzero
Messages postés
1
Date d'inscription
mardi 25 décembre 2007
Statut
Membre
Dernière intervention
25 décembre 2007
-
trés bien j'é bien aimé


crachzero
Romano58
Messages postés
120
Date d'inscription
lundi 26 février 2007
Statut
Membre
Dernière intervention
7 octobre 2011
-
Purée, trop lisible le code bravo....

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.