Question

求一段VB操作数据库查询的代码

现在有数据库.mdb 的 表1 和 表2，其内容如图所示：
表1有字段：学分，姓名，课程
表2有字段：学号，姓名，年龄
现在我想做的是：
知道 课程 、年龄 ，要查找出对应的 学分。
望高手能帮忙啊，不胜感激！！！
这样的：
我们公司的资料就是这种排法的；图片看不清楚，我用文字来排吧
表1：
学分 姓名 课程
3.5 张三 语文
2.5 李四 语文
3.2 张三 数学
3.5 李四 数学
表2：
学号 姓名 年龄
1001 张三 23
1002 李四 26
条件就是根据 '年龄' 和 '课程' 查 学分,谢谢了，

Answer 1

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

Access数据库与ADODB编程入门

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

PrivateConnAsNewADODB.Connection

PrivateRecoAsNewADODB.Recordset

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

DimConn,Reco

SetConn=CreateObject("ADODB.Connection")

SetReco=CreateObject("ADODB.Recordset")

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

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

Conn.open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\Main.mdb"

这句代码打开了D盘中的Main.mdb这个数据库.

Connection.Open方法的第一个参数是连接代码,它将传递给系统的数据库引擎.前半部分"Provider=Microsoft.Jet.OLEDB.4.0",

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

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

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

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

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

IfRecordset.eofandRecordset.bofthen

Msgbox"用户不存在!",16

Else

IfPassWord=Recordset("密码").valuethen

msgbox"登录成功!",64

Else

msgbox"密码错误!",32

EndIf

EndIf

Recordset.Close

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

Recordset.open"Select*FromUsers",Connection,1,1

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

DowhlieNotRecordset.eof

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

Recordset.MoveNext

Loop

Recordset.Close

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

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

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

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

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

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

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

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

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

定位:

移动到下一条Recordset.MoveNext

移动到上一条Recordset.MovePrevious

移动到最后一条Recordset.MoveLast

移动到第一条Recordset.MoveFrist

移动到某一条Recordset.MoveNumber

筛选:

Recordset.Find"条件"

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

PrivateSubCommand1_Click()

Recordset.Find"用户名="&"text1.text"

IfRecordset.Eof<>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"

Recordset.Updata

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

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

Recordset.addnew

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

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

Recordset.Updata

删除记录:

Recordset.delete

Recordset.uptata

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

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

Recordset.OpenSQL语句,数据源,游标类型,打开方法

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

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

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

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

对应数值的意义:

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

Connection.open连接代码,服务器用户名,密码

Answer 2

提示：你的表都少了个主键自增Id，

操作开始：

一：建军立数据库如:datebases，新建二个表，一个课程表Courses ，一个学生表student，各表详情如图

二：知道课程年龄查学分,查出的结果一般为多记录，所以应该循环来输出；

三：SQL语句如下：select Score from Courses where StudentId in ( select StudentId form student where age="你已知的年龄值" order by StudentId asc ) and CoursesName='"你已知的课程名"' order by CoursesId asc

四：就是循环输出了，剩下的事，楼主应该会了吧！