De l'info SVP!!!!!!!
Astro8899
Messages postés
77
Date d'inscription
mardi 18 octobre 2005
Statut
Membre
Dernière intervention
1 février 2007
-
10 nov. 2005 à 20:46
Astro8899 Messages postés 77 Date d'inscription mardi 18 octobre 2005 Statut Membre Dernière intervention 1 février 2007 - 10 nov. 2005 à 21:18
Astro8899 Messages postés 77 Date d'inscription mardi 18 octobre 2005 Statut Membre Dernière intervention 1 février 2007 - 10 nov. 2005 à 21:18
A voir également:
- De l'info SVP!!!!!!!
- Persist security info - Forum Delphi / Pascal
- Info autocad - Forum Visual Basic 6
- Culture info c# - Forum C# / .NET
- Bulle info ✓ - Forum VB.NET
- Info bulles - Forum Visual Basic
2 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
10 nov. 2005 à 21:06
10 nov. 2005 à 21:06
Salut
Tout dépend comment tu récupères ces données : Une ou plusieurs requètes ?
En général, dans une requète SQL, il suffit d'insérer DISTINCT :
Select Distinct monChamp ...
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Tout dépend comment tu récupères ces données : Une ou plusieurs requètes ?
En général, dans une requète SQL, il suffit d'insérer DISTINCT :
Select Distinct monChamp ...
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Astro8899
Messages postés
77
Date d'inscription
mardi 18 octobre 2005
Statut
Membre
Dernière intervention
1 février 2007
10 nov. 2005 à 21:18
10 nov. 2005 à 21:18
Salut Voici mon code
Je fais cela ainsi car je n'est jamais les mêmes produits qui sont acheter ou vendu. Il y a juste le code du porduit car les table on été construit comme cela. Je n'est pas moi qui est bâti les tables
Try
strsql = "SELECT [DATE],PRODUIT,QUANT,[TYPE] FROM [Transact]WHERE DATE>='" & Format(
Me.Dtp1.Value, "yyyy-MM-dd") & "'AND DATE<='" & _
Format(
Me.Dtp2.Value, "yyyy-MM-dd") & "' AND PRODUIT <> ' ' AND TYPE = 'A' AND QUANT <> 0 GROUP BY PRODUIT,QUANT,TYPE,DATE"
objcmd =
New AdsCommand(strsql)
objcmd.Connection = objcon
objada =
New AdsDataAdapter(objcmd)
objds =
New DataSet
objada.Fill(objds, "Transact")
objtb = objds.Tables("Transact")
For
Each Dr
In objds.Tables("Transact").Rows()
strsql2 "select CODE,DESCRIP,FORMAT FROM PRODUITS WHERE CODE'" & Dr("PRODUIT").ToString & "' and DESCRIP <>'' order by FORMAT;"
objcmd2 =
New AdsCommand(strsql2)
objcmd2.Connection = objcon
objada2 =
New AdsDataAdapter(objcmd2)
objds2 =
New DataSet
objada2.Fill(objds2, "PRODUITS")
objtb2 = objds2.Tables("PRODUITS")
If objtb2.Rows.Count > 0
Then
Je fais cela ainsi car je n'est jamais les mêmes produits qui sont acheter ou vendu. Il y a juste le code du porduit car les table on été construit comme cela. Je n'est pas moi qui est bâti les tables
Try
strsql = "SELECT [DATE],PRODUIT,QUANT,[TYPE] FROM [Transact]WHERE DATE>='" & Format(
Me.Dtp1.Value, "yyyy-MM-dd") & "'AND DATE<='" & _
Format(
Me.Dtp2.Value, "yyyy-MM-dd") & "' AND PRODUIT <> ' ' AND TYPE = 'A' AND QUANT <> 0 GROUP BY PRODUIT,QUANT,TYPE,DATE"
objcmd =
New AdsCommand(strsql)
objcmd.Connection = objcon
objada =
New AdsDataAdapter(objcmd)
objds =
New DataSet
objada.Fill(objds, "Transact")
objtb = objds.Tables("Transact")
For
Each Dr
In objds.Tables("Transact").Rows()
strsql2 "select CODE,DESCRIP,FORMAT FROM PRODUITS WHERE CODE'" & Dr("PRODUIT").ToString & "' and DESCRIP <>'' order by FORMAT;"
objcmd2 =
New AdsCommand(strsql2)
objcmd2.Connection = objcon
objada2 =
New AdsDataAdapter(objcmd2)
objds2 =
New DataSet
objada2.Fill(objds2, "PRODUITS")
objtb2 = objds2.Tables("PRODUITS")
If objtb2.Rows.Count > 0
Then
