recupérer les donnees de deux tables de la BDD

Version imprimable

Voir 40 message(s) de cette discussion en une page

salut à tous,
je travail actuellement sur la réalisation d'une application VB6 et Access(je suis debutant en VB).
SVP dites moi comment faire pour récupérer dans un form les facture qui ont été saisies entre deux date(valeur de deux DTPicker que j'utilise)??
sachant qu'une facture fournisseur s'enregistre dans la BDD dans 2 table différentes :
la table factute_four(N°facture,date_fact,Code_four) et dans le seconde table ligne_facture_four(N°facture,code_article,Quantité,TTC,Code_four)
Donc le champs code_four est le lien entre les deux tables.

Voila le code que j'ai utilisé mais ca marche pas!!
Code:

1 2 Set rsfact_four = New ADODB.Recordset rsfact_four.Open "Select* from Facture_four where Date_fact between #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "# and #" & Format(DTPicker2.Value, "mm/dd/yyyy") & "#", cn, 1, 2
Code:

1 2 Set rsligne_fact_four = New ADODB.Recordset rsligne_fact_four.Open " select * from ligne_facture_four where ligne_facture_four.N°facture=Facture_four.N°facture ", cn, 1, 2
Sur le premier Recordset,qui contient la date, je pense que c bon d'appliquer la condition de la date between.
Le probléme me pose surtout sur la condition à appliquer sur le deuxiéme Recordset qui contient la plus part des champs que je cherche à afficher!!

Merci à vous d'avance

25/08/2008, 10h21
OhMonBato

Question désormais traditionnelle : tu ne ferais pas du VB.Net ? (Le DateTimePicker me le laisse croire...)
25/08/2008, 10h27
SfJ5Rpw8

Je pencherai plutôt pour un problème de requête SQL .. ..?

Je ne suis pas sur que tu ait besoin des deux recordset... pour le second il faut que tu modifie ta requête SQL , que tu y rajoute ta table Facture_four de façon à pouvoir tester la date ..;)
25/08/2008, 17h00
elcondor

Salut,
Personnellement je suis bloqué , et si je savais comment modifier ma requete pour résoudre le probléme je l'aurais fait !!!
Ca serait gentil de votre part d'etre un peu plus clair.
Merci
25/08/2008, 17h22
OhMonBato

Ce serait gentil de ta part de nous dire aussi si tu es en VB6 ou VB.Net (même si pour une requête SQL celà ne change rien). Autant être sur le bon forum du premier coup, si tu as d'autres questions par la suite.
25/08/2008, 17h24
Dung-Tri
C'est du VB6

Ta 2ème requete peut pas marché. Il peut pas deviner tous seul le n°Facture de ta premier requete. Recupère le n° Facture de la premiere requette et fais comme ta fais avec les datePicker; du genre :
Code:

1 2 3 Set rsligne_fact_four = New ADODB.Recordset rsligne_fact_four.Open "select * from ligne_facture_four where ligne_facture_four.N°facture=" & rsfact_four["N°Facture"], cn, 1, 2

Salut,
oui ca marche cette fois ci!!Maij j'ai tousjours un probléme qui pércicte encore c'est celui de l'affichage de donnees récupérees!!
A l'exection je recois l'erreur suivante:

Citation:

BOF ou EOF est egale à true ou l'enregistrement actuel a été suprimé.L'opération demendée nécesite un enregistrement actuel

J'ai remarqué que cette erreur arrive uniquement sur les champs que j'essaye de récupérer de deuxiéme recodset(rsligne_fact_four.Fields)

Code:

1
2
3
4
5
6
.Col = 3 
.Text = rsligne_fact_four.Fields(3) 
.Col = 4 
.Text = rsligne_fact_four.Fields(4) 
Col = 5 
.Text = rsligne_fact_four.Fields(5)

Merci
Le voila le code que j'utilise et merci de me dire les erreursque j'ai comise

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
connect 
Set rsfact_four = New ADODB.Recordset 
 
Call rsfact_four.Open("Select * from Facture_four where Date_fact >=#" & DTPicker1.Value & " #AND " & _ 
  "Date_fact <=#" & DTPicker2.Value & "#", cn, 1, 2) 
  If rsfact_four.RecordCount = 0 Then 
 
rsfact_four.MoveFirst 
MsgBox "pas de facture saisie entre ces dates" 
Exit Sub 
End If 
While rsfact_four.EOF = False 
    Set rsligne_fact_four = New ADODB.Recordset 
    rsligne_fact_four.Open " select * from ligne_facture_four where ligne_facture_four.N°facture= " & rsfact_four("N°facture"), cn, 1, 2 
 
   ' MsgBox rsligne_fact_four("N°facture") 
 
    rsfact_four.MoveNext 
Wend 
With g 
  .FixedRows = 1 'ligne en-tete 
  .Rows = 2 ' + une ligne vide 
   i = 1 
rsligne_fact_four.MoveFirst 
rsfact_four.MoveFirst 
Do While Not rsligne_fact_four.EOF 
Do While Not rsfact_four.EOF 
 
'If rsligne_fact_four.Fields(4) = Combo1.Text Then 
i = i + 1 
 
  .Rows = i 'nombre de ligne 
  .Row = i - 1 'ligne courante 
 
  .Col = 0 
.Text = rsfact_four.Fields(1) 
.Col = 1 
.Text = rsfact_four.Fields(0) 
.Col = 2 
.Text = rsfact_four.Fields(2) 
.Col = 3 
.Text = rsligne_fact_four.Fields(3) 
.Col = 4 
.Text = rsligne_fact_four.Fields(4) 
Col = 5 
.Text = rsligne_fact_four.Fields(5) 
'End If 
  rsligne_fact_four.MoveNext 
  rsfact_four.MoveNext 
  g.Refresh 
Loop 
Loop 
End With 
'End If 
J'ai un probléme qui s'afffiche sur 
Col = 3 
.Text = rsligne_fact_four.Fields(3)

Merci

25/08/2008, 18h47
elcondor

J'ai oublié de répondre à OhMonBato , c'est du VB6.
25/08/2008, 19h05
OhMonBato

:oops: Désolé, tu l'avais indiqué dans ton premier message pourtant.

Ca ne fait pas avancer ton code mais c'est tout de même étrange d'avoir créé une table supplémentaire juste pour enregistrer la date de la facture (si j'en crois ton premier post, c'est la seule donnée qui ne soit pas en commun avec la deuxième table). Ce serait plus simple de travailler sur une seule table non ?

Forcement si tu fait les 2 movenext dans le meme loop

Essai plutot comme ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Do While Not rsligne_fact_four.EOF 
Do While Not rsfact_four.EOF 
 
'If rsligne_fact_four.Fields(4) = Combo1.Text Then 
i = i + 1 
 
  .Rows = i 'nombre de ligne 
  .Row = i - 1 'ligne courante 
 
  .Col = 0 
.Text = rsfact_four.Fields(1) 
.Col = 1 
.Text = rsfact_four.Fields(0) 
.Col = 2 
.Text = rsfact_four.Fields(2) 
.Col = 3 
.Text = rsligne_fact_four.Fields(3) 
.Col = 4 
.Text = rsligne_fact_four.Fields(4) 
Col = 5 
.Text = rsligne_fact_four.Fields(5) 
'End If 
 
  rsfact_four.MoveNext 
  g.Refresh 
Loop 
   rsligne_fact_four.MoveNext 
Loop

Parcontre ta facon de faire est bizarre que cherche tu as faire?

26/08/2008, 10h44
Dung-Tri

Pour que ton Algo puissent mieux marcher je te conseil de d'abord faire un Do While .. Loop sur le recordset des infos d'entete de ta facture puis un autre Do While .. Loop sur les lignes de détail de la facture. Ca sera plus clair plus toi.
26/08/2008, 17h17
elcondor

Salut Dung-Tri;
C'est ce que j'ai fait et ca marche!
D'autre part,Je veux affecter la somme des TTC des factures affichées à un textbox. Est ce que tu as une idée comment faire!!!
Merci bcp
26/08/2008, 17h47
fernier

tu peux faire tes requetes directement dans access en desing, et transformer le resulat en SQL pour l'integer a ton code.
26/08/2008, 18h07
Dung-Tri

Gestion des codes TVA
Pour la TVA je te conseil de la gérée une table des TVA avec par ex: un ID, un Libelle et un taux, voir avec les comptes rattaché si tu compte gérée la comptabilité.
C'est une méthode standard dans le milieu professionnel.

Puis dans ta requete fait un inner join sur cette table et calcul le taux directement dans le select

ex de requete :
Code:

1 2 SELECT lignefact.PrixHorsTaxe * (1 + Tva.Taux / 100) FROM lignefact INNER JOIN Tva ON lignefact.codeTva = Tva.code;
27/08/2008, 02h15
elcondor

Salut,
Apparemment je me suis mal exprimé!je reformule ma question:
Dans une grille s'affichent un ensemble de factures(N°FActure,......,TTC),ce que je cherche c'est de récupérer le cumul des TTC des factures affichées et de l'affecter à un Textbox!!!
Merci d'avance
27/08/2008, 16h00
Dung-Tri

Cumul TVA

Pour le cumul ca deviens complexe :aie:
Ca fait longtemp... que j'ai vu ca.
Le cumul c'est bien la somme des tva (hors taxe déduite) et ca par code taux de tva. Ce que ta sur les tickets de caisse à la fin.

Cela pourra pas sur faire directement dans la requete.

Faut que tu code une fonction afin des faires un regroupement par code tva

C'est à dire que pour une facture avec du 19,6 et 5.5
tu totalise toutes les tva a 19,6, toutes les tva a 5.5 dans un tableau à partir de ton recordset. c'est a dire : HT * (TauxTVA/100).

Erreur de compilation VB6 et Access

Salut à tous,
je suis en VB6 et Access.
dans le but de récupérer des factures qui concernet un article précis , j'utilise ce code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Dim rsfact_four  As ADODB.Recordset
Dim rsligne_fact_four   As ADODB.Recordset
Dim cn As ADODB.Connection
Dim i As Integer
 
    g.FixedRows = 1
    g.Rows = 2
 
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Documents and Settings\Administrateur.INTERNET\Bureau\ma_base.MDB;"
    cn.Open
 
    Set rsligne_fact_four = New ADODB.Recordset
 
   Call rsligne_fact_four.Open("Select * from ligne_facture_four where code_article='" & Combo1.Text & "'", cn, 1, 2)
    If rsligne_fact_four.RecordCount = 0 Then
  MsgBox "pas de facture contenant cet article!!"
Exit Sub
Else
 
   rsligne_fact_four.MoveFirst
 
    While rsligne_fact_four.EOF = False
 
        Set rsfact_four = New ADODB.Recordset
    Call rsfact_four.Open(" select * from Facture_four where Facture_four.N°facture= " & rsligne_fact_four("code_article"), cn, 1, 2)
 
 '********************* l'erreur ce produit ICI **************
        rsfact_four.MoveFirst
 '**********************************************************
 
        While rsfact_four.EOF = False
            With g
                i = .Rows - 1
                .Rows = .Rows + 1

à l'execution je recois l'erreur suivante:

BOF ou EOF est egale à true ou l'eregistrement actuel a été suprimé.L'opération demendée necessite un enregistrement actuel.
L'erreur arrive sur rsfact_four.MoveFirst
SVP dites moi la ou les causes .
Merci

Salut,

Cela veux dire que tu n'a pas d'enregistrement pour ton numéro de facture....

tu devrais mettre :

Code:

1
2
3
4
5
6
7
8
9
if not rsfact_four.eof then
rsfact_four.MoveFirst
While rsfact_four.EOF = False
            With g
                i = .Rows - 1
                .Rows = .Rows + 1
            end with
wend
end if

Coin.

Si si il y'en a des enregistrement pour le numéro de facture cherché!!
j'ai pas bien compris la modification que tu m'a proposé:oops:
Voila mon code comple:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Dim rsfact_four  As ADODB.Recordset
Dim rsligne_fact_four   As ADODB.Recordset
Dim cn As ADODB.Connection
Dim i As Integer
 
    g.FixedRows = 1
    g.Rows = 2
 
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Documents and Settings\Administrateur.INTERNET\Bureau\ma_base.MDB;"
    cn.Open
 
    Set rsligne_fact_four = New ADODB.Recordset
 
   Call rsligne_fact_four.Open("Select * from ligne_facture_four where code_article='" & Combo1.Text & "'", cn, 1, 2)
    If rsligne_fact_four.RecordCount = 0 Then
  MsgBox "pas de facture contenant cet article!!"
Exit Sub
Else
 
   rsligne_fact_four.MoveFirst
 
    While rsligne_fact_four.EOF = False
 
        Set rsfact_four = New ADODB.Recordset
    Call rsfact_four.Open(" select * from Facture_four where Facture_four.N°facture= " & rsligne_fact_four("code_article"), cn, 1, 2)
 
 '********************* l'erreur ce produit ICI **************
        rsfact_four.MoveFirst
 '**********************************************************
 
        While rsfact_four.EOF = False
            With g
                i = .Rows - 1
                .Rows = .Rows + 1
    .TextMatrix(i, 0) = rsligne_fact_four.Fields(0)
                .TextMatrix(i, 1) = rsligne_fact_four.Fields(1)
                .TextMatrix(i, 2) = rsfact_four.Fields(1)
                .TextMatrix(i, 3) = rsfact_four.Fields(2)
                .TextMatrix(i, 4) = rsligne_fact_four.Fields(4)
                .TextMatrix(i, 5) = rsligne_fact_four.Fields(5)
            End With
             rsfact_four.MoveNext
        Wend
         rsligne_fact_four.MoveNext
    Wend
    g.Refresh
 
    cn.Close
End If
End Sub

Merci

28/08/2008, 18h45
Coin
Est-ce que tu peux rééditer ton post pour mettre le code entre balise (bouton # ). Merci.

tu remplaces
Code:

1 2 3 4 '********************* l'erreur ce produit ICI ************** rsfact_four.MoveFirst '**********************************************************
par
Code:

1 2 3 4 5 6 7 if not rsfact_four.eof then rsfact_four.MoveFirst while ....... ..... ..... wend end if
Explication : Cela fonctionne comme ton while ....EOF = False. : Si tu n'as pas d'enregistrement, tu ne rentres pas dans la boucle (donc tu n'essayeras pas de te positionné sur le 1er enregistrement qui n'existe pas).

coin.

Voir 40 message(s) de cette discussion en une page