problème de date.now.year

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:

---

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

Citation:

---

Syntax error converting datetime from character string.

---

merci d'avance

salut,

Essai de remplacer

Code:

---

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

---

par

Code:

---

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

---

essaye avec ça:

Code:

---

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 '.

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

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

ç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:

---

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

---