set conn=server.CreateObject("adodb.connection")
conn.Open #access的连接字符串#
set fso=server.CreateObject("scripting.FileSystemObject")
set fs=fso.OpenTextFile(#你的文件绝对路径#,1,false)
fs.readline
do while not fs.AtEndOfStream
line=fs.readline
dataArr=split(line," ") '这里假设汉字和拼音之间的分割符是Tab
sql="insert into table(hanzi,pinyin) values('" & dataArr(0) & "','" & dataArr(1) & "')"
conn.Execute sql
loop
conn.Close
set conn=nothing
set fs=nothing
set fso=nothing