Visual Basic

SELECT Primary_ID, Boundary_area, Attrib_Code, Lis_Key, Func_Key, Actual_Extent, Improved_Value, Site_Value, Purchase_price, Purchase_date, prop_id, confidence_score, fin_ls_prediction, new_lis_key, new_func_key FROM Property_mass WHERE (SUBSTRING(Lis_Key, 1, 4) = @Num_key) ANd (SUBSTRING(Attrib_Code, 1, 1) = @Pair1_1) And (SUBSTRING(Attrib_Code, 2, 1) = @Pair1_2)

Dim strErrorMsg As String
        Dim strerror As System.Data.SqlClient.SqlError

        Try
            SqlDataAdapter2.SelectCommand.Parameters("@Num_key").Value = CStr(txtlisSearch.Text)
            SqlDataAdapter2.SelectCommand.Parameters("@Pair1_1").Value = CStr(pair1_1.Text)
            SqlDataAdapter2.SelectCommand.Parameters("@Pair1_2").Value = CStr(pair1_2.Text)

            'Filling the Dataset

            SqlDataAdapter2.Fill(Pairone1)
            If Pairone1.Tables("Property_Mass").Rows.Count = 0 Then
                MessageBox.Show("Property with Such Code in this pair was not Found")
            Else
                Pairone1.Clear()
                SqlDataAdapter2.Fill(Pairone1)
                DataGrid1.DataSource = Pairone1
            End If
        Catch ExSQL As System.Data.SqlClient.SqlException
            ''''All this will trap all data Problems and Network if available
            For Each strerror In ExSQL.Errors
            Next
            Select Case strerror.Number
                Case 17
                    strErrorMsg = "Missing server"
                Case 4060
                    strErrorMsg = "Missing database"
                Case 18456
                    strErrorMsg = "Missing user name or password"
                Case Else
                    strErrorMsg = strerror.Message
            End Select
            MessageBox.Show(strErrorMsg, "SQL Server Error: " & strerror.Number, MessageBoxButtons.OK, MessageBoxIcon.Error)

        Catch ExcpInvOp As System.InvalidOperationException

            MessageBox.Show("Close the connection first!", "Invalid Operation", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Catch Excp As System.Exception ' generic exception handler
            MessageBox.Show(Excp.Message, "Unexpected Exception", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

SqlDataAdapter2.SelectCommand.Parameters("@Num_key").Value = CStr(txtlisSearch.Text)
        SqlDataAdapter2.SelectCommand.Parameters("@Pair1_1").Value = CStr(pair1_1.Text)
        SqlDataAdapter2.SelectCommand.Parameters("@Pair1_2").Value = CStr(pair1_2.Text)

        'Filling the Dataset
        SqlDataAdapter2.Fill(Pairone1)