在ADO中,可以这样遍历数据库中的表和表中的字段 var strList:TStringList; strList:=ADOConnection1.GetTableNames; 表中的字段 for i:= 0 to ADOQuery1.FieldCount-1 adoQuery1.Fields[i].FullName;