Question

vb数据库中如何查表中的字段,将字段下的内容保存到一个变量中

vb数据库中如何查表中的字段,将字段下的内容保存到一个变量中。比如我的字段（水果）中有内容，苹果，橘子，香蕉，如何查询数据库把这些内容保存到变量中呢？？求助vb高手指点迷津

Answer 1

首先VB中能够连接使用的数据库有很多种，有Access, SQl Server ,DBF...
不知道您用的是什么数据库,下面以 Access 数据库为例：
1、在D:\建立一个Access 数据库，名称为db1.mdb，库中建立一个数据表，名称为:T101,
数据表 中的字段名称为:frCode(水果编号),frName(水果名称),
而且数据表中存在如下的数据记录
frCode frName
1001 苹果
　　1002 橘子
1003　　　　 香蕉
2、要想取得数据表中记录的内容，方法也有很多种。要想把数据内容保存到变量中，这里可以采用DAO 的方式，如下：
dim curDB as DAO.Database
dim snRec as DAO.Recordset

dim tCode,tName as String '用来存放编码及名称

Set curDB=OpenDatabase("D:\db1.mdb",0,0)
Set snRec=curDB.OpenRecordset("SELECT * FROM T101",dbOpenSnapshot)
Do While Not snRec.EoF
tCode=snRec("frCode") '将代码取出
tName=snRec("frName")　'将名称取出　
'取出给变量后就可以做相应的处理了。

snRec.MoveNext '数据记录下移一个
Loop