用AutoLISP读取mdb文件指定表指定字段的内容

AutoLISP 可以通过连接 Microsoft Access 数据库来读取 mdb 文件中的内容。以下是一个示例代码，用于读取指定表中指定字段的内容：

(defun read-mdb-field (db-path table-name field-name)
  (setq conn-str (strcat "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
                         db-path ";Persist Security Info=False"))
  (setq conn (vlax-create-object "ADODB.Connection"))
  (vlax-invoke-method conn "Open" conn-str)
  (setq rs (vlax-create-object "ADODB.Recordset"))
  (vlax-invoke-method rs "Open"
                      (strcat "SELECT " field-name " FROM " table-name)
                      conn)
  (if (not (vlax-get-property rs "EOF"))
    (progn
      (setq field-value (vlax-get-property rs "Fields" field-name "Value"))
      (vlax-release-object rs)
      (vlax-release-object conn)
      (princ field-value))
    (progn
      (vlax-release-object rs)
      (vlax-release-object conn)
      (princ "No records found on the specified table or field."))))

代码说明：

- `read-mdb-field` 函数接收三个参数：`db-path` 为 mdb 文件的路径，`table-name` 为要读取的表名，`field-name` 为要读取的字段名。
- 函数中使用 ADODB.Connection 和 ADODB.Recordset 对象连接 mdb 文件并打开指定表。
- 如果找到了指定记录，则获取指定字段的值并输出。否则，输出提示信息。
- 最后释放对象并输出结果。

注意：在使用该代码之前，需要确保已经安装 Microsoft Access 数据库驱动程序。同时，该代码仅适用于读取文本类型的字段值。如果要读取其他类型的字段，请根据需要修改代码。