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發生連接字符串屬性尚未初始化

回答

相關問題