VB .NET - App.config - 连接字符串

Question

在 VB .NET 2019 中，我有一些代码可以连接到 Oracle 数据库：

Private Const connectionString = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;Data Source=someSource;User ID=someUser;Password=somePassword"

Public Function Connect() As Object
    Connect = CreateObject("ADODB.Connection")
    Connect.ConnectionString = connectionString 
    Connect.CursorLocation = 3
    Connect.Open
    ...
End Function

此代码运行良好。现在我正在尝试将 connectionString 定义移动到 app.config 文件中。

app.config：

<connectionStrings>
    <add name="TestConnection" connectionString="Provider=OraOLEDB.Oracle.1;Persist Security Info=False;Data Source=someSource;User ID=someUser;Password=somePassword" />
</connectionStrings>

在我的代码中，我只是改变了这个：

Connect.ConnectionString = connectionString 

作者：

Connect.ConnectionString = ConfigurationManager.ConnectionStrings("TestConnection").ConnectionString

当我运行代码时，我收到以下错误： System.NullReferenceException：“对象引用未设置为对象的实例。” System.Configuration.ConnectionStringSettingsCollection.this[string].get 返回 Nothing。

我不知道我做错了什么

Answer 1

我不确定你做错了什么，但我刚刚测试了你描述的场景，它对我来说效果很好。在这种情况下，您应该始终创建一个测试项目来隔离您遇到问题的特定功能，以便对其进行专门测试。这是我所做的：

1. 创建一个新的 WinForms 项目。
2. 创建一个新的类库项目。
3. 在两个项目中引用 System.Configuration.dll。
4. 在 WinForms 项目中引用类库项目。
5. 在 WinForms 项目中的 App.config 文件中添加适当的连接字符串。
6. 在类库项目中添加一个读取该连接字符串的类。
7. 在 WinForms 项目中创建库类的实例并获取它读取的连接字符串。

这是我的 App.config 文件：

<?xml version="1.0" encoding="utf-8"?>
<configuration>
    <connectionStrings>
      <add name="TestConnection" connectionString="Data Source=(local);Initial Catalog=MyDatabase;Integrated Security=True"/>
    </connectionStrings>
    <startup>
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
    </startup>
</configuration>

这是我的图书馆类：

Imports System.Configuration

Public Class Class1

    Public Property ConnectionString As String

    Public Sub New()
        ConnectionString = ConfigurationManager.ConnectionStrings("TestConnection").ConnectionString
    End Sub

End Class

这是我的表单类：

Imports System.Configuration
Imports ClassLibrary1

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim testConnectionString = ConfigurationManager.ConnectionStrings("TestConnection").ConnectionString

        Debug.WriteLine(testConnectionString)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim obj As New Class1

        Debug.WriteLine(obj.ConnectionString)
    End Sub
End Class

当我运行该 WinForms 项目并单击 Buttons 时，我看到输出窗口中都显示了正确的连接字符串。如果你能做同样的事情并获得相同的结果，那么你就知道应该做什么，确实有效。然后，您需要查找此测试场景与您现有项目之间的差异。