Executer une partie du code une seul fois
Bonjour je veux executer la partie du code en rouge seulement pour le premier clique sur la boutton et pour la 2eme 3eme... clique cette partie du code et achevé.
merci de m'aider
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim Cmd2 As New SqlCommand("select max(num) from [Base-Ets-Mtiri].[dbo].[DEVISWEB] ", con)
con.Open()
Dim SqlReader As SqlDataReader = Cmd2.ExecuteReader
SqlReader.Read() 'lit la première ligne du reader
If IsDBNull(SqlReader.Item(0)) Then
num = 1
Else
num = SqlReader.Item(0)
num = num + 1
End If
con.Close()
end sub |
