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

Posted 2021-04-01

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

有没有办法在2017年的Visual Basic中获取此类信息？表和行名称都是已知的。

我在网上搜索，但找不到任何相关信息。我唯一看到的是架构信息，但我完全不明白。

谢谢，汉斯

答案

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