Foxtable(狐表)用户栏目专家坐堂 → 使用用户扩展属性时,无法正确登录系统


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

主题:使用用户扩展属性时,无法正确登录系统

帅哥哟,离线,有人找我吗?
royyang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:100 积分:1898 威望:0 精华:0 注册:2016/10/18 15:42:00
使用用户扩展属性时,无法正确登录系统  发帖心情 Post By:2017/8/30 9:38:00 [只看该作者]

使用用户扩展属性IP时,一打开工程就出现“未将对象引用设置到对象的实例。”,后面才出现登录窗口,而且无法连接正确的数据库。

If e.name = "连接源" Then
e.C & e.User.ExtendedValues("IP") & "\数据库.mdb;Persist Security Info=False"
End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/30 9:56:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
royyang
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:100 积分:1898 威望:0 精华:0 注册:2016/10/18 15:42:00
  发帖心情 Post By:2017/8/30 10:23:00 [只看该作者]

If e.Name = "销售数据" Then
    Dim
IP As String = e.User.ExtendedValues("IP") '获得用户输入的IP
   
If IP > "" '如果用户自己输入了IP
        '则用用户输入的IP替换原来的IP

        e.ConnectionString = e.ConnectionString.Replace(
"119.119.120.120", IP)
    End
If
End
If



如果用这个语句的替换的话ip.txt文件里面是不是只能是IP地址,不用用例如"\\n2\数据库"这样的中文?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/30 10:43:00 [只看该作者]

以下是引用royyang在2017/8/30 10:23:00的发言:


 

如果用这个语句的替换的话ip.txt文件里面是不是只能是IP地址,不用用例如"\\n2\数据库"这样的中文?

 

嗯嗯,是的。你弹出 msgbox(e.ConnectionString) 看看不就知道了?


 回到顶部