<?xml version='1.0' encoding='gb2312'?>
<students>
<student id='1' name='wangxiaohua' sex='male' old='10'/>
<student id='2' name='wangxiaohua1' sex='male' old='11'/>
<student id='3' name='wangxiaohua2' sex='male' old='12'/>
</students>

set xdd=createobject("Msxml.domdocument")
set con=createobject("adodb.connection")
set rst=createobject("adodb.recordset")

xdd.load "students.xml"
'创建数据库
if Not createobject("scripting.filesystemobject").fileexists("school.mdb") then
  createobject("adox.catalog").create "provider=microsoft.jet.oledb.4.0; data source=school.mdb" 
end if
con.open "provider=microsoft.jet.oledb.4.0; data source=school.mdb"
con.execute "create table student (id integer primary key,name text(20), sex boolean,old integer)"
rst.open "student",con,3,3,2
for i=0 to xdd.doumentelement.childnodes.length-1
   set xdn=xdd.documentelement.childnodes.item(i)
   rst.addnew
   rst("id")=cint(xdn.getattribute("id"))
   rst("name")=xdn.getattribute("name")
   rst("sex")=(xdn.getattribute("sex")="male")
   rst("old")=cing(xdn.getattribute("old"))
   rst.update
next
con.close 

[转载]

发表于 @ 2008年04月07日 11:42:00|评论(loading...)|编辑