以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何获取外部数据库（SQL）的数据库名称？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66592)
--  作者：lihe60
--  发布时间：2015/4/10 8:09:00
--  如何获取外部数据库（SQL）的数据库名称？


Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=sa;Initial Catalog=集团;Data Source=电脑

 

外部数据源字符串如上，如何猎取数据库名称“集团”？（数据库名称也可能是其他名称，如本公司）
[此贴子已经被作者于2015/4/10 8:16:22编辑过]
--  作者：Bin
--  发布时间：2015/4/10 8:32:00
--  
你自己设置的,你自己不知道吗? 还用得着获取?
--  作者：lihe60
--  发布时间：2015/4/10 8:33:00
--  
自己知道了，需要用代码获取。
--  作者：lihe60
--  发布时间：2015/4/10 8:34:00
--  

Dim Multi As String = Connections("liheerp").ConnectionString
Dim Values() As String
Values = Multi.split("=")
Dim Values1() As String
Values1 = Values(5).split(";")
Dim sqlname=Values(5).Substring(0,Values(5).length-Values1(1).length-1)

 

 

这个代码如何优化？
--  作者：Bin
--  发布时间：2015/4/10 8:37:00
--  
Dim str As String = "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=sa;Initial Catalog=集团;Data Source=电脑"
For Each s As String In str.split(";")
   If s.StartsWith("Initial Catalog") Then
       MessageBox.show(s.split("=")(1))
   End If
Next