复制代码代码如下:
functioncheckfields(fieldsname、tablename)
flag = false
sql = "select*from"&tableName
setrs = conn.execute(sql)
fori = 0tors.fields.count-1
ifrs.fields(i).name = fieldsnamethen
flag = true
exitfor
それ以外
flag = false
endif
次
checkfields = flag
エンド機能