Без опису
Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.

SQL_連線狀態模組1.vb 2.7KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768
  1. Module SQL_連線狀態模組1
  2. #Region "——连接测试:避免等待时间过长——"
  3. Dim bConnect As Boolean
  4. Dim BgWorker1 As New System.ComponentModel.BackgroundWorker
  5. Dim ServerIP As String
  6. ''' <summary>
  7. ''' 测试连接:True-连接成功,False-连接失败
  8. ''' 参数[必选]:服务器IP
  9. ''' 参数[可选]:等待超时时间(秒),默认为1.2秒
  10. ''' </summary>
  11. ''' <returns></returns>
  12. ''' <remarks></remarks>
  13. Function ConnectTest1(ByVal varServerIP As String, Optional ByVal varTimeout As Decimal = 1.5) As Boolean
  14. AddHandler BgWorker1.DoWork, AddressOf BgWorker1_DoWork
  15. Dim g As Integer
  16. Dim k As Integer
  17. If BgWorker1.CancellationPending Then
  18. BgWorker1.CancelAsync()
  19. '取消BackgroundWorker執行中的工作
  20. End If
  21. Try
  22. If varServerIP = "" Then
  23. Exit Function
  24. End If
  25. ServerIP = varServerIP
  26. If varTimeout <= 0 Then
  27. varTimeout = 1.5
  28. End If
  29. k = Int(varTimeout * 10)
  30. bConnect = False
  31. BgWorker1.WorkerSupportsCancellation = True
  32. BgWorker1.RunWorkerAsync()
  33. For g = 1 To k '1.2s
  34. Threading.Thread.Sleep(100)
  35. If bConnect = True Then
  36. ConnectTest1 = True
  37. Exit Function
  38. End If
  39. Next
  40. ConnectTest1 = False
  41. BgWorker1.CancelAsync()
  42. Catch ex As Exception
  43. MsgBox(ex.Message)
  44. End Try
  45. #Disable Warning BC42353 ' 函式在所有程式碼路徑上皆不會傳回值
  46. End Function
  47. #Enable Warning BC42353 ' 函式在所有程式碼路徑上皆不會傳回值
  48. '--异步动作
  49. Private Sub BgWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
  50. Call ConnectMSSQLServer()
  51. End Sub
  52. '--连接数据库
  53. Private Function ConnectMSSQLServer() As Boolean
  54. Dim sqlConTest As Data.SqlClient.SqlConnection ' 连接
  55. sqlConTest = New Data.SqlClient.SqlConnection
  56. sqlConTest.ConnectionString = "Data Source=" + ServerIP + ";Initial Catalog=WS-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
  57. Try
  58. sqlConTest.Open()
  59. sqlConTest.Close()
  60. Catch ex As Exception
  61. Finally
  62. bConnect = True
  63. End Try
  64. #Disable Warning BC42353 ' 函式在所有程式碼路徑上皆不會傳回值
  65. End Function
  66. #Enable Warning BC42353 ' 函式在所有程式碼路徑上皆不會傳回值
  67. #End Region
  68. End Module