2013-03-16 282 views
6

真的有连接字符串恼人的时间。VB.NET连接字符串(Web.Config,App.Config)

我在一个解决方案中有两个项目在一起。作为表示层的Web表单应用程序和支持它的类库,它们将发送和接收来自数据库的数据。

- Employee类的类库项目中 -

Friend Class Employee 

Public Function GetEmployees() As DataSet 

    Dim DBConnection As New SqlConnection(My_ConnectionString) 
    Dim MyAdapter As New SqlDataAdapter("exec getEmployees", DBConnection) 

    Dim EmployeeInfo As DataSet 
    MyAdapter.Fill(EmployeeInfo, "EmployeeInfo") 

    Return EmployeeInfo 

End Function 

End Class 

目前的应用是告诉我它无法访问“My_ConnectionString”我试图快速屡次获得一个配置文件中存储:

<configuration> 

<system.web> 
    <compilation debug="true" strict="false" explicit="true" targetFramework="4.5" /> 
    <httpRuntime targetFramework="4.5" /> 
</system.web> 

<connectionStrings> 
    <add name="My_ConnectionString" connectionString="Data Source=.\sqlexpress;Initial Catalog=My_DB;Integrated Security=True;"/> 
</connectionStrings> 

</configuration> 

web.config是Web表单项目的一部分,而不是类库,这些项目是不能'对话'对方?我是否需要将Web /应用程序配置文件添加到类库以在该项目中存储连接字符串?

+0

从你的代码,它看起来像你试图使用'My_ConnectionString'检索值从你的配置文件。如果这是正确的,那将不起作用 - 您需要以类似于@G的方式从配置文件中检索它。斯托伊涅夫的答案在下面。 – Tim 2013-03-16 06:29:50

+0

这可能很有用http://www.connectionstrings.com/ – ajt 2013-03-16 06:40:54

回答

14

不清楚的地方My_ConnectionString是从你的例子来,但是尝试这个

System.Configuration.ConfigurationManager.ConnectionStrings("My_ConnectionString").ConnectionString

这样

Dim DBConnection As New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("My_ConnectionString").ConnectionString) 
+2

你也可以添加一个对'System.Configuration'的引用,用'Imports System.Configuration'导入它,然后用较短的'ConfigurationManager.ConnectionStrings( “My_ConnectionString”)。ConnectionString'。 – Tim 2013-03-16 06:31:59

+3

我也建议使用'Using'块来确保连接正确处置。 – Tim 2013-03-16 06:32:51

+0

'ConfigurationManager'不是'Configuration'的成员 我觉得我在某个地方犯了一个错误... – Corgalas 2013-03-16 06:39:30

4

如果它是一个.MDF数据库连接字符串保存时已创建,您应该可以通过以下方式访问它:

Dim cn As SqlConnection = New SqlConnection(My.Settings.DatabaseNameConnectionString) 

希望能帮助别人。

0
Public Function connectDB() As OleDbConnection 

     Dim Con As New OleDbConnection 
     'Con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=" & DBNAME & ";Data Source=" & DBSERVER & ";Pwd=" & DBPWD & "" 
     Con.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DBNAME;Data Source=DBSERVER-TOSH;User ID=Sa;Pwd= & DBPWD" 
     Try 
      Con.Open() 
     Catch ex As Exception 
      showMessage(ex) 
     End Try 
     Return Con 
    End Function 
+0

您能否向您的代码添加一些解释?谢谢! – cramopy 2016-03-29 15:50:01

0

连接在AppConfig中

<connectionStrings> 
    <add name="ConnectionString" connectionString="Data Source=192.168.1.25;Initial Catalog=Login;Persist Security Info=True;User ID=sa;Password=example.com" providerName="System.Data.SqlClient" /> 
</connectionStrings> 

在Class.Cs

public string ConnectionString 
{ 
    get 
    { 
     return System.Configuration.ConfigurationManager.ConnectionStrings["ConnectionString"].ToString(); 
    } 
}