เขียนโค้ด auto keyid แล้วแสดง auto keyid ใน textbox แล้วต้องการส่งค่า auto keyid ไปยังอีกฟอร์ม และต้องเอา auto keyid insert ลงดาต้าเบส ลองใช้ session มาช่วย แต่พอส่งไปยังอีกฟอร์มมันแสดงเป็นค่าว่าง ช่วยหน่อยคะ
โค้ด auto keyid แสดงใน textbox Code (VB.NET)
Protected Sub Showid(idQuestion As String)
Dim objConn As New SqlConnection(strConn)
Dim objcmd As New SqlCommand()
Dim strSQL As String
Dim iMax As Integer = 1
objConn.ConnectionString = strConn
objConn.Open()
strSQL = "SELECT replace(max(idQuestion),'QU','') AS idQuestion FROM Question"
objcmd.CommandType = CommandType.Text
objcmd.CommandText = strSQL
objcmd.Connection = objConn
If IsDBNull(objcmd.ExecuteScalar()) = True Then
txtid.Text = "QU" & CStr(Now.Year).Substring(2) & "0000" & iMax
Else
txtid.Text = "QU" & objcmd.ExecuteScalar() + 1
End If
objConn.Close()
Session("ShowID") = txtid.Text
Dim objConn As New SqlConnection(strConn)
Dim objcmd As New SqlCommand()
Dim strSQL As String
Dim iMax As Integer = 1
objConn.ConnectionString = strConn
objConn.Open()
strSQL = "SELECT replace(max(idQuestion),'QU','') AS idQuestion FROM Question"
objcmd.CommandType = CommandType.Text
objcmd.CommandText = strSQL
objcmd.Connection = objConn
Dim strID As String = String.Empty
If IsDBNull(objcmd.ExecuteScalar()) = True Then
strID = "QU" & CStr(Now.Year).Substring(2) & "0000" & iMax
Else
strID = "QU" & objcmd.ExecuteScalar() + 1
End If
objConn.Close()
Session("ShowID") = strID