主题：BeforeConnectOuterDataSource 事件中，怎样获取到连接中的IP

正规一点，就这样写

Dim hz1 As String = "Provider=SQLOLEDB.1;Password=00;Persist Security Info=True;User ID=sa;Initial Catalog=jjerp;Data Source=192.168.1.1,20020"
Dim reg As new System.Text.RegularExpressions.Regex("(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9])\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[0-9])")
Dim mc As object = reg.Matches(hz1)
msgbox(mc(0).value)

Dim hz1 As String = "Provider=SQLOLEDB.1;Password=00;Persist Security Info=True;User ID=sa;Initial Catalog=jjerp;Data Source=192.168.1.1,20020"
Dim reg As new System.Text.RegularExpressions.Regex("(?<=Initial Catalog=).+?(?=;)")
Dim mc As object = reg.Matches(hz1)
msgbox(mc(0).value)

Dim hz1 As String = "Provider=SQLOLEDB.1;Password=00;Persist Security Info=True;User ID=sa;Initial Catalog=jjerp;Data Source=192.168.1.1,20020"
Dim reg As new System.Text.RegularExpressions.Regex("(?<=User ID=).+?(?=;)")
Dim mc As object = reg.Matches(hz1)
msgbox(mc(0).value)