在 vb.net 中创建数据库配置文件
Creating a db config file in vb.net
我正在尝试在 vb.net 中创建一个 windows 表单应用程序,它应该与用户特定的数据库一起工作,这意味着用户创建数据库并给它 his/her 自己的名称,之后系统导入我的数据库文件并从中创建表,然后创建一个用于连接的配置文件。
到目前为止我已经创建了一个表单,用户将填写该表单并保存数据库设置,它们将像这样存储在应用程序设置变量中
Private Sub Save()
My.Settings.MServer = TxtServer.Text
My.Settings.MDbUser = TxtDbUname.Text
My.Settings.MDbPass = TxtDbPwd.Text
My.Settings.MDb = TxtDb.Text
My.Settings.Save()
MessageBox.Show("Dtabase settings saved correctly", "Database settings")
My.Settings.Reload()
Application.Restart()
End Sub
问题是,将它放在主窗体菜单的设置部分下,会对系统造成漏洞,因为任何有权访问安装它的计算机的人都可以更改它。
所以想请教一下
- 有什么方法可以将它作为安装程序的一部分吗?
- 如果是,那我该怎么办?
谢谢
试试这个
创建一个系统设置变量,让用户设置它的值,然后创建一个表单,用户将从中输入数据库值
之后,在加载主表单甚至登录表单的代码中,创建一个 if 语句来检查是否设置了用户设置,否则加载表单,以便用户输入并保存它们,如下所示:
应用程序设置定义
然后在加载您的登录/主表单之前添加此代码
if My.Settings.MServer = String.Empty AndAlso
My.Settings.MDbUser = String.Empty AndAlso
My.Settings.MDbPass = String.Empty AndAlso
My.Settings.MDb = String.Empty Then
MySettingsForm.Show()
Else
'Load the next part either the login or main form'
End If
在 Mydbsettings 表单的保存按钮的 onclick 事件下添加此代码以保存设置
My.Settings.MServer = TxtServer.Text
My.Settings.MDbUser = TxtDbUname.Text
My.Settings.MDbPass = TxtDbPwd.Text
My.Settings.MDb = TxtDb.Text
My.Settings.Save()
MessageBox.Show("Database settings saved correctly", "Database settings")
My.Settings.Reload()
Application.Restart()
我正在尝试在 vb.net 中创建一个 windows 表单应用程序,它应该与用户特定的数据库一起工作,这意味着用户创建数据库并给它 his/her 自己的名称,之后系统导入我的数据库文件并从中创建表,然后创建一个用于连接的配置文件。
到目前为止我已经创建了一个表单,用户将填写该表单并保存数据库设置,它们将像这样存储在应用程序设置变量中
Private Sub Save()
My.Settings.MServer = TxtServer.Text
My.Settings.MDbUser = TxtDbUname.Text
My.Settings.MDbPass = TxtDbPwd.Text
My.Settings.MDb = TxtDb.Text
My.Settings.Save()
MessageBox.Show("Dtabase settings saved correctly", "Database settings")
My.Settings.Reload()
Application.Restart()
End Sub
问题是,将它放在主窗体菜单的设置部分下,会对系统造成漏洞,因为任何有权访问安装它的计算机的人都可以更改它。
所以想请教一下
- 有什么方法可以将它作为安装程序的一部分吗?
- 如果是,那我该怎么办?
谢谢
试试这个 创建一个系统设置变量,让用户设置它的值,然后创建一个表单,用户将从中输入数据库值 之后,在加载主表单甚至登录表单的代码中,创建一个 if 语句来检查是否设置了用户设置,否则加载表单,以便用户输入并保存它们,如下所示:
应用程序设置定义
然后在加载您的登录/主表单之前添加此代码
if My.Settings.MServer = String.Empty AndAlso
My.Settings.MDbUser = String.Empty AndAlso
My.Settings.MDbPass = String.Empty AndAlso
My.Settings.MDb = String.Empty Then
MySettingsForm.Show()
Else
'Load the next part either the login or main form'
End If
在 Mydbsettings 表单的保存按钮的 onclick 事件下添加此代码以保存设置
My.Settings.MServer = TxtServer.Text
My.Settings.MDbUser = TxtDbUname.Text
My.Settings.MDbPass = TxtDbPwd.Text
My.Settings.MDb = TxtDb.Text
My.Settings.Save()
MessageBox.Show("Database settings saved correctly", "Database settings")
My.Settings.Reload()
Application.Restart()