示例一
假定有一个成绩管理系统,使用的是一个Access格式的外部数据源,外部数据源的名称为“成绩”,外部数据文件名为"成绩数据.mdb",和项目文件处于同一目录之下。
为了保证这个项目复制到任何目录都能正常链接该外部数据源,可以在BeforeConnectOuterDataSource事件中加入下面的代码:
If e.name = "成绩"
Then
e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
& e.ProjectPath
&
"\成绩数据.mdb;Persist Security Info=False"
End
if
这里假定外部数据源的格式2000/2003,如果是2007,代码为:
If e.name = "成绩"
Then
e.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
& e.ProjectPath
&
"\成绩数据.mdb;Persist Security Info=False"
End
if
示例二
假定有一个名为“销售数据”远程数据源,默认的IP地址为119.119.120.120,因为服务器的调整,IP地址可能会发生变化,导致数据源无法连接。
为解决这个问题,可以在项目文件目录下创建一个ip.txt的文本文件,在该文件中输入最新的IP地址,并在BeforeConnectOuterDataSource事件中设置如下代码:
Dim
ipFile
As
String = e.ProjectPath
&
"ip.txt"
If
e.Name = "销售数据"
Then
If
Filesys.FileExists(ipFile) Then
Dim
ip
As
String = FileSys.ReadAllText(ipFile)
e.ConnectionString = e.ConnectionString.Replace("119.119.120.120",ip)
End
If
End
If
[此贴子已经被作者于2008-11-23 17:05:43编辑过]