如何在visual basic 2017中获取访问字段属性

Question

对于我的程序，我想使用使用Access 2016创建的accdb数据库。现在我想设置文本框等，使其具有与数据字段相同的长度和属性(短文本、长文本、数字等(。

有没有办法在visual basic 2017中获得这种信息？表名和行名都是已知的。

我在网上搜索过，但找不到任何关于这方面的信息。我唯一看到的是模式信息，但我并不完全理解。

谢谢，汉斯

Answer 1

查询Field对象的Type属性，例如：

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                |
+----+--------------+--------------------------+