vb数据库查询，vb excel做数据库
大家好，感谢邀请，今天来为大家分享一下vb数据库查询的问题，以及和vb excel做数据库的一些困惑，大家要是还不太明白的话，也没有关系，因为接下来将为大家分享，希望可以帮助到大家，解决大家的问题，下面就开始吧！
求VB数据库记录查询方法
在VB中进行数据库记录的查询操作，必需根据打开数据库的方式来确定。以VB3．0为例，数据集对象有Table、Dynaset、Snapshot三种，下面四种查询方法分别适用于以上面不同的对象方式打开的数据库。
1．用SEEK方法查询。这种方法只使用于以Opentable方式打开的Table类型的数据表，而且在查询之前必须要以查询字段建立索引文件，由于已建立了索引文件，所以查询速度很快，这种方式的查询结果是将指针移到符合条件的第一个记录。例如：
set
tb＝db.opentable（"demo"）
tb.index＝"nameindex”
tb.seek
"＝"，"张三"
2．用FILTER属性查询。Filter属性是Dynaset和Snapshot对象才具备的，所以也只能适用于这两者，不能用于Table。Filter是用来过滤数据的，只要我们给定过滤条件就可以将所需的记录筛选出来。需要说明的是，我们需要将以Filter属性筛选出来的数据集打开才能对其操作。例如：
set
dy1＝db．createDynaset（”demo”）
dy1．filter＝”姓名
like
’刘*’”
set
dy2＝dy1．createDynaset（）
3．用FIND方法查询。FIND适用于Dynaset和Snapshot对象，有Findfirst和Findnext两个方法，每次查询到一个记录。例如：
set
dy＝db.createDynaset（”demo”：）
s＝”工资＞160
and姓名
like
’刘＊’”
dy.findfirst
s
dy.findnext
s
4．用SQL查询。SQL是一种结构化数据查询语言，SQL也只能适用Dynaset和Snapshot数据集对象，这种方法是根据SQL条件生成一个数据集对象。例如：
s＝”select
*
from
demo
where
姓名
like
’刘*’”
set
dy＝db.createDynaset（s）
〖注〗：本文中的db为数据库对象，打开方式为：
例如：set
db＝OpenDatabase（”C：＼VB＼SAMPLE．MDB”）。
VB怎么调用数据库数据
VB可将Sql结构化查询语句赋值Ado(ActiveX数据对象)或ADO Data控件，访问和操作数据库。
ADO(ActiveX数据对象)，这项新的数据访问技术的特性包括：更简单的对象模型；与其它 Microsoft和非 Microsoft的技术更好的集成；为本地和远程数据数据提供的通用接口；可远程访问的和断开的记录集；用户可访问的数据绑定接口；以及层次结构的记录集。
ADO Data控件，这是一种新的、OLEDB识别的数据源控件，其功能与内部的 Data控件和 Remote Data控件十分相似，通过这种方式允许用户用最少的代码来创建数据库应用程序。
Visual Basic 6.0中，已经可以将任何 ADO/OLE DB数据源绑定到任何 ADO/OLE DB数据使用者上。在运行时，可以设置控件的 DataSource属性来将控件动态地绑定到数据源。可以创建用作数据源和数据使用者的类，并且通过新的 BindingsCollection对象将这些类绑定在一起。可以创建与 ADO数据控件相似的、用作数据源的用户控件。还可以创建与 DataGrid控件相似的、复杂绑定的用户控件。
以下是经ADO(ActiveX数据对象)访问Access数据库的实例代码：
DimcnnAsNewConnection
DimrsAsNewRecordset
DimsqlAsString
DimARR
cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\wdOld.mdb;PersistSecurityInfo=False"
sql="select故障名称fromguzhang_bm"
rs.Opensql,cnn
Combo1.Text="故障名称"
DoWhileNotrs.EOF
Combo1.AddItemrs("故障名称")
rs.MoveNext'打开表
Loop
rs.Close
cnn.Close以下是使用ADO Data控件访问Access数据库德实例代码：
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\wd.mdb;PersistSecurityInfo=False"
Adodc1.RecordSource="select*fromjishijilu"'whereshijianlike'%8112%'Andgyh_riqilike'%10%'"
Adodc1.Refresh
SetMSHFlexGrid1.DataSource=Adodc1
MSHFlexGrid1.Row=1
MSHFlexGrid1.ColSel=MSHFlexGrid1.Cols-1
vb数据库中如何查表中的字段,将字段下的内容保存到一个变量中
首先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
关于本次vb数据库查询和vb excel做数据库的问题分享到这里就结束了，如果解决了您的问题，我们非常高兴。