用asp怎样判断access某个表中的字段是否存在

<%

'=====================================================
'函数名:CheckFields
'参数FieldsName,待检字段名称;TableName,目标表名称;
'返回值类型:Boolean
'=====================================================
Function   CheckFields(FieldsName,TableName)
Flag=False
sql= "select   *   from   "&TableName
set RSt=server.CreateObject("adodb.recordset")
RSt.open sql,conn,1,1
for   i   =   0   to   RSt.Fields.Count   -   1
        if   RSt.Fields(i).Name=FieldsName   then  
Flag=True
Exit   For
else
Flag=False
end   if  
Next
CheckFields=Flag
RSt.close
Set RSt = nothing
End   Function
%>

本博客所有文章如无特别注明均为原创。作者:sysdee复制或转载请以超链接形式注明转自 成功志
原文地址《用asp怎样判断access某个表中的字段是否存在
分享到:更多

相关推荐

发表评论

路人甲 表情
看不清楚?点图切换 Ctrl+Enter快速提交

网友评论(0)