office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

access组合框行来源加载txt文本的数据

2020-07-09 08:00:00
tmtony8
原创
470

在access数据库中,我们不仅可以读取access创建的数据表上的数据,还是能读取TXT文本上的数据

如创建一个1.TXT的文本文件,里面填写几个值,用分号隔开


在窗体的加载事件中添加以下代码,主要是通过创建FileSystemObject对象,把TXT文本的数据作为组合框的行来源,组合框的行来源类型设置为“值列表”

    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


获取效果如图:

    分享