Delphi如何读取Access数据库长二进制字段

标准方法是使用TBlobStream来访问Blob字段，如果你感觉繁琐的话，也可以hacking一下：

type

TFloat2 = record

case integer of

0: (LargeInt: Int64)

1: (Float1, Float2: single)

end

var

F2: TFloat2

使用：

F2.LargeInt := TBlobField(xxx.FieldByName('...')).AsLargeInt

然后就可以使用F2.Float1、F2.Float2了。

不过这种方法不保证对所有数据库兼容。

1、放置adoconnection控件

设置

NAME属性

简单来说就是该控件的名字

为以后在代码中调用他用的

这个

CONNECTION

STRING属性是设置连接字符串的

连接什么数据库都要用他

D:\database\bmgl.mdb

这句是连接路径

LOGINPROMPT属性是设置是否每次连接都提示输入密码什么的

这个一般设置为FALSE

CONNECTED

属性设置为TRUE的时候才代表已经连接成功

这个控件已经基本设置完了

2、放置ADOTABLE控件

设置CONNECTION属性

为刚才的那个控件

这样才能连接到刚才的那个

ACCESS数据库

刚才那个控件的名为con1

这里就要设置了

然后设置TABLENAME属性

刚才是连接数据库

没有连接表

这个属性就是设置连接的表名

EG：部门信息表

现在把ADOTABLE的ACTIVE属性设置成TRUE就可以连接该表了

现在就连接成功了

数据连接任务已经完成

现在想把他显示出来的话还需要一个DATASOURSE控件

3、放置DATASOURSE控件

设置DATASET属性才能把数据源显示出来

设置DATASET属性为刚才的ADOTABLE控件

他的NAME属性为tbl1

现在设置上就可以了

4、最后一步

想把bmgl.mdb数据库中的“部门信息表”表中的内容显示出来的话最简单的就是添加一个DBGRID控件

设置DATASOURCE属性为刚才放置的DATASOURSE控件

他的NAME属性为ds1

设置上

搞定！

---