在安装vb.net项目期间添加连接字符串 [英] adding connection string during installation of vb.net project
问题描述
我想创建一个安装程序,其中用户指定数据库的连接字符串。
I want to create an installer wherein the user specifies where the connection string of the database.
我看过这样的文章,但他们在C#。
像这样: http://www.codeproject .com / Tips / 446121 / Adding-connection-string-during-installation
I've seen a articles like this but they're in C#. like this one: http://www.codeproject.com/Tips/446121/Adding-connection-string-during-installation
我也尝试将代码翻译成vb.net,但有一些
I also tried to translate the code into vb.net but there are some errors I can't fix.
如果任何人可以告诉我该怎么做,或任何可能帮助我的文章真的是一个很大的帮助。
If anyone can tell me how to do it or any article that might help me is really a great help.
我想在我的vb.net项目中不是在C#中执行此操作
I want to do this in my vb.net project not in C#
推荐答案
代码转换为VB .NET
Here is the code converted to 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")
这篇关于在安装vb.net项目期间添加连接字符串的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!