复制代码代码如下:
FunctionCheckFields (FieldsName, Tablename)
Bendera = false
SQL = "Pilih*dari" & Tablename
Setrs = conn.execute (sql)
fori = 0tors.fields.count-1
ifrs.fields (i) .name = fieldsnamethen
Bendera = Benar
Keluar
kalau tidak
Bendera = false
endif
Berikutnya
Checkfields = bendera
Fungsi endfungsi