复制代码代码如下:
FunctionCheckfields (FieldsName ، Tablename)
العلم = خطأ
SQL = "SELECT*from" & tableName
setRs = conn.execute (SQL)
fori = 0tors.fields.count-1
ifrs.fields (i) .name = fieldsnamethen
العلم = صحيح
الخروج
آخر
العلم = خطأ
Endif
التالي
CheckFields = العلم
الوظيفية