复制代码代码如下:
FunctionCheckFields (FieldsName, TableName)
Bandera = falso
sql = "Seleccionar*de" y Tablename
Setrs = conn.execute (SQL)
FORI = 0TORS.FIELDS.COUNT-1
ifrs.fields (i) .name = Fieldsnamethen
Bandera = verdadero
Salir
demás
Bandera = falso
endif
Próximo
Checkfields = bandera
Función final