从部分类访问值

Question

请帮忙！我还在学习，所以这可能是完全错误的。我为内部目的构建了一个多用户 Web 应用程序。我已经拆分了我的代码以使其更易于管理并且遇到了一些问题。我怀疑我做了什么很傻的事情！

我在 App_Code 的单独文件 (quoteStatus.vb) 中有一个类：

Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Imports System.Data

Public Class quoteStatusHelper

 Public Shared QuoteStatus As String

    Public Shared Sub GetQuoteStatus(ByVal QuoteID As String)

        Dim con As New SqlConnection
        Dim cmd As New SqlCommand

        Try
            con.ConnectionString = ConfigurationManager.AppSettings("quotingSystemConnectionString")
            con.Open()
            cmd.Connection = con
            cmd.CommandText = "SELECT Status FROM Quote WHERE QuoteID =" & QuoteID & ";"
            Dim lrd As SqlDataReader = cmd.ExecuteReader()

            While lrd.Read()
                QuoteStatus = lrd("Status")
            End While

        Catch ex As Exception

        Finally
            con.Close()
        End Try


    End Sub
    End Class

我用它来触发另一个文件中的代码：

quoteStatusHelper.GetQuoteStatus(QuoteID)

然后用

抓取结果

Dim returnedStatus = quoteStatusHelper.QuoteStatus

这似乎真的错了，因为在第一次运行之后，该值似乎保存在部分类中。因此，如果我有两个用户访问该课程，则两个用户的公共共享昏暗都会更改！必须有更好的方法来做到这一点。到处看了看，现在比刚开始的时候更迷茫……

如何使分部类中的 QuoteStatus 对每个用户都是唯一的，并从我的代码中访问它。我想不通:(请帮忙

非常感谢。

Answer 1

问题是您的QuoteStatus 变量是共享/静态的。你不需要在这里这样做。将其声明为 Public 将使其对其他类可见。从方法和QuoteStaus 变量中删除Shared，一切都应该很好。

一旦你删除Shared，它将是一个实例类，这意味着你需要在你的代码中初始化它：

Dim statusHelper As New quoteStatusHelper()
statusHelper.GetQuoteStatus("QuoteID")

编辑

仔细查看您的代码，您似乎可以将GetQuoteStatus 设为一个函数，该函数将QuoteStatus 作为字符串返回，正如@Claudio Redi 所建议的那样。

Public Function GetQuoteStatus(ByVal QuoteID As String) As String 

    Dim quoteStatus As String

    Dim con As New SqlConnection  
    Dim cmd As New SqlCommand  

    Try  
        con.ConnectionString = ConfigurationManager.AppSettings("quotingSystemConnectionString")  
        con.Open()  
        cmd.Connection = con  
        cmd.CommandText = "SELECT Status FROM Quote WHERE QuoteID =" & QuoteID & ";"  
        Dim lrd As SqlDataReader = cmd.ExecuteReader()  

        While lrd.Read()  
            quoteStatus = lrd("Status")  
        End While  

    Catch ex As Exception  

    Finally  
        con.Close()  
    End Try  

    Return quoteStatus

End Function

通过将GetQuoteStatus 设为函数，您将能够获得如下值：

Dim statusHelper As New quoteStatusHelper()
Dim quoteStatus As String = statusHelper.GetQuoteStatus("QuoteID")

Answer 2

一个选项是在您的方法中使用局部变量 quoteStatus 并将其用作 GetQuoteStatus 的返回值。所以你不会再使用共享成员QuoteStatus

编辑

添加了一个函数示例。您应该从班级中删除您的共享成员 QuoteStatus。我在日常工作中不使用 VB，所以我希望我没有犯任何愚蠢的语法错误

Public Shared Function GetQuoteStatus(ByVal QuoteID As String) as String

    Dim con As New SqlConnection
    Dim cmd As New SqlCommand
    Dim quoteStatus As String

    Try
        con.ConnectionString = ConfigurationManager.AppSettings("quotingSystemConnectionString")
        con.Open()
        cmd.Connection = con
        cmd.CommandText = "SELECT Status FROM Quote WHERE QuoteID =" & QuoteID & ";"
        Dim lrd As SqlDataReader = cmd.ExecuteReader()

        While lrd.Read()
            quoteStatus = lrd("Status")
        End While

    Catch ex As Exception

    Finally
        con.Close()
    End Try

    return quoteStatus

End Function