01.
Public
Function
KeyStore()
As
String
02.
Dim
intNum, strSQL
As
String
03.
Dim
sqlCon
As
New
SqlConnection(con)
04.
05.
strSQL =
"SELECT replace(max(storeID),'ST','') AS storeID FROM Store"
06.
Dim
cmd
As
New
SqlCommand(strSQL, sqlCon)
07.
sqlCon.Open()
08.
intNum = cmd.ExecuteScalar()
09.
10.
intNum += 1
11.
If
intNum <= 9
Then
12.
intNum =
"ST"
&
"0"
& intNum
13.
ElseIf
intNum > 9
Then
14.
intNum =
"ST"
& intNum
15.
16.
End
If
17.
sqlCon.Close()
18.
Return
intNum
19.
20.
End
Function