begin process at 2012 02 17 02:44:55
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Base de données

 > 

ADO & DAO

 > 

Comment voir le nombre total d'un article dans une base de donnée


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Comment voir le nombre total d'un article dans une base de donnée

jeudi 3 avril 2008 à 19:23:34 | Comment voir le nombre total d'un article dans une base de donnée

petiflamand

Bonjour , j'ai une base de donnée avec une table journalier, la dedans ce trouve des articles vendus
j'ai ex:
Codebar,prix,quantité,département,groupe,ect.......
dans la vente de la journée il y a plusieur fois la même chose,
donc je vend peu etre 10 X cocacola 50Xpepsi ect......

j'ai fait le code si dessous pour calculer le nombre total d'article.
comment faire pour aller plus vite ??????
évidament je n'ai pas de référence d'article pour le controle puisque on ne sait pas ce qui vas etre vendu.
Merci



nitul = 0
qqaa = 0
Set db = OpenDatabase(App.Path & "\manager.mdb")
Set rs = db.OpenRecordset("journalier")
If rs.RecordCount > 0 Then
 Set rd = db.OpenRecordset("journalier")
 rs.MoveFirst

 Do Until rs.EOF = True
 nitul = rs!cod_prod
  rd.MoveFirst
 Do Until rd.EOF = True
 If rd!cod_prod = nitul Then
 nitul1 = nitul1 + rd!quantité
 End If
 rd.MoveNext
 Loop
 
Set rt = db.OpenRecordset("journalier_detaille")
If rt.RecordCount > 0 Then
rt.MoveFirst
 Do Until rt.EOF = True
If rt!cod_prod = nitul Then
qqaa = 1
End If
rt.MoveNext
Loop
End If
If qqaa = 0 Then
rt.AddNew
rt!cod_prod = rs!cod_prod
rt!design = rs!design
rt!numero_dep = rs!numero_dep
rt!departement = rs!departement
rt!quantité = nitul1

rt.Update
End If
nitul1 = 0
qqaa = 0
 rs.MoveNext
 Loop
 End If

jeudi 3 avril 2008 à 20:29:20 | Re : Comment voir le nombre total d'un article dans une base de donnée

ghuysmans99

Membre Club
Je sais c'est php mais le sql n'est qu'à adapter !!
[ Lien ]
_______________________________________________________________________
VB.NETis good ...VB6is better
vendredi 4 avril 2008 à 09:36:03 | Re : Comment voir le nombre total d'un article dans une base de donnée

Renfield

Administrateur CodeS-SourceS
clair que l'approche par Recordset est plus lente (tu récupères toutes tes données...)
mais là, elle est particulièrement maladroite (pas une seule requete)


vendredi 4 avril 2008 à 09:44:36 | Re : Comment voir le nombre total d'un article dans une base de donnée

Renfield

Administrateur CodeS-SourceS
par exemple:

SELECT cod_prod,SUM(Quantité),design,numero_dep,departement FROM journalier GROUP BY cod_prod,design,numero_dep,departement

te permet de récupérer le cumul d'articles vendus
vendredi 4 avril 2008 à 10:54:03 | Re : Comment voir le nombre total d'un article dans une base de donnée

EBArtSoft

Membre Club Administrateur CodeS-SourceS
On oublie l'acces a "recordcount" et on fait une requete en  "SELECT Count(*) AS Total
FROM MaTable;"

@+

E.B.
vendredi 4 avril 2008 à 11:00:17 | Re : Comment voir le nombre total d'un article dans une base de donnée

Renfield

Administrateur CodeS-SourceS
clair...

me semble même que SELECT COUNT(0) ...

a confirmer par les SQLpros

vendredi 4 avril 2008 à 18:34:53 | Re : Comment voir le nombre total d'un article dans une base de donnée

petiflamand

Bonjour et Merci de vos réponse, je suis super novice en sql .

pour la requete
db.execute "SELECT cod_prod,SUM(Quantité),design,numero_dep,departement FROM journalier GROUP BY cod_prod,design,numero_dep,departement"
il me dit : impossible de faire une requete de  selection

et le total n'est pas de tout les articles mais le total des articles par numéro 

vendredi 4 avril 2008 à 22:08:49 | Re : Comment voir le nombre total d'un article dans une base de donnée

Renfield

Administrateur CodeS-SourceS
pour un Select, faut un OpenRecordSet
samedi 5 avril 2008 à 07:09:17 | Re : Comment voir le nombre total d'un article dans une base de donnée

petiflamand

oui sa je sait et je l'ai fait
avec Set rs = db.OpenRecordset("journalier")
mais c'est le même résultat
samedi 5 avril 2008 à 07:46:26 | Re : Comment voir le nombre total d'un article dans une base de donnée

Renfield

Administrateur CodeS-SourceS
hein ? il te dit encore "impossible de faire une requete selection ?"

1 2

Cette discussion est classée dans : rs, rd, rt, cod, if


Répondre à ce message

Sujets en rapport avec ce message

optimiser code [ par VieRose ] Bonjour, j'ai tappé ce code :sql = "SELECT COD_ETAB, Centre_Examen FROM CandNeufNC order by COD_ETAB"rs.Open sql, CnNeuvieme, adOpenStatic, adLockOpti For i = 1 To 18 [ par petiflamand ] Y a t-il une possibiliter de faire ceci, j' ai une erreur car rs!bouton & i ne fonctionne pas. Merci If rs.RecordCount > 0 Then rs.MoveFirst Do Unti Nouvelle page dans un état [ par christophercdc ] Voila mon souci, dans access 2002 j'ai créé un état contenant un code permettant de dessiner un tableau contenant des données issue d'une requête SQL. indice hors limites [ par bsidy1 ] Bonjour à tout le monde je me connecte à  oracle et j'essaie d'extraire des données pour les afficher dans un flexgrid avec recordsetet une connexion Problème d'ajout [ par spamito ] Bsr ou Bjr,J'ai eu quelques difficultés au niveau de la vérification d'un combobox et d'ajout des données après la vérification de la non existence de Formulaire d'authentification sous access [ par the09napster ] Salut à tous[^^yeuxenlair]! Excusez ma façon d'être un peu direct, en fait je bosse sur une petite application de gestion d'école sous "access 2003". 3 Caractères et plus pour la recherche [ par Sinsitrus ] Salut ! J'ai ce bout de code que je voudrais éditer. Il me donne = à 3 et me fait rien à 4 caractères ou plus. Je voudrais que si dans la zone de tex navigation listview AbsolutePosition [ par amita ] mes cher(e)s ami(e)s j'ai un problème avec ma listview, j'arrive pas a me déplacé avec ses enregistrement message erreur impossible d'affecter à un [VB6] Quelques Questions Listview et autres [ par deltalpha62 ] Bonsoir !Voila je viens poster ici car j'ai quelques problèmes quant à un projet multimédia et j'aurai souhaité des réponses dans la mesure du possibl Problème au niveau d'un formulaire [ par chan33 ] Bonjour à tous,Voici mon problème, je suis à modifier une base de donné sous Access qui a été fait par un ancien collègue et je n'ai pas vraiment de n


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 5,335 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales