对象引用未设置为用于在 vb.net 中加载用户控件的对象实例

Question

我的代码是

Public Function resload()
    Dim conn As MySqlConnection = New MySqlConnection(ConfigurationManager.ConnectionStrings("connectionrms").ConnectionString) ''line 18
    Dim comm As MySqlCommand = New MySqlCommand()
    Dim dr As MySqlDataReader
    conn.Open()
    comm = New MySqlCommand("Select distinct name from restaurant", conn)
    dr = comm.ExecuteReader()
    While dr.Read() <> Nothing
        headresnamecombo.Items.Add(dr(0).ToString())
    End While
    dr.Close()
    headresnamecombo.SelectedIndex = 0
    conn.Close()
    Return Nothing
End Function

我的错误

在 C:\Users\Azinova7\Documents\Visual Studio 2008\Projects\Rest\Rest\billingBody.vb:第 18 行中的 Rest.billingBody.resload() 处

在 C:\Users\Azinova7\Documents\Visual Studio 2008\Projects\Rest\Rest\billingBody.vb:line 229 中的 Rest.billingBody.billingBody_Load(Object sender, EventArgs e) 处

在 System.Windows.Forms.UserControl.OnLoad(EventArgs e)

在 System.Windows.Forms.UserControl.OnCreateControl()

在 System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)

在 System.Windows.Forms.Control.CreateControl()

在 System.Windows.Forms.Control.ControlCollection.Add(控制值)

在 System.Windows.Forms.Form.ControlCollection.Add(控制值)

在 System.Windows.Forms.Design.ControlDesigner.DesignerControlCollection.Add(Control c)

之后都是相同的连接代码

Answer 1

我强烈怀疑这是问题所在：

ConfigurationManager.ConnectionStrings("connectionrms").ConnectionString

我怀疑您的配置中没有名为“connectionrms”的连接字符串。

如果未找到给定的连接字符串，ConnectionStringSettingsCollection indexer 将返回 Nothing。

不过，这只是您的代码的一个问题。此外，您应该对连接和读取器使用Using 语句，并且您的While 循环条件应该只是While dr.Read()。哦，我会在第一次使用时声明变量，而不是在顶部声明所有内容。