| 发表于:2007-08-14 09:27:081楼 得分:20 |
请参考: dim mdbcn as new adodb.connection '2/----------创建一个视图 view ,让实况日期时次与预报日期时次一一对应 csql = "create view vandvyb as select h.csta,h.v,c.vyb,c.vman from 逐时实况 as h inner join 逐时预报 as c " & _ "on (h.ymdhh=c.ymdhh) and (h.csta=c.csta) where h.ymdhh> = ' " & cymd1 & " ' and h.ymdhh <= ' " & cymd2 & " ' " mdbcn.EXECute (csql) | | |
|