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 561 fois - Téléchargée 28 043 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
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
- Unne application de gestion de base de donnée access sans dataenvironnement ni adodc
- Gestion de bases de données access et mysql - Codes sources - C# / .NET (Base de données)
- Visual Basic / VB.NET : Gestion de base de donnée access complète avec orienté - Guide
- Acces à une base de donnée access sans controle - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Base de données Access sans BDE ✓ - Forum - Delphi / Pascal
- Visual Basic / VB.NET : Exemple d'application de gestion de notes (bases de données access so - Guide
Commentaires
crachzero
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.