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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]隐藏指定外部数据线  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147569)

--  作者：miaoqingqing
--  发布时间：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放置数据线路径

--  作者：有点蓝
--  发布时间：2020/3/19 17:25:00
--
1楼代码有什么问题？没看到和txt有什么关系

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

--  作者：miaoqingqing
--  发布时间：2020/3/19 17:43:00
--  回复：（有点蓝）1楼代码有什么问题？没看到和txt有什...
我现在不想用帮助BeforeConnectOuterDataSource
项目文件目录下创建一个ip.txt可见外部数据源路径，想隐藏求助
打算把这个隐藏起来
D:\\数据库\\database.mdb，这个路径不被人在项目txt里发现
防止数据源被删或修改？有什么方法隐藏或加密？也求助

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

--  作者：程兴刚
--  发布时间：2020/3/19 18:02:00
--
加密解密txt文件的内容，怎么办您能做到的！

--  作者：miaoqingqing
--  发布时间：2020/3/19 18:05:00
--  回复：（程兴刚）加密解密txt文件的内容，怎么办您能做...
程总，不会加密txt，这个问题官方能否给个解决方案，隐藏数据源路径这个是很多人的需求吧

--  作者：miaoqingqing
--  发布时间：2020/3/19 22:49:00
--  回复：（有点蓝）1楼代码有什么问题？没看到和txt有什...
版主，辛苦帮忙看看，下面代码怎么修改了，谢谢

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
End If
End If

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

--  作者：有点蓝
--  发布时间：2020/3/20 9:36:00
--

去掉这句判断即可

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

--  作者：miaoqingqing
--  发布时间：2020/3/20 11:24:00
--  回复：（有点蓝）去掉这句判断即可If filesys.FileExi...
还报错，辛苦再看看
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
End If

--  作者：有点蓝
--  发布时间：2020/3/20 12:00:00
--
报什么错？
msgbox(Val3)解压后的内容是否正确，txt文件编辑的时候注意不要添加换行
[此贴子已经被作者于2020/3/20 12:01:55编辑过]

--  作者：miaoqingqing
--  发布时间：2020/3/20 12:02:00
--  回复：（有点蓝）报什么错？
还是弹出要链接外部数据手动修改的窗口
[此贴子已经被作者于2020/3/20 12:02:16编辑过]