VB 訪問ACCESS的幾種方法

 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
    Dim rsAccess As Recordset
    Dim ConnAccess As New Connection
    Dim StrSQLAccess As String
    Dim i As Integer
    DBSeaverPath=App.Path
   
    ConnAccess.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + DBSeaverPath + IIf(Len(DBSeaverPath) > 3, "/" & "Users.mdb;", "Users.mdb;") + " Jet OLEDB:Database Password=;"
   
    StrSQLAccess = "Select * from Users order by id asc"
    Set rsAccess = New Recordset
    rsAccess.Open StrSQLAccess, ConnAccess, adOpenStatic, adLockOptimistic
   
    If rsAccess.RecordCount = 0 Then End
 
     'ComboUserName.Clear'
     'Do While Not rsAccess.EOF'
     '    ComboUserName.AddItem rsAccess!username'
     '    rsAccess.MoveNext'
     'Loop'
   
    rsAccess.Close
    Set rsAccess = Nothing
    ConnAccess.Close
    Set ConnAccess = Nothing
   
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 Dim strSQL As String
 Dim OldWs As Workspace, mainDb As Database, TableMain As Recordset
 
 Condata = App.Path & "/Users.mdb"
 SaveSetting App.EXEName, "Data", "Path", Condata
 ConStr = ";UID=" & ";PWD="
 Set OldWs = DBEngine.Workspaces(0)
 Set mainDb = OldWs.OpenDatabase(Condata, False, False, ConStr)
 
 'mainDb.Execute "delete Users"'
 Set TableMain = mainDb.OpenRecordset("select * from Users" & strSearchString)
 TableMain.LockEdits = False
 
 Do Until TableMain.EOF
  If Not IsNull(TableMain("UserName").Value) Then
   UserNameText.AddItem TableMain("UserName").Value
  End If
 TableMain.MoveNext
 Loop
 
 TableMain.Close
 Set TableMain = Nothing
 mainDb.Close
 Set mainDb = Nothing
 
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 strSQL = "select * from Users order by id asc"
 
 Data1.DatabaseName = App.Path & "/Users.mdb"
 Data1.RecordSource = strSQL
 Data1.Refresh
 
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 '“工程”菜單中選擇“引用”菜單選擇“Microsoft DAO 3.51 Object Library”項'
 Public AcessDB As Database
 Dim TableMain As RecordSet
 
 Public Sub OpenDatabase ( )
 　　Dim sConeect As String
 　　SConnect = ";PWD =; UID ="
 　　Set AcessDB = Nothing
  
 　　Set AcessDB = WorksPaces (0 ).OpenDatabase (App.Path & "/Users.mdb",False,sConnect)
　　End Sub
 
 Set TableMain = AcessDB.OpenRecordSet ( "Users",dbOpenSnapshot )
 
　　For j = 0 To 2
 　　For I = 0 To 3
   TableMain.MoveNext
 　　 Excel.Sheet.Range ( Trim ( chr ( 71+j*10+I ) )+"G").Value = TableMain.Fields (0)
 　　Next I
　　Next j
 
 AcessDB.Close
 Set AcessDB = Nothing
 TableMain.Close
 Set TableMain = Nothing
 
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''