Set NewDBCon=new DBCon
NewDBCon.conn() ’数据库连接
NewDBCon.sql("select * from XXClass") ‘返回res对象的结果集
i=1
res.movefirst
While not res.eof
Datatable.GetSheet("XXClass").setcurrentrow(i)
Datatable.GetSheet("XXClass").getparameter("Id").value=res("Id").value
Datatable.GetSheet("XXClass").getparameter("sName").value=res("sName").value
res.movenext
i=i+1
Wend
res=rc
Cnn.close
End Function作者: ljonathan 时间: 2009-4-24 16:48
新手可以看看,me 2