同一个数据源名称有两个链接字符串怎么实现先判断第一个如果第一个链接不成功就用第二个字符串链接呢？确保两个都不能链接的时候再弹出错误提示，如果有其中一个可以连接就不弹出错误提示

If e.name = "kj222" Then

e.Connec tionS tring = "Pro vider=SQLO LEDB.1;Passw ord=kj222;Persist Sec urity Info=True;User ID=sa;Initial Cata log=BW_KJ222;Data Sour ce=DESKTOP-4HGMIGM\SQLEXPRESS"

e.Connec tionS tring = "Pro vider=SQLO LEDB.1;Passw ord=kj222;Persist Sec urity Info=True;User ID=sa;Initial Cata log=BW_KJ222;Data Sour ce=WIN-RR3MKL7U9ON\SQLSERVER2008"

ElseIf e.name = "BW_HR" Then

e.Connectio nString = "Pro vider=SQLO LEDB.1;Pass word=kj222;Persist Secur ity Info=True;User ID=sa;Init ial Cat alog=BW_HR;Data Sou r ce=DESKTOP-4HGMIGM\SQLEXPRESS"

e.Connectio nString = "Pro vider=SQLO LEDB.1;Pass word=kj222;Persist Secur ity Info=True;User ID=sa;Init ial Cat alog=BW_HR;Data Sou r ce=WIN-RR3MKL7U9ON\SQLSERVER2008"

End If

[此贴子已经被作者于2021/7/12 15:41:09编辑过]

看见过这个帮主内容但是没有明白怎么用法

我的连接语句里面不是ip

[此贴子已经被作者于2021/7/12 15:54:04编辑过]

If e.Name = "kj222" Then

If Network.Ping("DESKTOP-4HGMIGM\SQLEXPRESS",1000) = False Then '如果第一个IP无法接通

If Network.Ping("WIN-RR3MKL7U9ON\SQLSERVER2008",1000) = False Then '如果第二个IP无法接通

msgbox("出错")

Else

e.ConnectionString = e.ConnectionString.Replace("DESKTOP-4HGMIGM\SQLEXPRESS", "WIN-RR3MKL7U9ON\SQLSERVER2008")

End If

ELSE If e.Name = "BW_HR" Then

If Network.Ping("DESKTOP-4HGMIGM\SQLEXPRESS",1000) = False Then '如果第一个IP无法接通

If Network.Ping("WIN-RR3MKL7U9ON\SQLSERVER2008",1000) = False Then '如果第二个IP无法接通

msgbox("出错")

Else

e.ConnectionString = e.ConnectionString.Replace("DESKTOP-4HGMIGM\SQLEXPRESS", "WIN-RR3MKL7U9ON\SQLSERVER2008")

End If

老师是这样么？下面的红色部分又该写在哪里呢？

If e.name = "kj222" Then

e.Connec tionS tring = "Pro vider=SQLO LEDB.1;Passw ord=kj222;Persist Sec urity Info=True;User ID=sa;Initial Cata log=BW_KJ222;Data Sour ce=DESKTOP-4HGMIGM\SQLEXPRESS"

e.Connec tionS tring = "Pro vider=SQLO LEDB.1;Passw ord=kj222;Persist Sec urity Info=True;User ID=sa;Initial Cata log=BW_KJ222;Data Sour ce=WIN-RR3MKL7U9ON\SQLSERVER2008"

ElseIf e.name = "BW_HR" Then

e.Connectio nString = "Pro vider=SQLO LEDB.1;Pass word=kj222;Persist Secur ity Info=True;User ID=sa;Init ial Cat alog=BW_HR;Data Sou r ce=DESKTOP-4HGMIGM\SQLEXPRESS"

e.Connectio nString = "Pro vider=SQLO LEDB.1;Pass word=kj222;Persist Secur ity Info=True;User ID=sa;Init ial Cat alog=BW_HR;Data Sou r ce=WIN-RR3MKL7U9ON\SQLSERVER2008"

END IF

如下代码不要了？那我怎么定义账户和密码以及对应的数据库呢？因为服务器名称不同对应的也密码不同

If e.name = "kj222" Then

e.Connec tionS tring = "Pro vider=SQLO LEDB.1;Passw ord=kj222kj222;Persist Sec urity Info=True;User ID=sa;Initial Cata log=BW_KJ222;Data Sour ce=DESKTOP-4HGMIGM\SQLEXPRESS"

e.Connec tionS tring = "Pro vider=SQLO LEDB.1;Passw ord=kj222;Persist Sec urity Info=True;User ID=sa;Initial Cata log=BW_KJ222;Data Sour ce=WIN-RR3MKL7U9ON\SQLSERVER2008"

ElseIf e.name = "BW_HR" Then

e.Connectio nString = "Pro vider=SQLO LEDB.1;Pass word=kj222kj222;Persist Secur ity Info=True;User ID=sa;Init ial Cat alog=BW_HR;Data Sou r ce=DESKTOP-4HGMIGM\SQLEXPRESS"

e.Connectio nString = "Pro vider=SQLO LEDB.1;Pass word=kj222;Persist Secur ity Info=True;User ID=sa;Init ial Cat alog=BW_HR;Data Sou r ce=WIN-RR3MKL7U9ON\SQLSERVER2008"

END IF

[此贴子已经被作者于2021/7/12 17:18:46编辑过]

还是没有实现DESKTOP-4HGMIGM\SQLEXPRESS不通的时候，不要提示错误直接跳到WIN-RR3MKL7U9ON\SQLSERVER2008 当WIN-RR3MKL7U9ON\SQLSERVER2008这个都链接不上的时候再提示错误

主题：同一个数据源名称 有两个链接字符串 怎么实现先判断第一个 如果第一个链接不成功 就用第二个字符串链接呢？确保两个都不能链接的时候再弹出错误提示，如果有其中一个可以连接就不弹出错误提示

主题：同一个数据源名称有两个链接字符串怎么实现先判断第一个如果第一个链接不成功就用第二个字符串链接呢？确保两个都不能链接的时候再弹出错误提示，如果有其中一个可以连接就不弹出错误提示