你可以在一个表中查出所有自段like关键字的,然后分别对每个表执行此操作,具体做法可以这样
sql=select * from table1
rs.Open sql, conn, adOpenStatic
sqlstr="select * from table1 where"
For i=0 to rs.Fields.Count-1
sqlstr=sqlstr& rs.Fields(i).Name & " like '%"&keyword&"%' "
if i<>rs.Fields.Count-1 then
sqlstr=sqlstr&"or"
end if
Next
rs2=conn.execut(sqlstr)
然后对数据库中的每个表这样执行一次,这样挺麻烦~~~~~
恐怕一个查询不能对一个数据库中所有表有效,至少我想不出更好的办法:(