如何将.html文件中的内容导入Access的.mdb文件中？？？

Question

用open(详细用法看看MSDN)以文本方式打开.html文件。
读每一行再写入.mdb中。

Answer 1

在工程/引用中,引用microsoft DAO3.6 Object Library
dim fp as integer
dim s as string
dim source as string
dim db as database
dim rs as recordset
fp=freefile
open "demoHTML.html" for input as fp
   do while not eof(fp)
       input #fp,s
       source=source+ s
   loop
close 
set db=opendatabase "demodatabase.mdb",false
rs=db.openrecordset("demotable",dbopendynaset)
with rs
   .addnew
   !mymemo=source
   .update
end with
rs.close
db.close