asp.net - あるテーブルからデータを取得し、フォーム送信を介して別のテーブルに挿入する

Question

あるデータベース テーブル (Users) から別のテーブル (Ticket)に挿入される UserID を取得するにはどうすればよいですか? 各テーブルの両方の列のデータ型 (int) は同じです。ご覧ください：

ユーザー ユーザー
ID
ユーザー名
パスワード名
姓
電子
メール
更新
済み 削除済み

チケット
TicketID
DateCreated
UserIDNumFK
FullName
電子メール
件名
メッセージ
削除済み

これらは、関連するすべてのコードです。

    Partial Public Class mysupport
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

    If Page.IsPostBack Then
        MaintainScrollPositionOnPostBack = True
        SetFocus(helpTopicDDL)
    Else
        SetFocus(fullNameTXTBOX)
    End If


    Dim sConnection As New SqlConnection(ConfigurationManager.ConnectionStrings("TrackTicketsConnectionString2").ConnectionString)
    sConnection.Open()

    If Session("Ticket") Is Nothing Then
        Response.Redirect("SignIn.aspx")
    Else
        Dim cmdS As String = "Select * from Users Where Deleted='N' AND Username=@Username"
        Dim cmdCheckEmail As New SqlCommand(cmdS, sConnection)

        Dim cmd As New Data.SqlClient.SqlParameter("@Username", Data.SqlDbType.VarChar)
        cmdCheckEmail.Parameters.Add("@Username", SqlDbType.VarChar)
        cmdCheckEmail.Parameters.Item("@Username").Value = Session("Ticket")

        Dim obj As Object = cmdCheckEmail.ExecuteScalar()

        If obj IsNot Nothing Then
            mailLBL.Text = Convert.ToString(obj)
        End If
    End If

    sConnection.Close()
End Sub

Protected Sub submitBTN_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles submitBTN.Click

    Dim sdConnection As String = ConfigurationManager.AppSettings("TrackTicketsConnectionString2")
    Dim iRowCount As Integer
    Dim cmdInsertTicket As New Data.SqlClient.SqlCommand
    Dim conticket As New Data.SqlClient.SqlConnection
    conticket.ConnectionString = sdConnection

    cmdInsertTicket.Connection = conticket
    cmdInsertTicket.CommandText = "Insert Into Ticket " _
    & "( DateCreated, FullName, Email, TicketType, Subject, Message, Deleted)" _
    & "Values( @DateCreated, @FullName, @Email, @TicketType, @Subject, @Message, @Deleted)"

    'Dim appUserName As New Data.SqlClient.SqlParameter("@UserName", Data.SqlDbType.NVarChar)
    'cmdInsertTicket.Parameters.Add(appUserName)
    'cmdInsertTicket.Parameters.Item("@UserName").Value = User.Identity.Name

    Dim appDateCreated As New Data.SqlClient.SqlParameter("@DateCreated", Data.SqlDbType.DateTime)
    cmdInsertTicket.Parameters.Add(appDateCreated)
    cmdInsertTicket.Parameters.Item("@DateCreated").Value = Now()

    Dim appFullName As New Data.SqlClient.SqlParameter("@FullName", Data.SqlDbType.VarChar)
    cmdInsertTicket.Parameters.Add(appFullName)
    cmdInsertTicket.Parameters.Item("@FullName").Value = fullNameTXTBOX.Text

    Dim appEmail As New Data.SqlClient.SqlParameter("@Email", Data.SqlDbType.VarChar)
    cmdInsertTicket.Parameters.Add(appEmail)
    cmdInsertTicket.Parameters.Item("@Email").Value = emailAddTXTBOX.Text

    Dim appTicketType As New Data.SqlClient.SqlParameter("@TicketType", Data.SqlDbType.VarChar)
    cmdInsertTicket.Parameters.Add(appTicketType)
    cmdInsertTicket.Parameters.Item("@TicketType").Value = helpTopicDDL.SelectedValue

    Dim appSubject As New Data.SqlClient.SqlParameter("@Subject", Data.SqlDbType.VarChar)
    cmdInsertTicket.Parameters.Add(appSubject)
    cmdInsertTicket.Parameters.Item("@Subject").Value = subjectTXTBOX.Text

    Dim appMessage As New Data.SqlClient.SqlParameter("@Message", Data.SqlDbType.VarChar)
    cmdInsertTicket.Parameters.Add(appMessage)
    cmdInsertTicket.Parameters.Item("@Message").Value = messageTXTBOX.Text

    Dim appDeleted As New Data.SqlClient.SqlParameter("@Deleted", Data.SqlDbType.Char)
    cmdInsertTicket.Parameters.Add(appDeleted)
    cmdInsertTicket.Parameters.Item("@Deleted").Value = "N"

    conticket.Open()
    Try
        iRowCount = cmdInsertTicket.ExecuteScalar()
        statusLBL.Text = "Ticket has been submitted successfully."

    Catch
        statusLBL.Text = "Ticket has not been submitted.  Please try again."

    End Try

    conticket.Close()

End Sub

私が本当に望んでいたのは、ログインしてフォームに記入して送信した後、そのユーザーの UserID をTicketテーブルに格納することです。Users テーブルからデータを取得して Ticket テーブルに挿入する方法がわかりません。私はまだ学んでいるので、どんな助けも大歓迎です。