(11111,99999)の間の乱数を返すストアドプロシージャを作成したい
番号が表に存在してはならないという条件で
この複雑な関数を使用してそれを行いますが、ストアドプロシージャに変換する必要があります
Function GiveRandomStudentNumber() As String
s:
Dim rnd As New Random
Dim st_num As String = rnd.Next(11111, 99999)
Dim cmd As New SqlCommand("select count(0) from student where st_num = " & st_num,con)
dd.con.Open()
Dim count As Integer = cmd.ExecuteScalar()
dd.con.Close()
If count <> 0 Then
GoTo s
Else
Return st_num
End If
End Function
この関数は機能しますが、ストアドプロシージャに変換する必要があります。
前もって感謝します ...