当然要用数据库来查询换乘,关键是sql语句怎么写,如 select s.线路名 from 表 s inner join 站点 t on (s.线路号=t.线路号 and t.站点= ?)举个例子,下面看lz能看懂吗 Dim cn As new ADODB.Connection,sql$,i% cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\aa.mdb;..." sql="select s.线路名 from 表 s inner join 站点 t on (s.线路号=t.线路号 and t.站点= ?)" rs.Open sql, cn, adOpenKeyset, adLockOptimistic For i = 0 To rs.RecordCount - 1 debug.print rs!线路名 rs.MoveNext Next
select s.线路名 from 表 s inner join 站点 t on (s.线路号=t.线路号 and t.站点= ?)举个例子,下面看lz能看懂吗
Dim cn As new ADODB.Connection,sql$,i%
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\aa.mdb;..."
sql="select s.线路名 from 表 s inner join 站点 t on (s.线路号=t.线路号 and t.站点= ?)"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
For i = 0 To rs.RecordCount - 1
debug.print rs!线路名
rs.MoveNext
Next