Discussion :

[MADA BLACK]

Bonjour tout le monde
Svp .. si vous pouvez m'aider a resoudre ce probleme
J'aimeria bien obtenir une numerotation de cette facon comme exemple : 04032020-0001
J'ai suivi ce sujet :
https://www.developpez.net/forums/d1...ique-database/
J'ai mis le champs INVOICES_Id de type numerique
Mais malheureusement rien se s'affiche dans TextBox1 .. aussi aucun message d'erreur ne s'affiche
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Req_Id As String
        Req_Id = Format(Today, "ddMMyyyy")
        Conne.Open()
        Dim Dt As New DataTable
        Dim Da As New OleDbDataAdapter("SELECT * From TBL_INVOICES", Conne)
        Da.FillSchema(Dt, SchemaType.Source)
        Da.Fill(Dt)
        If Dt.Rows.Count > 0 Then
            For Each R As DataRow In Dt.Rows
                If Not R.Item("INVOICES_Id") Is DBNull.Value Then
                    Dim COUNT As Integer = 1
                    If InStr(R.Item("INVOICES_Id"), Req_Id) > 0 Then
                        COUNT = COUNT + 1
                    End If
                    Me.TextBox1.Text = Req_Id & Val(R.Item("INVOICES_Id").ToString) & "-" & Format(COUNT, "0000")
                End If
            Next
        End If
        Conne.Close()
    End Sub

Merci beaucoup d'avance pour l'aide
Amicalement
MADA

[Phil Rob]

Salut Mada,

Je te propose de faire l'essai : remplacer Format(COUNT, "0000") par String.Format("{0:0000}",COUNT).

Ce sera correct au moins pour la partie COUNT. On cherchera plus loin si ça na suffit pas.

[MADA BLACK]

Salut Phil Rob
Salut maitre
Tres gentil de votre part ..
Regarde svp .. j'ai deja clique sur Button1 mais rien ne se passe

Cordialement
MADA

[ProgElecT]

Salut

Pour de-buguer,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
                    Me.TextBox1.Text = Format(COUNT, "0000")
                    Me.TextBox1.Text = Val(R.Item("INVOICES_Id").ToString)
                    Me.TextBox1.Text = Req_Id
                    Me.TextBox1.Text = Req_Id & Val(R.Item("INVOICES_Id").ToString) & "-" & Format(COUNT, "0000")

En passant en commentaire les 3 dernières lignes, puis les 2 dernières et enfin la dernière, il y a bien un moment où tu déclencheras l'absence d'affichage, là tu sauras quelle variable/formatage provoque le problème.

[Phil Rob]

Il te faut exécuter en pas à pas (F10) et vérifier à chaque passage les valeurs composant ton affichage :
Req_Id, R.Item("INVOICES_Id"), et voir aussi si la ligne d'affectation de la TextBox est vraiment exécutée.

La proposition de ProgElecT te donnera ± les mêmes information sans faire de pas à pas.

D'autre part, le code que tu nous soumets ne semble pas complet : ta connexion à la DB est-elle établie ?

Bon travail

[MADA BLACK]

Salut cher ProgElect
Salut cher ami
Tres tres ravi de vous voir ici dans ce sujet
Malheureusement rien ne se passe .. ni affichage dans TextBox1 .. ni message d'erreur
Amicalement
MADa

[ProgElecT]

Re

Salut...
Malheureusement rien ne se passe .. ni affichage dans TextBox1 .. ni message d'erreur
...

Si de plus il n'y a pas de message d'erreur, c'est qu'une des conditions pour aboutir à l'affichage fait que tu n'arrives pas à la ligne de commande Me.TextBox1.Text = .....

[MADA BLACK]

Il te faut exécuter en pas à pas (F10) et vérifier à chaque passage les valeurs composant ton affichage :
Req_Id, R.Item("INVOICES_Id"), et voir aussi si la ligne d'affectation de la TextBox est vraiment exécutée.

La proposition de ProgElecT te donnera ± les mêmes information sans faire de pas à pas.

D'autre part, le code que tu nous soumets ne semble pas complet : ta connexion à la DB est-elle établie ?

Bon travail

Cher PhIL ROB
Voici mon code de connection dans module1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Imports System.Data.OleDb
Imports System.Data
Module Module1
    Public Conne As New OleDbConnection()
    Public Sub Open_Connection()
        If Conne.State = ConnectionState.Open Then Conne.Close()
        Try
            Conne = New OleDbConnection("Provider = Microsoft.Jet.OleDB.4.0;Data Source =  " & Application.StartupPath & "\ARTISANAT.Mdb")
            Conne.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
            Conne.Close()
            End
        End Try
    End Sub
End Module

je n'ai aucun autre code dans ma Form1
Cordialement
MADA

[Phil Rob]

Vérifie ton accès à la DB.
Tu ne reçois aucun enregistrement.
Si tu peux en envoyer davantage de code ...

[MADA BLACK]

Salut ProgElect
Salut PHIL ROB
J'ai essaye .. mais j'ai pas arrive malheureusement .. d'ailleur je n'ai aucun autre code
Si vous voulez .. apres votre permission de voir mon fichier
https://top4top.io/downloadf-1524xwzsx1-rar.html
Amicalement
MADA

[Phil Rob]

Re ...

OK, c'est ton seul code et tu as expérimenté ce que t'as suggéré ProgElecT. C'est très bien, cela t'a permis de constater que le problème n'est pas sur la ligne d'affectation de la TextBox.

Maintenant, pour en savoir plus, il te faut faire du débogage en pas à pas, avec "mise en observation" des variables.

C'est à toutes fins utiles que je t'envoie un extrait de cours sur la question : ExtraitDebogage.pdf.
Vois les pages 2 et 3.

J'ai chargé ton programme et je vais tester un peu ...

[MADA BLACK]

Formidable et interessant extrait .. je vais bien le lire
Merci beaucoup pour l'aide et pour votre excellent suivi
Merci maitre
Cordialement
MADA

[Phil Rob]

Cher Mada,

Ta DB est vide !!!
Encode-lui quelques lignes et le code suivant (c'est le tien, un rien modifié) fera ce que tu attends :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Req_Id As String = Format(Today, "ddMMyyyy")
        'Dim Req_Id As String = Format(DateTime.Now.ToString("ddMMyyyy"))
        Dim Adp As New OleDb.OleDbDataAdapter("SELECT * From TBL_INVOICES", Conne)
 
        '  Dim Ds As New DataTable 'Set
 
        Dim dt As New DataTable
 
        Adp.Fill(Dt)
 
        '    Dim Dt = Ds.Tables(0)
 
        If Dt.Rows.Count > 0 Then
            For Each R As DataRow In Dt.Rows
                If Not R.Item("INVOICES_Id") Is DBNull.Value Then
                    Dim Counta As Integer = 1
                    If InStr(R.Item("INVOICES_Id"), Req_Id) > 0 Then
                        Counta = Counta + 1
                    End If
                    Me.TextBox1.Text = Req_Id & Val(R.Item("INVOICES_Id").ToString) & "-" & String.Format("{0:0000}", Counta)
                  End If
            Next
        End If
    End Sub

Bonne soirée,

[MADA BLACK]

Merci beaucoup maitre pour le code
Merci pour tous
Peut etre .. j'ai mal compris le sujet car j'ai laisse exprit ma DB vide .. pour que le premier (Id) sera 04032020-0001 .. et ainsi de suite
Amicalement
MADA

[Phil Rob]

Excuse-moi, j'avais pas compris que tu avais vidé la DB pour nous l'envoyer, ce qui est bien normal en fait.
Donc, ton code était presque parfait et le problème est maintenant résolu.

Très bonne nuit

[MADA BLACK]

Bonjour PHIL ROB
Mais dans le cas ou ma Table est completement vide .. toujours j'aurai le meme probleme .. ni message erreur .. et rien ne s'affichera dans ma TextBox1 .
Amicalement
MADA

[ProgElecT]

Salut

Attention, dans le dernier code proposé par Phil Rob, la déclaration de la variable dt est en minuscule, puis son utilisation Dt.Rows.

[MADA BLACK]

Bonjour cher ProgElect .. merci beaucoup pour la remarque ..
Bonjour cher PHIL ROB .. merci pour tes bienfait .. toujours je te trouve dans les moments difficiles .. merci encore
Ce que m'interesse vraiment est lorsque ma Table est completement vide j'obtiens cette numerotation : 05032020-0001
Car le code de mon premier poste inspire du lien de l'autre sujet la numerotation est comme ca : 050320201-0001 ( on remarque un 1 apres la date )
Merci beaucoup d'avance pour l'aide
Amicalement
MADA

[Phil Rob]

Cela me semble normal.
Tu peux toujours programmer un message SI le Rows.Count < 1.
Je reviens vers 11h. Si tu as besoin...

[Phil Rob]

@ProgElecT : tu as raison avec les Dt et dt. Cela ne fait pas propre mais pour l'exécution cela ne change rien, VB ne fait pas de différence en majuscule et minuscule, contrairement au C et à ses dérivés.

@Mada : Ceci te convient-il ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Req_Id As String = Format(Today, "ddMMyyyy")
        'Dim Req_Id As String = Format(DateTime.Now.ToString("ddMMyyyy"))
        Dim Adp As New OleDb.OleDbDataAdapter("SELECT * From TBL_INVOICES", Conne)
        '  Dim Ds As New DataTable 'Set
 
        Dim dt As New DataTable
 
        Adp.Fill(dt)
 
        '    Dim Dt = Ds.Tables(0)
 
        Dim Counta As Integer
 
        If Dt.Rows.Count > 0 Then
            For Each R As DataRow In Dt.Rows
                If Not R.Item("INVOICES_Id") Is DBNull.Value Then
 
                    '     Dim Counta As Integer = 1
 
                    If InStr(R.Item("INVOICES_Id"), Req_Id) > 0 Then
                        Counta = Counta + 1
                    End If
                    Me.TextBox1.Text = Req_Id & Val(R.Item("INVOICES_Id").ToString) & "-" & String.Format("{0:0000}", Counta)
                  End If
            Next
        Else
 
            Counta = 1
            Me.TextBox1.Text = Date.Today.ToString("ddMMyyyy") & "-" & String.Format("{0:0000}", Counta)
        End If
 
    End Sub