| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 项目在设计之初直接在数据源设置了数据库信息，怎么在发布后，动态修改数据源设置数据呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178425) |
| -- 作者：cnsjroom -- 发布时间：2022/7/4 10:55:00 -- 项目在设计之初直接在数据源设置了数据库信息，怎么在发布后，动态修改数据源设置数据呢？ 项目在设计之初直接在数据源设置了数据库信息，怎么在发布后，动态修改数据源设置数据呢？ 目前开发端电脑和使用端电脑数据库表结构一样
项目在设计之初 在数据源管理里面设置了 电子审批台账 数据源 Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=网安综合业务;Data Source=DESKTOP-4HGMIGM\\SQLEXPRESS
然后在数据源加载事项中写入如下 Dim File As String = ProjectPath & "Attachments\\Connect.Ini"
Connect.Ini文件内容如下： Provider=SQLOLEDB.1;Password=Aa123456;Persist Security Info=True;User ID=sa;Initial Catalog=网安综合业务;Data Source=192.168.110.110
上述在发布后 实际运行时，没有直接对应192.168.110.110这个地址上的数据库 有没有办法调整呢？ |
| -- 作者：有点蓝 -- 发布时间：2022/7/4 10:58:00 -- 调试 Dim File As String = ProjectPath & "Attachments\\Connect.Ini" msgbox(File) \'发布后的程序目录里有没有这个文件？ msgbox(e.Name) \'数据源名称是"电子审批台账"？ If e.Name = "电子审批台账" Then If Filesys.FileExists(File) Then msgbox(FileSys.ReadAllText(File)) ‘文件里存储的理解字符串是正确的？
e.ConnectionString = FileSys.ReadAllText(File) End If End If |
| -- 作者：cnsjroom -- 发布时间：2022/7/4 11:05:00 -- 回复：（有点蓝）调试Dim File As String = ProjectPa... 依次为： C:\\Users\\Administrator\\Documents\\Foxtable_Temporary\\dfdbad\\Attachments\\Connect.Ini 电子审批台账
正确应该为 C:\\Users\\Administrator\\Documents\\Foxtable项目\\陈正海\\Attachments\\Connect.Ini
有什么办法修正不 呢？ |
| -- 作者：有点蓝 -- 发布时间：2022/7/4 11:11:00 -- Dim File As String = e.ProjectPath & "Attachments\\Connect.Ini" |
| -- 作者：cnsjroom -- 发布时间：2022/7/4 11:29:00 -- 回复：（有点蓝）Dim File As String = e.ProjectPath... 谢谢老师 |