Aide sur vb.net2008 sur sql server2005

Fermé
pippos255 Messages postés 1 Date d'inscription lundi 24 août 2009 Statut Membre Dernière intervention 24 août 2009 - 24 août 2009 à 19:06
Bonjour,
Bonjourje suis entrain de faire une application de gestion devenement en vb.net 2008 sur sqlserver 2005
et j arrive pas a faire lors dun ajout dun enregistrement de faire incrementer automatiquement le code _evenment suite au evenement sur click du button ajouter
svp qui peut m'aider
ublic Class journal


Private Sub BJ1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BJ1.Click
ouvrirconnection()
Try
If (RTB1.Text <> "") Then

insert = "Insert into evenement (cod_evn,des_evn,deg_imp_evn,typ_evn,dat_evn,heure_evn) values ( '" & ce.Text & "' ,'" & RTB1.Text & "','" & aa.Text & "','" & CBJ3.Text & "','" & System.DateTime.Today & "','" & System.DateTime.Now & "')"
cmdenr.CommandType = CommandType.Text
cmdenr.CommandText = insert
cmdenr.ExecuteNonQuery() 'exécution de requéte
MsgBox("Votre enregistrement est terminé avec succé!", MsgBoxStyle.Information, "Information")
RTB1.Clear()
RTB2.Clear()
RTB3.Clear()
RTB1.Focus()
End If

Catch ex As Exception
MsgBox("Nom d'evenement existe déjâ!", MsgBoxStyle.Exclamation, "Avertissement!")
RTB1.Clear()
RTB2.Clear()
RTB3.Clear()
RTB1.Focus()
End Try
Call chargerListe()
Call fermerconnexion()
End Sub
Private Function chargerListe()

Try
CBJ1.Items.Clear()
CBJ1.Text = "---programme---"
insert = "select * from programme"
cmdmdfprg.CommandType = CommandType.Text
cmdmdfprg.CommandText = insert
modprg = cmdmdfprg.ExecuteReader()
With modprg
If .HasRows Then
Do While .Read()
CBJ1.Items.Add(.Item("cod_pgm") & Space(4) & .Item("nom_pgm"))
Loop
End If
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Function
Private Sub journal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call ouvrirconnection()
Call chargerListe()
Call fermerconnexion()
End Sub



End Class