[求助][版主请进]VLISP怎么读取ACCESS里的长二进制数据

sbsmzrx

各位高手,VLISP怎么读取数据库ACCESS里的长二进制数据????
这个ACCESS文件是其它程序的数据库文件,存的是多个坐标值,我存了几个坐标值,用VLISP读出来是一些三位数的数字,
数据前后对比如下:
一、坐标值：0,0  0,100  100,100  100,0
VLISP读出的数据：
195 255 210 15 188 140 207 17 171 222 8 0 54 1 183 105 5 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 89 64 0 0 0 0 0 0 0 0
0 0 0 0 0 0 89 64 0 0 0 0 0 0 89 64 0 0 0 0 0 0 0 0
0 0 0 0 0 0 89 64 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 89 64 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
二、坐标值：12345.678,87654.321  11111.111,22222.222 99999.999,0.0   77777.777,88888.888  55555.555,66666.666    33333.333,44444.444
VLISP读出的数据： 195 255 210 15 188 140 207 17 171 222 8 0 54 1 183 105 7 0 0 0
88 57 180 200 214 28 200 64 96 229 208 34 101 102 245 64 0 0 0 0 0 0 0 0
238 124 63 53 142 179 197 64 238 124 63 53 142 179 213 64 0 0 0 0 0 0 0 0
141 108 231 251 255 105 248 64 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
80 141 151 110 28 253 242 64 238 124 63 53 142 179 245 64 0 0 0 0 0 0 0 0
41 92 143 194 113 32 235 64 178 157 239 167 170 70 240 64 0 0 0 0 0 0 0 0
178 157 239 167 170 70 224 64 238 124 63 53 142 179 229 64 0 0 0 0 0 0 0 0
178 157 239 167 170 70 224 64 238 124 63 53 142 179 229 64 0 0 0 0 0 0 0 0
第一排和最后一排好像不是坐标数据，数据是不是要解密才可以读出来，请高手指点!!!
源程序如下(数据库文件见附件):

2. [code](defun c:dqmdb()
3.   ;;;读取MDB数据库
4.   (setvar "cmdecho" 0)
5.   (setvar "osmode" 0)
6.   (if (/= (findfile "e:\\数据库.mdb") nil)
7.     (progn
8.       (setq ado1(vlax-get-or-create-object "ADODB.Connection"))
9.       (setq ado2(vlax-get-or-create-object "ADODB.Recordset"))
10.       (setq ado12(vlax-get-or-create-object "ADODB.Recordset"))
11.       (setq ados1 (strcat "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" "e:\\数据库.mdb;Persist Security Info=False"))
12.       (setq ado3(vlax-put-property ado1 "ConnectionString" ados1))
13.       (vlax-invoke-method ado1 "open" ados1 "" "" -1)
14.       (vlax-invoke-method ado2 "open" (strcat "select * from " "属性") ado1 2 3 1)
15.       (vlax-invoke-method ado2 "MoveFirst")
16.       (setq at1(vlax-get-property (vlax-get-property ado2 "Fields") "item" 2))
17.       (setq at2(vlax-get-property at1 "Value"))
18.       (setq at3(vlax-variant-value at2))
19.       (vlax-safearray-get-dim at3)
20.       (vlax-safearray-get-l-bound at3 1)
21.       (vlax-safearray-get-u-bound at3 1)
22.       (vlax-safearray-get-element at3 0)
23.       (vlax-safearray-type at3)
24.       (setq at4(vlax-safearray->list at3))
25.       (vlax-invoke-method ado2 "MoveFirst")
26.       (vlax-invoke-method ado2 "close")
27.       (vlax-invoke-method ado1 "close")
28.       )))

[code](defun c:dqmdb()   ;;;读取MDB数据库   (setvar "cmdecho" 0)   (setvar "osmode" 0)   (if (/= (findfile "e:\\数据库.mdb") nil)     (progn       (setq ado1(vlax-get-or-create-object "ADODB.Connection"))       (setq ado2(vlax-get-or-create-object "ADODB.Recordset"))       (setq ado12(vlax-get-or-create-object "ADODB.Recordset"))       (setq ados1 (strcat "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" "e:\\数据库.mdb;Persist Security Info=False"))       (setq ado3(vlax-put-property ado1 "ConnectionString" ados1))       (vlax-invoke-method ado1 "open" ados1 "" "" -1)       (vlax-invoke-method ado2 "open" (strcat "select * from " "属性") ado1 2 3 1)       (vlax-invoke-method ado2 "MoveFirst")       (setq at1(vlax-get-property (vlax-get-property ado2 "Fields") "item" 2))       (setq at2(vlax-get-property at1 "Value"))       (setq at3(vlax-variant-value at2))       (vlax-safearray-get-dim at3)       (vlax-safearray-get-l-bound at3 1)       (vlax-safearray-get-u-bound at3 1)       (vlax-safearray-get-element at3 0)       (vlax-safearray-type at3)       (setq at4(vlax-safearray->list at3))       (vlax-invoke-method ado2 "MoveFirst")       (vlax-invoke-method ado2 "close")       (vlax-invoke-method ado1 "close")       )))

[/code]at4数据为195 255 210 15 188 140 207 17 171 222 8 0 54 1 183 105 7 0 0 0 88 57 180 200 214 28 200 64 96 229 208 34 101 102 245 64 0 0 0 0 0 0 0 0 238 124 63 53 142 179 197 64 238 124 63 53 142 179 213 64 0 0 0 0 0 0 0 0 141 108 231 251 255 105 248 64 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 80 141 151 110 28 253 242 64 238 124 63 53 142 179 245 64 0 0 0 0 0 0 0 0 41 92 143 194 113 32 235 64 178 157 239 167 170 70 240 64 0 0 0 0 0 0 0 0 178 157 239 167 170 70 224 64 238 124 63 53 142 179 229 64 0 0 0 0 0 0 0 0 178 157 239 167 170 70 224 64 238 124 63 53 142 179 229 64 0 0 0 0 0 0 0 0)

highflybir

我想这个篇文章和下面的程序也许能满足你的要求。

http://acad.fleming-group.com/index.html

sbsmzrx

怎么就没有高手看一下呢!!

zml84

楼主厉害，直接去解mdb文件格式。

建议先去搜索格式。

sbsmzrx

      (setq ado1(vlax-get-or-create-object "ADODB.Connection"))
      (setq ado2(vlax-get-or-create-object "ADODB.Recordset"))
      (setq ado12(vlax-get-or-create-object "ADODB.Recordset"))
      (setq ados1 (strcat "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" "e:\\数据库.mdbersist Security Info=False"))
      (setq ado3(vlax-put-property ado1 "ConnectionString" ados1))
      (vlax-invoke-method ado1 "open" ados1 "" "" -1)
      (vlax-invoke-method ado2 "open" (strcat "select * from " "坐标") ado1 2 3 1)
      (vlax-invoke-method ado2 "MoveFirst")
      (setq at1(vlax-get-property (vlax-get-property ado2 "Fields") "item" 76))
      (setq at2(vlax-get-property at1 "Value"))
      (setq at3(vlax-variant-value at2))

就是at2里的数据

其它字段的数据都能读取,数据类型是字串、数字等，坐标字段的是长二进制数据，读出来就不是坐标了

难道不是这样读取数据的嘛！那该怎么样读取？？？

sbsmzrx

先下来看看,谢了哦!!

sbsmzrx

英语不好， 看不懂。

但是可能也不能解决问题，MDB文件里没有长二进制数据，我要的是怎么读取长二进制数据。

那位高手，帮忙看看！！

sbsmzrx

......

zml84

2. ;;===========================
3. ;;功能：获取数值
4. ;;参数：LST  ----表
5. ;;      I1   ----起始位置
6. ;;      I2   ----终止位置
7. ;;      INT  ----位长
8. (defun TT-01 (LST I1 I2 INT / SUM I)
9.     (setq SUM (nth I1 LST))
10.     (setq I 1)
11.     (while (progn
12.            (setq I1 (1+ I1))
13. &#160;&#160; &#160;&#160;&#160;&#160;&#160;&#160;&#160; (<= I1 I2)
14. &#160;&#160; &#160;&#160;&#160; )
15. &#160;&#160; &#160;(setq SUM (+ SUM (lsh (nth I1 LST) (* I INT))))
16. &#160;&#160;&#160; )
17. &#160;&#160;&#160; SUM
18. )
19. ;;======
20. ;;获取文本
21. (vl-load-com)
22. (defun TT-02 (LST I LEN / LST_NEW)
23. &#160;&#160;&#160; (setq LST_NEW '())
24. &#160;&#160;&#160; (repeat LEN
25. &#160;&#160; &#160;(if (> (nth I LST) 0)
26. &#160;&#160; &#160;&#160;&#160;&#160; (setq LST_NEW (cons&#160;&#160; &#160;(nth I LST)
27. &#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;LST_NEW
28. &#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160; )
29. &#160;&#160; &#160;&#160;&#160;&#160; )
30. &#160;&#160; &#160;)
31. &#160;&#160; &#160;(setq I (1+ I))
32. &#160;&#160;&#160; )
33. &#160;&#160;&#160; (vl-list->string (reverse LST_NEW))
34. )
35. ;;======

;;=========================== ;;功能：获取数值 ;;参数：LST&#160; ----表 ;;&#160;&#160;&#160;&#160;&#160; I1&#160;&#160; ----起始位置 ;;&#160;&#160;&#160;&#160;&#160; I2&#160;&#160; ----终止位置 ;;&#160;&#160;&#160;&#160;&#160; INT&#160; ----位长 (defun TT-01 (LST I1 I2 INT / SUM I) &#160;&#160;&#160; (setq SUM (nth I1 LST)) &#160;&#160;&#160; (setq I 1) &#160;&#160;&#160; (while (progn &#160;&#160; &#160;&#160;&#160;&#160;&#160;&#160;&#160; (setq I1 (1+ I1)) &#160;&#160; &#160;&#160;&#160;&#160;&#160;&#160;&#160; (<= I1 I2) &#160;&#160; &#160;&#160;&#160; ) &#160;&#160; &#160;(setq SUM (+ SUM (lsh (nth I1 LST) (* I INT)))) &#160;&#160;&#160; ) &#160;&#160;&#160; SUM ) ;;====== ;;获取文本 (vl-load-com) (defun TT-02 (LST I LEN / LST_NEW) &#160;&#160;&#160; (setq LST_NEW '()) &#160;&#160;&#160; (repeat LEN &#160;&#160; &#160;(if (> (nth I LST) 0) &#160;&#160; &#160;&#160;&#160;&#160; (setq LST_NEW (cons&#160;&#160; &#160;(nth I LST) &#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;LST_NEW &#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160; ) &#160;&#160; &#160;&#160;&#160;&#160; ) &#160;&#160; &#160;) &#160;&#160; &#160;(setq I (1+ I)) &#160;&#160;&#160; ) &#160;&#160;&#160; (vl-list->string (reverse LST_NEW)) ) ;;======

sbsmzrx

源程序如下(数据库文件见附件):

2. (defun c:dqmdb()
3.   ;;;读取MDB数据库
4.   (setvar "cmdecho" 0)
5.   (setvar "osmode" 0)
6.   (if (/= (findfile "e:\\数据库.mdb") nil)
7.     (progn
8.       (setq ado1(vlax-get-or-create-object "ADODB.Connection"))
9.       (setq ado2(vlax-get-or-create-object "ADODB.Recordset"))
10.       (setq ado12(vlax-get-or-create-object "ADODB.Recordset"))
11.       (setq ados1 (strcat "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" "e:\\数据库.mdb;Persist Security Info=False"))
12.       (setq ado3(vlax-put-property ado1 "ConnectionString" ados1))
13.       (vlax-invoke-method ado1 "open" ados1 "" "" -1)
14.       (vlax-invoke-method ado2 "open" (strcat "select * from " "属性") ado1 2 3 1)
15.       (vlax-invoke-method ado2 "MoveFirst")
16.       (setq at1(vlax-get-property (vlax-get-property ado2 "Fields") "item" 2))
17.       (setq at2(vlax-get-property at1 "Value"))
18.       (setq at3(vlax-variant-value at2))
19.       (vlax-safearray-get-dim at3)
20.       (vlax-safearray-get-l-bound at3 1)
21.       (vlax-safearray-get-u-bound at3 1)
22.       (vlax-safearray-get-element at3 0)
23.       (vlax-safearray-type at3)
24.       (setq at4(vlax-safearray->list at3))
25.       (vlax-invoke-method ado2 "MoveFirst")
26.       (vlax-invoke-method ado2 "close")
27.       (vlax-invoke-method ado1 "close")
28.       )))

(defun c:dqmdb()   ;;;读取MDB数据库   (setvar "cmdecho" 0)   (setvar "osmode" 0)   (if (/= (findfile "e:\\数据库.mdb") nil)     (progn       (setq ado1(vlax-get-or-create-object "ADODB.Connection"))       (setq ado2(vlax-get-or-create-object "ADODB.Recordset"))       (setq ado12(vlax-get-or-create-object "ADODB.Recordset"))       (setq ados1 (strcat "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" "e:\\数据库.mdb;Persist Security Info=False"))       (setq ado3(vlax-put-property ado1 "ConnectionString" ados1))       (vlax-invoke-method ado1 "open" ados1 "" "" -1)       (vlax-invoke-method ado2 "open" (strcat "select * from " "属性") ado1 2 3 1)       (vlax-invoke-method ado2 "MoveFirst")       (setq at1(vlax-get-property (vlax-get-property ado2 "Fields") "item" 2))       (setq at2(vlax-get-property at1 "Value"))       (setq at3(vlax-variant-value at2))       (vlax-safearray-get-dim at3)       (vlax-safearray-get-l-bound at3 1)       (vlax-safearray-get-u-bound at3 1)       (vlax-safearray-get-element at3 0)       (vlax-safearray-type at3)       (setq at4(vlax-safearray->list at3))       (vlax-invoke-method ado2 "MoveFirst")       (vlax-invoke-method ado2 "close")       (vlax-invoke-method ado1 "close")       )))