Discussion :

[najoua01]

Bonjour,
je veux incrémenter un numéro mais par un condition de l'année ,
j'ai un tableau (num,date...)
num date
1 2010
2 2011
1 2011
3 2010
donc je veux incrémenter le dernier numéro mais par date ca veux dire il me donne 2+1
bon voici mon code

Code :

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

1
2
3
4
5
6
7
8
 con.Open()
        cmd = New SqlCommand("select max(BL_NUM) as num from DSA_BL2011 WHERE year(BL_TTC_CARA)='" & Date.Now.Year & "'", con)
        dr = cmd.ExecuteReader
        While dr.Read()
            My.Forms.BL.TextBox1.Text = dr("num") + 1
        End While
        dr.Close()
        con.Close()

et voici l'erreur

Syntax error converting datetime from character string.

merci d'avance

[peregna2007]

salut,

Essai de remplacer

Code :

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

 My.Forms.BL.TextBox1.Text = dr("num") + 1

par

Code :

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

 My.Forms.BL.TextBox1.Text = dr!num + 1

[kika10]

essaye avec ça:

Code :

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

     cmd = New SqlCommand("select max(BL_NUM) as num from SA_BL2011 WHERE year(BL_TTC_CARA)=" & Date.Now.Year & "'", con)

i.e: enlevé le '.

[najoua01]

merci kika10 et peregna2007
j'ai essayé les deux solutions mais il reste le même erreur

[peregna2007]

Tu utilise sans doute une valeur de type datetime . J'aimerai savoir c'est lequel.

[najoua01]

ça reste toujour même erruer
et j'ai déja utilisé même code dans une autre forme et ça reste toujour au même projet et il marche très bien
voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
 cmd = New SqlCommand("select max(DEV_NUM) as num from DEVISS where year(DEV_DAT_CREA)='" & Date.Now.Year & "'", con)
            dr = cmd.ExecuteReader
            While dr.Read
                My.Forms.DEVIS.TextBox1.Text = dr("num") + 1
                My.Forms.DEVIS.TXT_NUMD.Text = (Date.Now.Year & "OP") & (dr("num") + 1)
            End While
            dr.Close()
        Catch ex As Exception
            MsgBox("Exception :" & ex.Message)
        End Try