1,216
社区成员
发帖
与我相关
我的任务
分享
'*************数据库**************************
Public Cnn As New ADODB.Connection
Public rs As New ADODB.Recordset
Const Scnn = "Provider=SQLOLEDB.1;Password=******;Persist Security Info=true;User ID=sa;Initial Catalog=****;Data Source=22.222.222.222;"
'****打开数据库*****************************
Public Sub OpenCnn()
If Cnn Is Nothing = TURE Then Set Cnn = New ADODB.Connection '建立数据库连接对像
If Cnn.State <> 1 Then Cnn.Open Scnn '打开数据库连接
End Sub
'****关闭数据库*****************************
Public Sub CloseCnn()
If Cnn.State = 1 Then Cnn.Close '打开数据库连接
End Sub
'****执行数据操作*****************************
Public Function RunSelectSQL(ByVal SQLString As String) As ADODB.Recordset
Me.OpenCnn
rs.Open SQLString, Cnn, adOpenStatic, adLockReadOnly
End Function