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


  共有4104人关注过本帖树形打印复制链接

主题：[求助]隐藏指定外部数据线
帅哥哟，离线，有人找我吗？
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放置数据线路径
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（程兴刚）加密解密txt文件的内容，怎么办您能做...  发帖心情 Post By：2020/3/19 18:05:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
    End If
End If




[此贴子已经被作者于2020/3/19 23:17:03编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
End If
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）msgbox(Val3)解压后的内容是否正确，...  发帖心情 Post By：2020/3/20 12:19:00 [显示全部帖子]

可以了，多谢了
[此贴子已经被作者于2020/3/20 12:27:08编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询