mobmian.bas

BREW平台上实现的一个聊天系统

Attribute VB_Name = "mobMian"
Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public m_adoLocalcon As New ADODB.Connection  '本地连接

Private Function InitDBConnection(ByVal BusiServerName As String, _
                                  ByVal Uid As String, _
                                  ByVal Pwd As String, _
                                  ByVal DataName As String) As Boolean
'***************************************************
'目    的： 数据库连接
'输    入： BusiServerName     服务器名字
'           Uid                用户Id
'           Pwd                用户密码
'           DataName           数据库名字
'输出/返回：True 连接成功
'           False 连接失败
'作    者： 张龙
'完成日期： 2004/04/01
'修 正 人：
'修正日期：
'****************************************************
   InitDBConnection = False

   On Error GoTo errOpen
   If (m_adoLocalcon.State And adStateOpen) = adStateOpen Then m_adoLocalcon.Close
   m_adoLocalcon.ConnectionTimeout = 3
   m_adoLocalcon.CommandTimeout = 0
   m_adoLocalcon.CursorLocation = adUseClient
   m_adoLocalcon.Open "driver={sql server};server=" & BusiServerName & ";uid=" & Uid & ";pwd=" & Pwd & ";database=" & DataName
   InitDBConnection = True
   Exit Function
errOpen:
   MsgBox "不能连接到数据库，请检查网络连接或重新配置!", vbInformation
   Set m_adoLocalcon = Nothing
End Function

Public Function DataBaseLogin() As Boolean
   DataBaseLogin = False
   
   If GetConfigMsg = False Then
      MsgBox "INI文件不存在或读INI文件错,请重新配置", vbInformation
      Exit Function
   End If
   
    '本地连接
   If InitDBConnection(g_Ini.DataBase.BusiServerName, _
                       g_Ini.DataBase.BusiLoginName, _
                       g_Ini.DataBase.BusiPassword, _
                       g_Ini.DataBase.BusiDatabaseName) = False Then Exit Function
 
   DataBaseLogin = True
End Function

Public Function ExcuteSQL(ByVal strSql As String) As Long
On Error GoTo ERROR_HANDLE
   m_adoLocalcon.Execute strSql
   ExcuteSQL = 0
   Exit Function
ERROR_HANDLE:
   ExcuteSQL = 1
End Function