0/5 (3 avis)
Vue 22 878 fois - Téléchargée 28 135 fois
'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
27 févr. 2008 à 15:25
25 déc. 2007 à 16:59
crachzero
17 sept. 2007 à 13:02
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.