[求助]隐藏指定外部数据线 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]隐藏指定外部数据线

共有2435人关注过本帖树形打印复制链接主题：[求助]隐藏指定外部数据线

miaoqingqing

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

[求助]隐藏指定外部数据线 发帖心情

Post By：2020/3/19 17:00:00 [只看该作者]

If FileSys.FileExists("D:\数据库\database.mdb") Then

Dim ipfile As String = "D:\数据库\database.mdb"

If e.name = "database" Then

e.C & ipfile & ";Persist Security Info=False" ' 若是数据库有密码,则加上: ;jet OLEDB:DATABASE PASSWORD=123456

End If

Else

Messagebox.Show("请检查数据库是否存在!","提示")

End If

求助，上面代码怎么修改？想隐藏外部数据源路径，不用txt放置数据线路径

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/19 17:25:00 [只看该作者]

1楼代码有什么问题？没看到和txt有什么关系

e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ipfile & ";Persist Security Info=False"

miaoqingqing

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）1楼代码有什么问题？没看到和txt有什... 发帖心情

Post By：2020/3/19 17:43:00 [只看该作者]

我现在不想用帮助BeforeConnectOuterDataSource

项目文件目录下创建一个ip.txt可见外部数据源路径，想隐藏求助

打算把这个隐藏起来

D:\数据库\database.mdb，这个路径不被人在项目txt里发现

防止数据源被删或修改？有什么方法隐藏或加密？也求助

[此贴子已经被作者于2020/3/19 17:45:39编辑过]

程兴刚

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7237 积分：40614 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2020/3/19 18:02:00 [只看该作者]

加密解密txt文件的内容，怎么办您能做到的！

miaoqingqing

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（程兴刚）加密解密txt文件的内容，怎么办您能做... 发帖心情

Post By：2020/3/19 18:05:00 [只看该作者]

程总，不会加密txt，这个问题官方能否给个解决方案，隐藏数据源路径这个是很多人的需求吧

miaoqingqing

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）1楼代码有什么问题？没看到和txt有什... 发帖心情

Post By：2020/3/19 22:49:00 [只看该作者]

版主，辛苦帮忙看看，下面代码怎么修改了，谢谢

Dim Val1 As String = "D:\数据库\database.mdb"

Dim Val2 As String = EncryptText(Val1,"a23","op#") '加密

'加密后:54U5wkZHLbSU2MQM3C2eLLfO2Iw9r/O/Yj/pnZ0WElOesbYOeFGD6g==

在文件夹 Bin\ip.txt 新建记事本录入加密后内容

54U5wkZHLbSU2MQM3C2eLLfO2Iw9r/O/Yj/pnZ0WElOesbYOeFGD6g==

Dim ipfile As String = projectpath & "Bin\ip.txt" '定义Ipfile为配置文件

If filesys.FileExists(ipfile) = True Then '先检测是否有Ip.txt这个配置文件

Dim dbfile As String = filesys.ReadAllText(ipfile) '将dbfile定义为配置文件的内容,即数据库的路径?

Dim Val3 As String = DecryptText(ipfile,"a23","op#") '解密,两个密钥必须和加密的时候相同

If filesys.FileExists(Val3) = True Then '若指定的数据库存在

If e.name = "database" Then

e.C & Val3 & ";Persist Security Info=False" ' 若是数据库有密码,则加上: ;jet OLEDB:DATABASE PASSWORD=123456

End If

[此贴子已经被作者于2020/3/19 23:17:03编辑过]

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/20 9:36:00 [只看该作者]

去掉这句判断即可

If filesys.FileExists(Val3) = True Then '若指定的数据库存在

miaoqingqing

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）去掉这句判断即可If filesys.FileExi... 发帖心情

Post By：2020/3/20 11:24:00 [只看该作者]

还报错，辛苦再看看

Dim ipfile As String = projectpath & "Bin\ip.txt" '定义Ipfile为配置文件

If filesys.FileExists(ipfile) = True Then '先检测是否有Ip.txt这个配置文件

Dim dbfile As String = filesys.ReadAllText(ipfile) '将dbfile定义为配置文件的内容,即数据库的路径?

Dim Val3 As String = DecryptText(dbfile,"a23","op#") '解密,两个密钥必须和加密的时候相同

If e.name = "database" Then

e.C & Val3 & ";Persist Security Info=False" ' 若是数据库有密码,则加上: ;jet OLEDB:DATABASE PASSWORD=123456

End If

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/20 12:00:00 [只看该作者]

报什么错？
msgbox(Val3)解压后的内容是否正确，txt文件编辑的时候注意不要添加换行

[此贴子已经被作者于2020/3/20 12:01:55编辑过]

miaoqingqing

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）报什么错？ 发帖心情

Post By：2020/3/20 12:02:00 [只看该作者]

还是弹出要链接外部数据手动修改的窗口

[此贴子已经被作者于2020/3/20 12:02:16编辑过]

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：[求助]隐藏指定外部数据线