如何将一个txt文件转化成access格式数据库中的表.txt

来自「VB技巧问答10000例,是一个教程」· 文本 代码 · 共 13 行

果你的txt文本的格式符合VB的要求，VB可以直接将txt文件作为一种数据库打开(参见Data控件的Connect属性)。我们在QA000115 “在VB中如何实现把当前库或表转换为另外一种数据库文件”里已经介绍了如何进行两种数据库格式的转换。在VB中有一个工具VisData，它实现了两种数据库格式的转换。如果你希望看到这个程序的源程序，可以在Samples\VisData中找到。 
    如果你txt文件是非标准的，你可以用Open打开文件，然后使用Input #等语句读入，在采用类似下面的语句转换，但速度比前一种方法慢： 
    Open "TESTFILE" For Input As #1 
    Do While Not EOF(1) 
     Input #1, MyString, MyNumber ' 读数据 
     rdData.AddNew ' rdData是你的Access数据库的表 
     rdData("String") = MyString 
     rdData("Number") = MyNumber 
     rdData.Update 
    Loop 
    Close #1 
<END>