If e.Name = "试用" Then
Dim 数据库1 As String = e.User.ExtendedValues("数据库1")
If 数据库1 = "试用"
e.C & e.ProjectPath & 数据库1 & ".mdb;Persist Security Info=False"
else
e.C & e.ProjectPath & 数据库1 & ".mdb;Persist Security Info=true"
End If
End If
照着帮助做的
在用户扩展属性那儿设了一个,数据库1,,,可选值有,试用和不连接
我想让用户选择是否需要连接这个数据源...
Persist Security Info=true" 不 连接???
Persist Security Info=False" 连接??
这两个是个意思?
不懂
这个你理解完全错了,但是你不用管它,连接字符串生成器会自动生成的。
数据源不能不可连接的,否则报错。
你可以用间接的办法实现“不链接”,例如指向一个本地的空白数据库。
那么版主
如果有10个数据源.有5个我不想连接.那不是要连接5个空数据源?可我不想让别人看到这些空的数据源..
你可能缺乏实践,走入想象和经验的误区了,建议你先看看帮助,特别是开发篇中
BeforeConnectOuterDataSource、
BeforeLoadInnerTable、BeforeLoadOuterTable三个事件,以及关于动态加载数据的内容,当然,最好是全面细看一次开发篇中的内容。
1、连接并不表示用户就能看到数据,因为你还可以设置加载条件的,还有隐藏表的。
2、数据源的链接字符串是可以动态设置的,即使你有10个数据源,你在Foxtable中也只需建立一个数据源,你也可以利用用户扩展属性,让用户输入或选择一个名称,然后根据此名
称生成链接字符串,链接真正的数据源。
3、除非你的项目要同时从多个数据源加载数据,否则只需在Foxtable中设置一个数据源。
4、即使你有10个数据源,要同时加载5个数据源,另外五个不加载,并不表示你就用建立5个空白的数据源,不加载的5个数据源全部指向一个本地的空白mdb文件即可。
[此贴子已经被作者于2009-5-18 8:46:45编辑过]