VB.NET 中的连接字符串问题？

Question

我有以下连接字符串class

Imports System.Data.SqlClient

Public Class DBConnection
    Sub GetConnection()
        Dim CrmsConn As New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("crmsConnectionString").ConnectionString)

    End Sub

End Class

我试过从上面 class 调用连接字符串如下：

 Dim dbcon As DBConnection
Dim con As New SqlConnection(dbcon.GetConnection())

但是在dbcon.GetConnection()附近有错误。解决方法是什么？

Answer 1

GetConnection 是一个子程序。这意味着它没有 return 任何东西，您不能尝试使用不存在的 return 值。（这是一个编译时错误，在修复之前不能生成任何可执行代码）

让它成为一个函数 public

Public Function GetConnection() as SqlConnection
    return New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("crmsConnectionString").ConnectionString)
End Function

然后用作（但要先创建class实例，否则在运行时会出现空引用异常）

' Create the instance of the DBConnection class and ...
Dim dbcon As DBConnection = new DBConnection()

' ... get the connection
Dim con as SqlConnection = dbcon.GetConnection()

最后记得像这样围绕一次性对象使用 Using 语句

Using con = dbCon.GetConnection()
    ....
End Using

VB.NET 中的连接字符串问题？

Connection string issue in VB.NET?

vb.net

connection-string