basic.bas

映射网络驱动器 映射网络驱动器

Attribute VB_Name = "Module1"
  Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
  Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
  Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
  
  Public Rs As New ADODB.Recordset
  Public Con As New ADODB.Connection
Public Function Basic(ByVal key As String) As String
ConnOpen
Rs.Open "Select " & key & " From [IP]", Con, 1, 3
If Rs.EOF And Rs.BOF Then
MsgBox "数据库连接失败，请稍候再来...", vbInformation
Else
Basic = Rs("" & key & "")
End If
Rs.Close
ConnClose
End Function
Public Sub ConnOpen() '打开数据库
On Error GoTo ConnOpenError
Con.ConnectionString = "driver={sql server};server=192.168.120.101;uid=qzit2007web;pwd=qzit2007jasonkbs1985;database=qltv-s"
Con.Open
Exit Sub
ConnOpenError: MsgBox "数据库连接失败，请稍候再来..." & Err.Description
End Sub

Public Sub ConnClose() '关闭数据库
On Error GoTo ConnCloseError
If Conn.State = 1 Then
Con.Close
Set Conn = Nothing
End If
Exit Sub
ConnCloseError: MsgBox Err.Description
End Sub