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 465 fois - Téléchargée 27 936 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