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キャッシュ、接続アフィニティなどを適用する可能性があります）将来誰かに役立つことを願っています。

于 2013-04-03T14:47:16.977 に答える