问题描述
PublicFunctionOpenConnect()AsSqlConnectionTryDimconnectionStringAsString=_"PersistSecurityInfo=False;UserID=admin;Password=admin123;InitialCatalog=BPP2;DataSource="&DataServer&";FailoverPartner=tb-mirror;"DimConnectAsNewSqlConnection(connectionString)IfConnect.State=ConnectionState.ClosedThenConnect.Open()EndIfReturnConnectCatchexAsExceptionMsgBox("连接数据库失败!",MsgBoxStyle.Critical,"NetworkWrong")EndTryReturnNothingEndFunction
这是我连接数据库代码?我每次访问数据库都进入该过程判断连接是否打开/.......?程序运行每天都要报几次"连接数据库失败"的错误..程序有多台电脑同时使用,每次报错的时候不是全部电脑报错,因此我觉得不太可能是网络的问题?访问数据库的方法一般都是用mydr=NewSqlDataAdapter(strSql,OpenConnect)DimCmdAsNewSqlCommandCmd.Connection=OpenConnect()Cmd.CommandText="Select*fromsysLanguage"DimReaderAsSqlClient.SqlDataReader=Cmd.ExecuteReader
请问是什么原因引起"数据库连接失败!"
解决方案
解决方案二:
谁告诉你说ConnectionState只有Open和Close两种状态啊IfConnect.State=ConnectionState.ClosedThenConnect.Open()EndIf改成IfConnect.State<>ConnectionState.OpenThenConnect.Open()EndIf