access組合框行來(lái)源加載txt文本的數(shù)據(jù)

在access數(shù)據(jù)庫(kù)中，我們不僅可以讀取access創(chuàng)建的數(shù)據(jù)表上的數(shù)據(jù)，還是能讀取TXT文本上的數(shù)據(jù)

如創(chuàng)建一個(gè)1.TXT的文本文件，里面填寫(xiě)幾個(gè)值，用分號(hào)隔開(kāi)

在窗體的加載事件中添加以下代碼，主要是通過(guò)創(chuàng)建FileSystemObject對(duì)象，把TXT文本的數(shù)據(jù)作為組合框的行來(lái)源，組合框的行來(lái)源類型設(shè)置為“值列表”

    Dim ObjFile As Object
    Dim myFile As Object
    Set ObjFile = CreateObject("Scripting.FileSystemObject")
    Set myFile = ObjFile.OpenTextFile(CurrentProject.Path & "\1.txt", 1)
    txt1.RowSourceType = "Value List" 
    txt1.RowSource = myFile.ReadLine    '賦值到組合框    
    myFile.Close
    Set ObjFile = Nothing
    Set myFile = Nothing

獲取效果如圖：