0

ユーザーがデータベースの接続文字列の場所を指定するインストーラーを作成したいと考えています。

このような記事を見たことがありますが、それらは C# です。このように: http://www.codeproject.com/Tips/446121/Adding-connection-string-during-installation

また、コードを vb.net に変換しようとしましたが、修正できないエラーがいくつかあります。

誰かがそれを行う方法や私を助けるかもしれない記事を教えてくれれば、本当に大きな助けになります.

C＃ではなくvb.netプロジェクトでこれを行いたい

4

1 に答える 1

0

VB .NET に変換したコードを次に示します。

'Installer.vb
Dim dataSource As String = "Data Source=" & Context.Parameters("DataSource")
Dim initialcatalog As String = "Initial Catalog=" & Context.Parameters("InitialCatalog")
Dim user As String = "User ID=" & Context.Parameters("UserID")
Dim password As String = "Password=" & Context.Parameters("Password")
dataSource = dataSource & ";" & initialcatalog & ";" & user & ";" & password
dataSource = dataSource
MessageBox.Show("instance=" & dataSource)

Dim map As New ExeConfigurationFileMap()
MessageBox.Show(System.Reflection.Assembly.GetExecutingAssembly().Location & ".config")

'Getting the path location 
Dim configFile As String = String.Concat(System.Reflection.Assembly.GetExecutingAssembly().Location, ".config")
map.ExeConfigFilename = configFile

Dim config As System.Configuration.Configuration = ConfigurationManager.OpenMappedExeConfiguration(map, ConfigurationUserLevel.None)
Dim connectionsection As String = config.ConnectionStrings.ConnectionStrings("MyConnectionString").ConnectionString
Dim connectionstring As ConnectionStringSettings = Nothing

If connectionsection IsNot Nothing Then
    config.ConnectionStrings.ConnectionStrings.Remove("MyConnectionString")
   'MessageBox.Show("removing existing Connection String")
End If

connectionstring = New ConnectionStringSettings("MyConnectionString", dataSource)
config.ConnectionStrings.ConnectionStrings.Add(connectionstring)
config.Save(ConfigurationSaveMode.Modified, True)
ConfigurationManager.RefreshSection("connectionStrings")
于 2013-07-29T07:33:09.690 に答える