查询二表都有的记录并在MSHFlexGrid里显示

Question

有一FLOP.MDB数据库,它里面有A表和B表,要把二表都有的学号找出,并在MSHFlexGrid里显示,如何写代码?

Answer 1

dim rs as new adodb.recordset
dim strsql as string
strsql=" select * from a inner join b on a.学号=b.学号 "
if rs.state<>adstateclosed then rs.close
rs.open strsql,conn,adopenkeyset,adlockreadonly
set mshflexgrid1.datasource=rs
rs.close
set rs=nothing

Answer 2

Dim cn As ADODB.Conection, rs As ADODB.RecordsetSet cn = New ADODB.Conection
cn.OPen "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\FLOP.MDB"
Set rs = New ADODB.Recordset
rs.Open "SELECT 学号 FROM A, B WHERE A.学号 = B.学号", cnSet MSHFlexGrid1.DataSource = rs