add sub into vb.net发生连接字符串属性尚未初始化

我发现很多有关连接字符串属性尚未初始化的解决方案，我试图按照并检查所有的解决方案，但它仍然无法解决我的问题。add sub into vb.net发生连接字符串属性尚未初始化

它发生在我加入Private Sub getdetails()，如果我删除它将恢复的子。它不会发生在其他私人分支它只有这一点。

Private Sub GetOrgLocEdit() 
    Dim strsql As String 
    Dim params As New Hashtable 
    Dim dt As New DataTable 

    Try 
     params.Clear() 

     strsql = "SELECT c.MMC_States + ' - ' + c.MMC_Desti as Desti FROM [database].[dbo].[tbODS] o " & _ 
      " INNER JOIN [database].[dbo].tbODSMealMilageClaims c " & _ 
      " on o.ODS_destination = c.MMC_States + ' - ' + c.MMC_Desti " & _ 
      " where c.MMC_Company = @company and o.ODS_ID = @id order by c.MMC_States, c.MMC_Desti " 

     params.Add("@company", ddlcompany.SelectedValue.Trim) 
     params.Add("@id", txtId.Text.Trim) 

     If dt.Rows.Count > 0 Then 
      ddlOrgLoc.DataSource = dt 
      ddlOrgLoc.DataTextField = "Desti" 
      ddlOrgLoc.DataValueField = "Desti" 
      ddlOrgLoc.DataBind() 
     Else 
      ddlOrgLoc.Items.Clear() 
     End If 

     common.execReaderGREEN(strsql, params, dt, common.txn) 

    Catch ex As Exception 
     Throw ex 
    End Try 
End Sub

连接字符串：

<add name="ConnStringGREEN" connectionString="Data Source=servername;DATABASE=database;Persist Security Info=True; User ID=user;Password=password" providerName="System.Data.SqlClient" />

OpenConn方法：

Public Sub OpenConn() 
    Try 
     'Portal Connection=========== 
     conn.ConnectionString = ConfigurationManager.ConnectionStrings("ConnStringGREEN").ConnectionString 
     If Not conn Is Nothing Then 
      If conn.State = Data.ConnectionState.Closed Then 
       conn.Open() 
      End If 
     Else 
      Throw New Exception("Can't connect to Portal SQL Server!") 
     End If

来源

2017-07-28 user8101021

这样做：

conn.ConnectionString = 
    ConfigurationManager.ConnectionStrings("ConnStringGREEN")

来源

2017-07-28 03:59:35 Gregg

add sub into vb.net发生连接字符串属性尚未初始化

回答

相关问题