以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何定义数据源名称  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78755)
--  作者：yyzlxc
--  发布时间：2015/12/16 13:41:00
--  [求助]如何定义数据源名称
在项目事件BeforeConnectOuterDataSource中，一段动态链接代码，如何将链接的数据源名称定义为“SCZD”，请工位老师指教，谢谢！！

If TryConnectHost("192.168.53.160") Then
    e.Conne ction String = "Pro vider=Microsoft.Jet.OLEDB.4.0;Data Source=\\\\192.168.53.160\\MESGX$\\手持终端\\手持终端.mdb;Persist Security Info=False"
End If


[此贴子已经被作者于2015/12/16 13:43:45编辑过]
--  作者：大红袍
--  发布时间：2015/12/16 13:57:00
--  
在这个事件，只能修改数据源的连接字符串，数据源名是不能改的。
--  作者：大红袍
--  发布时间：2015/12/16 13:58:00
--  
数据源名是设置的时候就确定的，过程中不能改。
--  作者：yyzlxc
--  发布时间：2015/12/16 14:07:00
--  
谢谢大红袍老师的指教，我设想：网络通的时候链接外部数据源，不通的时候在全局变量赋值，使后续的操作屏蔽掉到外部数据源操作的代码。

因为外部数据源操作需要数据源名称，应该如何处理，请老师指教，谢谢!!
--  作者：yyzlxc
--  发布时间：2015/12/16 14:23:00
--  

增加数据源应用到上述要求，如何实现，请老师指教，谢谢！！


Connections

一般用户可以忽略本节内容，因为很少需要通过代码来管理数据源的。

Connections表示数据源集合，可以获得指定名称的数据源。

示例

Dim cn As Connection 
cn =  Connections("test")

Connections的属性和方法有：

Add

增加数据源。

语法：

Add(Name, ConnectionString)

Name：       新增数据源的名称。
ConnectionString：新增数据源的链接字符串。

例如：

Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\abc.mdb;Persist Security Info=False")
--  作者：大红袍
--  发布时间：2015/12/16 14:38:00
--  

这个肯定做不到。具体你要做什么？详细说明。
--  作者：yyzlxc
--  发布时间：2015/12/16 14:55:00
--  
谢谢大红袍老师的回复，现在的问题是：项目设置了外部数据源（通过无线网络连接），如何在无网络的情况下，能够打开项目并不报错。用什么办法来实现，请老师指教，谢谢！！
--  作者：大红袍
--  发布时间：2015/12/16 15:53:00
--  

 弄一个access数据源就行。如果不能连接外部数据源，就连接这个access数据库。

 

 之后：

 

方法一：access的结构和sqlserver的一致，代码都不用改了。

 

方法二：弄一个变量记录能否连接，无法连接的时候，你里面各个代码都对应的判断和做各种操作。