以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  使用用户扩展属性时，无法正确登录系统  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105973)
--  作者：royyang
--  发布时间：2017/8/30 9:38:00
--  使用用户扩展属性时，无法正确登录系统
使用用户扩展属性IP时，一打开工程就出现“未将对象引用设置到对象的实例。”，后面才出现登录窗口，而且无法连接正确的数据库。

If e.name = "连接源" Then
e.C & e.User.ExtendedValues("IP") & "\\数据库.mdb;Persist Security Info=False"
End If
--  作者：有点甜
--  发布时间：2017/8/30 9:56:00
--  

这个没办法......

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=103342&skin=0

 
--  作者：royyang
--  发布时间：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\\数据库"这样的中文？
--  作者：有点甜
--  发布时间：2017/8/30 10:43:00
--  
以下是引用royyang在2017/8/30 10:23:00的发言：


 

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

 

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