检测sql数据库服务器的状态（摘）

最新推荐文章于 2021-08-05 23:21:08 发布

养家糊口的程序媛

最新推荐文章于 2021-08-05 23:21:08 发布

阅读量754

点赞数

文章标签：数据库服务器 sql string sql server function security

本文链接：https://blog.csdn.net/sundenskyqq/article/details/4477355

版权

private MyCnn as new adodb.connection

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'生成一个SQL SERVER连接,布尔参数表示是否要提供数据成型服务
Public Function GetConnectionSQL(ByVal DataSource As String, ByVal DBName As String, ByVal UserID As String, ByVal PWD As String, Optional ByVal bShape As Boolean = False) As Boolean
On Error GoTo errhandle
Dim sConnection As String
sConnection = "Provider=SQLOLEDB.1

ersist Security Info=false;User ID=" & UserID & ";password=" & PWD & ";Initial Catalog=" & DBName & ";data source=" & DataSource & ""
With MyCNN
If .State = 1 Then '如果连接已存在,则此操作将把原来的连接切断
.Close
End If
If bShape Then
.Provider = "MSDatashape"
sConnection = "DATA " & sConnection
End If
bSHAPETYPE = bShape
.ConnectionString = sConnection
.ConnectionTimeout = 5
.Open
End With
GetConnectionSQL = True
Exit Function
errhandle:
MsgBox Err.Description
GetConnectionSQL = False
End Function

参考网址：

http://www.vbgood.com/viewthread.php?tid=2147