打开记录集略.
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 为你的活动连接.
....
...
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当前记录与表2关联的字段。谢谢!
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