www.pudn.com > 12136.rar > Module1.bas

Attribute VB_Name = "Module1" 
Option Explicit 
 
Public Cnn1 As ADODB.Connection 
Public Cnn2 As ADODB.Connection 
 
Public Sub SetAccessDb() 
  Dim Str1 As String, Str2 As String, Str3 As String 
  Str3 = "xue2.mdb" 
  Str2 = App.Path + "\..\" 
  Str1 = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;" & _ 
  "Data Source=" & Str2 & Str3 
  Set Cnn2 = New ADODB.Connection 
  Cnn2.Open Str1 
End Sub 
 
Public Sub SetSQLDb() 
  Dim Str1 As String 
  Const Str2 = "tempdb"    '数据库名 
  Const Str3 = "user"       '机器名 
  Const Str4 = "sa"         '用户名 
  Const Str5 = ""        '密码 
  Set Cnn1 = New ADODB.Connection 
  Str1 = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & Str4 & _ 
  ";Initial Catalog=" & Str2 & ";Data Source=" & Str3 & ";password=" & Str5 
  Cnn1.Open Str1 
End Sub 
 
Public Function ConnectErrorMsg(errNum As Integer) As String 
  Select Case errNum 
     Case moNoError:                        ConnectErrorMsg = "非连接错误" 
     Case moUnknownError:                   ConnectErrorMsg = "不可知错误" 
     Case moAccessDenied:                   ConnectErrorMsg = "不能打开" 
     Case moInvalidUser:                    ConnectErrorMsg = "无效用户" 
     Case moNetworkTimeout:                 ConnectErrorMsg = "网络超时" 
     Case moInvalidDatabase:                ConnectErrorMsg = "无效数据库" 
     Case moTasksExceeded:                  ConnectErrorMsg = "任务超额" 
     Case moFileNotFound:                   ConnectErrorMsg = "没有文件" 
     Case moInvalidDirectory:               ConnectErrorMsg = "无效文件夹" 
     Case moHostUnknown:                    ConnectErrorMsg = "不可知机器" 
     Case Else:                             ConnectErrorMsg = "不可识别错误" 
  End Select 
End Function