非常紧急,请一定帮忙!!!

Question

Dim fs, a, str1
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("c:\testfile.txt", ForReading, False)
Do While a.AtEndOfStream <> True
    str1=mid(a.ReadLine,1,8)
    adodc1.recordset.addnew
    adodc1.recordset.fields("字段名")=str1
Loop
a.Close

Answer 1

dim a as string
open "c:\testfile.txt" for input as #1
do until eof (1)
    line input #1,a
    adodc.....  addnewloop
close #1

Answer 2

再请问,我读的文件有1M多,转换为字符串后读入ACCESS97数据库表中速度很忙,请问用什么方法连接数据库比较快,我用的是ADO,明天就要走了,请大家帮帮忙,三天内把分给结了,谢谢!!!

Answer 3

connction.execute "insert into......"