简易英语词典

名人电子词典

移动互联网时代，在手机上装一个吧。

其实这个很简单呀，就是SQL语句的问题。private sub text2_change()dim rs as adodb.recordsetdim str as stringdim sql as stringstr=text2.textsql="select 单词,音标,词意,注释,... from 词汇表 where 单词 like '"&str&"%' order by 单词"rs.open sql,conn,1,3if rs.recordcount>0 then list1.clear rs.movefirst for i=1 to rs.recordcount list1.additem rs.fields("单词"),i next iend ifend sub