Public ljdb As ADODB.Connection
Public cmd As ADODB.Command
Public dbf As New ADODB.Recordset
Public zhtl As Integer
Public Sub ondbf() 'Excel VBA连接sql数据库
Set ljdb = New Connection
ljdb.CommandTimeout = 180
On Error GoTo connerr
ljdb.Open "Provider=SQLOLEDB;Data Source=SQL服务器地址,端口;Initial Catalog=库名;Password=密码;User ID=用户名;"
zhtl = 1
Exit Sub
connerr:
MsgBox "错误描述:" & Err.Description & vbCrLf & "错误代码:" & Err.Number, vbCritical + vbOKOnly, "连接服务器错误"
zhtl = 0
End Sub
Public Sub offdbf() '断开数据库
If zhtl = 1 Then
ljdb.Close
Set dbf = Nothing
Set ljdb = Nothing
zhtl = 0
End If
End Sub