如何在Visual Basic 2017中获取访问字段属性

Question

对于我的程序，我想使用由Access 2016创建的accdb数据库。现在，我想要设置文本框，这样它的长度和属性（短文本，长文本，数字等）将与数据字段具有。

是否有一种方法可以在Visual Basic 2017中获取此类信息？表和行名都是已知的。

我已经在互联网上搜索，但是找不到有关此的任何信息。我唯一看到的是架构信息，但是我不十分了解。

谢谢， 汉斯

Answer 1

查询Field对象的Type property，例如：

CurrentDb.TableDefs("YourTable").Fields("YourField").Type

这将返回以下枚举之一：

+-------------------+--------------------------+
| Constant          |       Description        |
+-------------------+--------------------------+
| 16 | dbBigInt     | Big Integer              |
|  9 | dbBinary     | Binary                   |
|  1 | dbBoolean    | Boolean                  |
|  2 | dbByte       | Byte                     |
| 18 | dbChar       | Char                     |
|  5 | dbCurrency   | Currency                 |
|  8 | dbDate       | Date/Time                |
| 20 | dbDecimal    | Decimal                  |
|  7 | dbDouble     | Double                   |
| 21 | dbFloat      | Float                    |
| 15 | dbGUID       | GUID                     |
|  3 | dbInteger    | Integer                  |
|  4 | dbLong       | Long                     |
| 11 | dbLongBinary | Long Binary (OLE Object) |
| 12 | dbMemo       | Memo                     |
| 19 | dbNumeric    | Numeric                  |
|  6 | dbSingle     | Single                   |
| 10 | dbText       | Text                     |
| 22 | dbTime       | Time                     |
| 23 | dbTimeStamp  | Time Stamp               |
| 17 | dbVarBinary  | VarBinary                |
+----+--------------+--------------------------+