Access-小示例-02-连接mdb数据库

Private Sub Command0_Click()  
    ' 第1部分：后端操作   
    ' 数据库连接  
    Dim currentDir 
    Dim dbAddr
    Dim adConn As ADODB.Connection 
    Set adConn = New ADODB.Connection   
    Dim rs As ADODB.Recordset  
    Set rs = New ADODB.Recordset        
    ' 数据库地址  
    currentDir = Application.CurrentProject.Path & "\"    dbAddr = currentDir & "数据库.mdb"     
    With adConn    
        .Provider = "Microsoft.ACE.OLEDB.12.0;"    
        .Open "Data Source=" & dbAddr 
    End With     
    SQL = "Select * From basic"'   
    Set rs = adConn.Execute(SQL)  
    rs.Open SQL, adConn, adOpenKeyset, adLockOptimistic  
    ' 第2部分：前端显示   
    Set ctrl = Me.Controls("List1") 
    '清除原listbox 信息  
    ctrl.RowSource = ""    
    Dim rsCount  
    
    rsCount = rs.RecordCount     
    If rsCount < 1 Then '没有信息'  
        strAnswer = MsgBox("无数据", vbInformation, "提示")     
        Exit Sub   
    End If      
    fildCount = rs.Fields.Count   ' 字段数目  
    existsRow = ctrl.ListCount    ' 当前已写入行        
    '写入表头   
    tableHeader = ""
    If existsRow = 0 Then    
        For i = 0 To fildCount - 1 Step 1    
            fildName = rs.Fields(i).Name      
            If tableHeader = "" Then         
                tableHeader = fildName      
            Else               
                tableHeader = tableHeader & ";" & fildName    
            End If
        Next i
        ctrl.AddItem tableHeader 
    End If     
    '回到第一条记录  
    rs.MoveFirst   
    For i = 1 To rsCount   
        fildContents = ""
        For j = 0 To fildCount - 1 Step 1    
            fildContent = rs.Fields(j).Value   
            If fildContents = "" Then        
                fildContents = fildContent     
            Else              
                fildContents = fildContents & ";" & fildContent     
            End If
        Next j     
        ctrl.AddItem fildContents
        rs.MoveNext 
    Next i
    adConn.Close  
    Set rs = Nothing  
    Set adConn = Nothing 
End Sub