1,按照实例中的BeforeConnectOuterDataSource事件
示例四
假定有一个名为“销售数据”远程数据源,默认的IP地址为119.119.120.120,因为服务器的调整,IP地址可能会发生变化,导致数据源无法连接。
为解决这个问题,可以在用户管理窗口增加一个名为IP的扩展用户属性,让用户在登录的时候,可以输入另一个IP地址,然后在BeforeConnectOuterDataSource事件中加入下面的代码:
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
按以上设置出现错误提示
此主题相关图片如下:qq截图未命名.png
2,按照实例中的自定义用户与权限管理
在文件“用户.mdb”新建一个名为“Users”的表,包括Name、Group、Passwor三列,分别用于保存用户名、用户分组和密码。
在定向到外部数据源时出错提示
此主题相关图片如下:qq截图未命名.png
[此贴子已经被作者于2011-2-20 16:58:08编辑过]