0

我遇到的问题是,通过单击按钮1 应保存在文本框中输入的数据(请参阅代码),但是当页面回发时,数据未保存(不出现确认消息),然后如果我再次单击它确实保存记录,有时需要 3 次以上才能存储每个确认消息的数据。

这是一个 Con.Dispose 问题吗???我应该使用 con.close 吗?
注意:在代码中我有 Con.CLOSE 但是页面部署在 Con.Dispose() 下注
2:我计划修复代码中发现的更多“新手”问题,但回发问题中仍然存在紧急问题。

    ' *--------Empty Text Validation-------*
    If TextBox10_AddData_LabInvest.Text <> "" AndAlso TextBox3_AddData_LabInvest.Text <> "" AndAlso TextBox4_AddData_LabInvest.Text <> "" AndAlso TextBox5_AddData_LabInvest.Text <> "" AndAlso TextBox6_AddData_LabInvest.Text <> "" AndAlso TextBox7_AddData_LabInvest.Text <> "" Then

        ' *--------SQL Insert command-------*
        SqlDataSource_AddData_LabInvest.InsertCommand = "INSERT INTO [LabInvest] (ID_LabInvest, LabInvest_Load, LabInvest_SeqRef_CH, LabInvest_SeqRef_Year, LabInvest_Owner, LabInvest_Subject, LabInvest_DueDate, LabInvest_Code, LabInvest_QSNCCode, LabInvest_OpenByOwner, LabInvest_OpenDateOwner, Status_Text, Status_Int ) VALUES(@ID_LabInvest, @LabInvest_Load, @LabInvest_SeqRef_CH, @LabInvest_SeqRef_Year, @LabInvest_Owner, @LabInvest_Subject, @LabInvest_DueDate, @LabInvest_Code, @LabInvest_QSNCCode, @LabInvest_OpenByOwner, @LabInvest_OpenDateOwner, @Status_Text, @Status_Int)"
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("ID_LabInvest", TextBox10_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_Load", "N/A")
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_SeqRef_CH", TextBox1_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_SeqRef_Year", TextBox2_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_Owner", TextBox3_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_Subject", TextBox4_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_DueDate", TextBox5_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_Code", TextBox6_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_QSNCCode", TextBox7_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_OpenByOwner", TextBox8_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("LabInvest_OpenDateOwner", TextBox9_AddData_LabInvest.Text)
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("Status_Text", "Stage 1 - Just Added")
        SqlDataSource_AddData_LabInvest.InsertParameters.Add("Status_Int", "1")


        Try
            SqlDataSource_AddData_LabInvest.Insert()

            ' *--------Get Unique ID-------*
            Dim Con As New SqlConnection
            Dim SQL As String
            Dim com As SqlCommand = Con.CreateCommand
            Con.ConnectionString = "removed"
            Con.Open()
            SQL = "SELECT ID_LabInvest FROM LabInvest WHERE ID_LabInvest=" + TextBox10_AddData_LabInvest.Text
            Dim cmd As New SqlCommand(SQL, Con)
            Dim obj = cmd.ExecuteScalar()
            Label1_AddData_LabInvest.Text = "Your record ID is: " + obj.ToString()


            ' *--------Get Stage-------*
            Dim SQL2 As String
            SQL2 = "SELECT Status_Text from LabInvest WHERE ID_LabInvest=" & obj
            Dim cmd2 As New SqlCommand(SQL2, Con)
            Dim obj2 = cmd2.ExecuteScalar()
            Label2_AddData_LabInvest.Text = "Record Stage: " + obj2.ToString()
            con.close()
            Button4_AddData_LabInvest.Enabled = False

            ' *--------SQL Audit Insert command-------*
            Dim Usercheck As String
            Usercheck = Request.ServerVariables("LOGON_USER")
            SqlDataSource_LabInvest_Audit.InsertCommand = "INSERT INTO [AuditTrial] (ID_Table, AuditTableName, AuditAction, AuditUser, AuditValue1Before, AuditValue2Before, AuditValue1After, AuditValue2After, AuditMasterReason, AuditMasterChange) VALUES(@ID_Table, @AuditTableName, @AuditAction,  @AuditUser, @AuditValue1Before, @AuditValue2Before, @AuditValue1After, @AuditValue2After, @AuditMasterReason, @AuditMasterChange)"
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("ID_Table", obj)
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditTableName", "LaboratoryInvestigations_Add")
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditAction", "Added New Record")
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditUser", Usercheck)
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditValue1Before", "N/A")
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditValue2Before", "N/A")
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditValue1After", "N/A")
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditValue2After", "N/A")
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditMasterReason", "N/A")
            SqlDataSource_LabInvest_Audit.InsertParameters.Add("AuditMasterChange", "N/A")
            SqlDataSource_LabInvest_Audit.Insert()

        Catch ex As Exception
            Label1_AddData_LabInvest.Text = "Duplicate NumberID, Please Review Data"
        End Try

    Else
        Label1_AddData_LabInvest.Text = "Please Fill All Options"
    End If
4

1 回答 1

0

该问题是在应用程序驻留在具有 NLB 的 Web 服务器场中时发现的,因此空白回发是由于 NBL 将用户从原始连接重定向到另一台服务器。(不同的解决方案可能会应用链接 NO Cache、Connection Affinity 等)希望它在未来对某人有所帮助。

于 2013-04-03T14:47:16.977 回答