module1.bas

给出了详细的vb环境下mo基本功能的代码 如图层的加载

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