求助：VB数据库查询

周末没上线，今早才看到你的消息

Option Explicit

Dim CNN As New ADODBConnection

Dim Rs As New ADODBRecordset

Private Sub Form_Load()

Dim Cnstr As String, I As Integer

'设置数据库连接

Cnstr = "Provider=MicrosoftJetOLEDB40;"

Cnstr = Cnstr + "Data Source=" + AppPath & "\XXMDB;"

CNNConnectionString = Cnstr

'读取combo(0 - 4)下拉列表

CNNOpen

RsOpen "select 品种 from TT", CNN

Do While Not RsEOF

For I = 0 To 4

Combo1(I)AddItem RsFields(0)Value

Next I

RsMoveNext

Loop

RsClose

CNNClose

'请选择

For I = 0 To 4

Combo1(I)Text = "请选择品种"

Next I

End Sub

Private Sub Command1_Click() '显示

Dim I As Integer

List1Clear

For I = 0 To 4

If Combo1(I)Text <> "请选择品种" Then

List1AddItem Combo1(I)Text

End If

Next I

End Sub

Private Sub Command2_Click() '排序

Dim I As Integer, J As Integer

List2Clear

For I = 0 To List1ListCount - 1

For J = 0 To List2ListCount - 1

If Val(Left(List2List(J), 2)) >= Val(Left(List1List(I), 2)) Then Exit For

Next J

List2AddItem List1List(I), J

Next I

End Sub

'其实排序这里有个不费脑筋的办法，只要在窗体设计时把list2的sorted属性设为TRUE，它就会把添加进来的数据自动排序

Private Sub Command3_Click() '查询

Dim I As Integer, N As Integer

If Text1Text = "" Then

MsgBox "请填写间隔数。", vbOKOnly, "提示"

Exit Sub

End If

N = Val(Text1Text)

List3Clear

CNNOpen

For I = 0 To List2ListCount - 1

RsOpen "select from TT where 品种 ='" + List2List(I) + "'", CNN

If 1 + I N <= 9 Then

List3AddItem RsFields(1 + I N)Value

Else

List3AddItem RsFields(9)Value

End If

RsClose

Next I

CNNClose

End Sub

引用前辈学习的资料，简单易懂，不忍删章去节，作为引子：

Access数据库与ADODB编程入门

即然已经了解了那些数据库中的基本概念,那么我们就只说说在VB中使用数据库编程

首先有一点要注意,数据库的使用与我们以往所使用的文本文件不同例如我们使用文本文件,来记录各种有用的数据那么大致有以下几步:

读取文件--格式化数据--关闭文件--使用数据

如果数据量较大,需要进行筛选,且存放数据的源文件可能不定时变更,那么我们可以用一个临时文件来存放有用的数据,

这样可大大提高程序的效率要[格式化数据]时,我们首先要进行筛选,然后还得进行分类,

这样文件中的字符串才能被转换成有用的信息来供程序使用这样一来,不用说,处理速度将大大减慢,

而且就算你设计的数据格式比较科学,当数据量非常大时,文件的容量也会变的让普通计算机无法承受

相对文本文件来说数据库的使用也大致分为以下几步:

打开数据库--查找数据--使用数据--关闭数据库

从中可以看出,里面少了一步格式化数据,因为数据库本身在存储数据时,它就是按照一定的格式来进行存储的

其次是,数据库与文本文件返回数据的方法不同如果把文本文件比作一个Textbox的话,

那么数据库更像是一个ListBox使用文本文件时我们需要从整个Textbox中取出有用的信息,

并进行处理,而Listbox则可以根据需要返回特定的某一项

由于VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数据库的类来使用数据库

这里我们采用ADODB,相比DAO和能访问数据库的API来说,它比DAO更灵活,更强大;而比起API,它更简单易用,更适合初学者

而Access数据库比起SQL,也相对简单了很多,且能够满足中小型应用程序的需要,所以我们在使用数据库时,选择了Access

就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access数据库的结构时,

我们需要用到其它的程序来进行详细的规划建议采用的程序是office中的Access或VB自带的VISDATA

当数据库设计好了以后,我们可以开始"数据库编程"了

首先,我们需要引用ADO具体的方法是,在"工程"--"引用"中,找到"MicrosoftActiveXDataObjectLibrary",

这里的""是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本

以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access

然后我们需要在程序中创建一个对象就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,

我们才能够访问数据库常用的对象有两个,Connection和Recordset

创建这两个对象的具体方法是:

1在引用后,使用New关键字,如

PrivateConnAsNewADODBConnection

PrivateRecoAsNewADODBRecordset

2在没引用时,用CreateObject创建对象:

DimConn,Reco

SetConn=CreateObject("ADODBConnection")

SetReco=CreateObject("ADODBRecordset")

创建了对象之后,下一步我们要做的就是打开数据库了

先看下面的代码,可以成功的打开数据库

Connopen"Provider=MicrosoftJetOLEDB40;DataSource=D:\Mainmdb"

这句代码打开了D盘中的Mainmdb这个数据库

ConnectionOpen方法的第一个参数是连接代码,它将传递给系统的数据库引擎前半部分"Provider=MicrosoftJetOLEDB40",

它表示了数据库的类型不同的数据库可能会不同后半句"Source=d:\mainmdb"它表示了数据库所在的绝对路径

打开数据库之后,还要打开表假如数据库中有一个表,表名为"Users",字段有两个,一个为用户名,一个为密码那么看以下代码

1想返回"Users"中,[用户名]为"去年烟花"的[密码]

Recordsetopen"Select密码FromUsersWhere用户名='去年烟花'",Connection,1,1

之后我们就可以把用户输入的密码进行比较,看是否允许登录

IfRecordseteofandRecordsetbofthen

Msgbox"用户不存在!",16

Else

IfPassWord=Recordset("密码")valuethen

msgbox"登录成功!",64

Else

msgbox"密码错误!",32

EndIf

EndIf

RecordsetClose

2假设Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来

Recordsetopen"SelectFromUsers",Connection,1,1

这时,表已经被打开,我们就用以下代码把它显示出来

DowhlieNotRecordseteof

Print"用户名:"&Recordset("用户名")value&"密码:"&Recordset("密码")value

RecordsetMoveNext

Loop

RecordsetClose

由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有第一个参数是SQL语句

Select[字段名]From表名[Where条件]

这里的条件可以省略且字段名也可以用""来代替所有字段

需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中因为(1)里并没有打开[用户名]字段,

所以这一句Recordset("密码")就没有值存在,还有可能出错

后面的条件,可以用"="、">"、"<"等运算符比如"WhereID>32"(这里假设[ID]为数字型)

这是打开的部分第二个很重要的部分就是查询记录

数据库它并不是把所有记录全部放到一个变量中备用的而是以"当前记录"的形式来返回一个值所以我们想从中找到有用的信息,

就必须要对信息进行定位/筛选

定位:

移动到下一条RecordsetMoveNext

移动到上一条RecordsetMovePrevious

移动到最后一条RecordsetMoveLast

移动到第一条RecordsetMoveFrist

移动到某一条RecordsetMoveNumber

筛选:

RecordsetFind"条件"

如:[用方法(2)打开表之后]

PrivateSubCommand1_Click()

RecordsetFind"用户名="&"text1text"

IfRecordsetEof<>TrueThen

Msgbox"该用户的密码是:"&Recordset("密码")value,64

Else

Msgbox"未找到该用户的资料!",16

EndIf

EndSub

MoveNext只有当Eof不为True时,才可用,否则发生错误而MovePrevious刚是Bof不为True时

而只要Eof和Bof中有一个不为真时,也就是说只要有一条记录时,它就可以使用

Find方法中的条件和Open时的第一个参数中的条件表述方法是完全一致的当在已打开的记录集中,找不到该记录时,Eof为True

找到则当前的值就是符合条件的记录

第三个部分就是添加/修改/删除记录

修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了

比如:[(修改密码)按方法(1)打开表之后]

Recordset("密码")value="123456"

RecordsetUpdata

需要注意的就是,在修改完成后,要调用Updata方法,这样修改才能生效

而添加记录则可以用以下代码来实现:

Recordsetaddnew

Recordset("用户名")value="Admin"

Recordset("密码")value="Admin"

RecordsetUpdata

删除记录:

Recordsetdelete

Recordsetuptata

这里,先要调用Addnew方法,增加一条新记录,然后对这个新记录中的各字段赋值,最后再调用Updata方法

到这里就差不多了,最后说一下上面提到的几个方法

RecordsetOpenSQL语句,数据源,游标类型,打开方法

SQL语句不用说了,就是Select那啥的,目的就是按要求从表中返回数据

数据源就是一个打开之后的Connection对象

去他妈的游标类型,填1(即openkeyset)就可以了[偷笑ing]

打开方法对应了几个常数,具体哪几个可以从对象浏览器里看

对应数值的意义:

1只读2独占3可写4自已可写,别人可读

Connectionopen连接代码,服务器用户名,密码

以上就是关于求助：VB数据库查询全部的内容，包括:求助：VB数据库查询、求一段VB *** 作数据库查询的代码、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！