以文本方式查看主题

-  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=24308)
--  作者：kevin
--  发布时间：2012/10/10 11:39:00
--  请教:需要判断项目内已有的数据源,如果有相同名称的数据源,则不创建,否则执行创建数据源代码

如题:

以下是执行创建数据源的代码:

Connections.Add(str1,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & str2  & ";Persist Security Info=False")

 

现在需要判断:如果存在的数据源名称与"STR1"相同,则不创建数据源.否则创建.
--  作者：程兴刚
--  发布时间：2012/10/10 11:49:00
--  
 

For Each cn As Connection In Connections
   if cn.Name = str1 
       Exit For

      Return

   end if

Next

Connections.Add(str1,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & str2 & ";Persist Security Info=False")
--  作者：lin_hailun
--  发布时间：2012/10/10 12:11:00
--  
 其实可用 connections.Contains("数据源") 来判断。