C# と VB.NET の質問掲示板

いつもお世話になっております、たかしです。

App.configの「接続文字列」を変数に格納してVB.NETからSQLサーバーに接続しようと思い、
次のようなコードを書きました。
ちなみにForm1の接続文字列TextBoxには
"Data Source=(local)\SQLEXPRESS;Initial Catalog=**********SQL;Integrated Security=True"
と入力してあります。

    Private Sub 実行Button_Click(sender As Object, e As EventArgs) Handles 実行Button.Click

        Dim cn As New SqlClient.SqlConnection
        Dim cd As New SqlClient.SqlCommand
        Dim 接続文字列 As String

        接続文字列 = Form1.接続文字列TextBox.Text
        cn.ConnectionString = 接続文字列
        cn.Open()
　　　　cd.CommandType = CommandType.StoredProcedure
        cd.CommandText = "ストアドプロシージャ名"
        cd.Connection = cn
        cd.ExecuteNonQuery()
　　　　cd.Dispose()
　　　　cn.Close()
　　　　cn.Dispose()

    End Sub

Visual StudioのApp.configタブは次のとおりです。

前略
<connectionStrings>
        <add name="**********.My.MySettings.**********_SQLConnectionString"
            connectionString="Data Source=(local)\SQLEXPRESS;Initial Catalog=**********SQL;Integrated Security=True"
            providerName="System.Data.SqlClient" />
    </connectionStrings>
後略

なお、変数を用いずにダイレクトに次のように記載すると正常に動きます。
cn.ConnectionString = "Data Source=(local)\SQLEXPRESS;Initial Catalog=**********SQL;Integrated Security=True"

どこがいけないのでしょうか？
どなたかお願いします。

■No93366 (たかし さん) に返信
> ■No93365 (WebSurfer さん) に返信
>>■No93364 (たかし さん) に返信
>>
>>Settings ファイルに **********.My.MySettings.**********_SQLConnectionString という名前で
>>格納してあるように見えますが、そうであれば以下のようにしてはいかが？
>>
>>cn.ConnectionString = Properties.Settings.Default.**********.My.MySettings.**********_SQLConnectionString
> 
> WebSurfer さん、いつもお世話になっております。
> ご指示いただいたコードでうまく接続できました。
> しかしPropertiesのところでエラーが出ます。
> 
> エラー	BC30451	'Properties' は宣言されていません。アクセスできない保護レベルになっています。
> 
> このエラーを出さないためにはどうしたら良いでしょうか？
> よろしくお願いいたします。
> 

追記です。
Properties.Settings.Default.**********.My.MySettings.**********_SQLConnectionString
を変数に代入するとやはりcn.Open()の行でエラーが出ます。

■No93362 (たかし さん) に返信
> <connectionStrings>
>         <add name="**********.My.MySettings.**********_SQLConnectionString"
>             connectionString="Data Source=(local)\SQLEXPRESS;Initial Catalog=**********SQL;Integrated Security=True"
>             providerName="System.Data.SqlClient" />
>     </connectionStrings>

System.Configuration を参照設定して

Imports System.Data.Common
Imports System.Configuration

Const connectionName As String = "**********.My.MySettings.**********_SQLConnectionString"
Dim config As ConnectionStringSettings =
        ConfigurationManager.ConnectionStrings(connectionName)

としておいて

Dim factory As DbProviderFactory = DbProviderFactories.GetFactory(config.ProviderName)
Dim con As DbConnection = factory.CreateConnection()
con.ConnectionString = config.ConnectionString
con.Open()

もしくは

Dim cn As New SqlClient.SqlConnection
cn.ConnectionString = config.ConnectionString
cn.Open()

でどうでしょうか。

■No93382 (たかし さん) に返信
>         接続文字列 = Form1.接続文字列TextBox.Text

デフォルトのインスタンスを使ってますが、理解して使ってらっしゃいますか？

「My.Forms オブジェクト」
https://docs.microsoft.com/ja-jp/dotnet/visual-basic/language-reference/objects/my-forms-object

実行Button と同一のフォームに 接続文字列TextBox があるなら

    接続文字列 = Me.接続文字列TextBox.Text

でいいですし、違うフォームなら

    Dim 接続文字列 As String = String.Empty
    For Each f As Form In Application.OpenForms
        Dim f1 As Form1 = TryCast(f, Form1)
        If f1 IsNot Nothing Then
            接続文字列 = f1.接続文字列TextBox.Text
            If Not String.IsNullOrEmpty(接続文字列) Then
                Exit For
            End If
        End If
    Next

とインスタンスを検索したり、あらかじめ、実行Button_Click からアクセスできる範囲に
Form1 のインスタンスを保持しておく必要があります。