dim MeName as string
dim MeDate as date
do while data1.recordset.eof '遍历数据库的表
if data1.recordset.fields("姓名").value =data2.recordset.fields("姓名").value then
MeName=data1.recordset.fields("姓名").value
end if
if data1.recordset.fields("出生年月").value =data2.recordset.fields("出生年月").value then
MeDate=data1.recordset.fields("出生年月").value
end if
data1.recordset.movenext
data2.recordset.movenext
loop
至于一条记录作为一个整体可以存放到什么样的变量中取决于你数据库表的字段的数据类型!
[此贴子已经被作者于2007-4-16 13:47:20编辑过]