打开记录集略.
rs1 表1的记录集
rs2 表2的记录集
dim Table1Id as integer
dim SqlStr as string
Tsble1Id = rs1.fileds!id   '''表1当前记录的id 
SqlStr = "select * form 表2 where pid=" & Tsble1Id 
rs2.Open SqlStr, AcitiveCnn, adOpenDynamic, adLockOptimistic 
'ActiveCnn  为你的活动连接.
....
...

解决方案 »

  1.   

    select * from 表1 inner join 表2 on 表1.id=表2.pid
      

  2.   

    to:bu_wen(不文)
      我想查出数据库所有这样的记录在这二个表中。怎么办啊。你这是查出表1当前记录与表2关联的字段。谢谢!
      

  3.   

    在union联合结果中查找,你可以试试
      

  4.   

    用msgrid这个问题就很简单了
    data1.recordsourse="select * from 表1,表2 
    where 表1.id=表2.pid " '如果只查一条记录 ,再加  ” and 表1.id=22;"
    在显示中
    m=data1.recordset.recordcount
    temstr=""
    for i=0 to m
      for j=0 to col
        msgrid1.row=i
        msgrid1.col=j
        if temstr=data1.recordset.fields('id') then
           '将表格中所有数据填满
        else
           '前三行不填,
        end if
        temstr=data1.recordset.fields('id');
      next j
    next i