vba数据库编程答案Word文件下载.docx

vba数据库编程答案Word文件下载.docx

《vba数据库编程答案Word文件下载.docx》由会员分享，可在线阅读，更多相关《vba数据库编程答案Word文件下载.docx（16页珍藏版）》请在冰豆网上搜索。

/access/vba数据库编程技术/学生成绩管理.mdb"

'

设置连接字符信息

conn.open'

连接对象打开

…………….

conn.Close'

关闭连接对象

Setconn=Nothing'

将连接对象清空

方法2

conn.Open"

/access/vba数据库编程技术/学生成绩管理.mdb;

UID=;

PWD="

conn.Close

Setconn=Nothing

方法3

conn.OpenCurrentProject.Connection'

打开当前正在连接的数据

9-2在9-1的基础上，打开表单学生信息，利用Recordset对象获取来自“学生成绩管理.mdb”中“学生”数据表的记录，并显示第一条记录。

PrivateSubForm_Load（）

定义连接对象类型

DimrsAsADODB.Recordset'

定义记录集对象类型

Setrs=NewADODB.Recordset'

将记录集对象初始化

将连接对象初始化

"

rs.Open"

select*from学生"

conn,adOpenKeyset,adLockReadOnly

rs.MoveFirst

Text0.Value=rs（"

姓名"

）

Text2.Value=rs（"

学号"

Text4.Value=rs（"

性别"

EndSub

9-3打开表单增加专业，单击增加按钮增加一条关于专业的的新记录：

专业编号：

p07，专业名称：

电子技术，专业负责人：

刘容强。

PrivateSubCommand0_Click（）

select*from专业"

conn,adOpenKeyset,adLockOptimistic

rs.AddNew

rs（"

专业编号"

）="

P07"

专业名称"

电子技术"

专业负责人"

刘容强"

rs.Update

MsgBox"

已完成新记录的添加"

0+32,"

提示"

9-5新建一个过程a,将“专业”数据表中专业名称为“公共基础教学”的专业负责人姓名改为“郑智强”。

PublicSuba（）

conn.OpenCurrentProject.Connection'

DimcommAsADODB.Command

Setcomm=NewADODB.Command

comm.ActiveConnection=conn

comm.CommandText="

update专业set专业负责人='

郑智强'

where专业名称='

公共基础教学'

comm.Execute

已完成修改"

Setcomm=Nothing

9-6打开“学生成绩管理.mdb”，设计课程成绩统计窗体，运行界面如图9-5所示，要求实现：

1、在组合框combo1中选择一课程编号，则对应的课程名称、学分、任课教师、学时分别显示在对应文本框中

2、单击“统计按钮”，则在对应文本框中显示指定课程的所有参考学生人数、课程平均分、60分以上人数和不及格人数。

3、若未指定具体课程编号就单击“统计”按钮，则显示提示信息。

OptionCompareDatabase

PrivateSubCombo0_Change（）

DimrsAsADODB.Recordset

Setrs=NewADODB.Recordset

DimsqlstrAsString

sqlstr="

select课程名称,学时,学分,姓名from课程,教师where课程.教师编号=教师.教师编号and课程编号='

&

Combo0&

"

'

rs.Opensqlstr,CurrentProject.Connection,2,2

IfNotrs.EOF（）Then

Text4=rs（"

课程名称"

Text6=rs（"

学分"

Text8=rs（"

Text10=rs（"

学时"

EndIf

rs.Close

Setrs=Nothing

PrivateSubCommand12_Click（）

select*from成绩where课程编号='

IfNotrs.BOF（）OrNotrs.EOF（）Then

sum=0

n=0

x=0

y=0

DoWhileNotrs.EOF（）

sum=sum+rs（"

成绩"

n=n+1

Ifrs（"

）>

=60Then

x=x+1

Else

y=y+1

rs.MoveNext

Loop

aver=sum/n

Text15.Value=n

Text17.Value=Int（aver*100+0.5）/100

Text19.Value=x

Text21.Value=y

MsgBox"

课程编号为空，请重新选择"

0+16,"

9-7打开“学生成绩管理.mdb”，设计按课程查阅学生成绩窗体，运行界面如图9-7所示，要求实现如下：

PublicrsAsADODB.Recordset

select学生.学号,姓名,专业名称,成绩from学生,专业,成绩where学生.专业编号=专业.专业编号"

_

and成绩.学号=学生.学号and成绩.课程编号='

Combo0.Value&

Text15.Value=rs（"

Text17.Value=rs（"

Text19.Value=rs（"

Text21.Value=rs（"

Command23.Enabled=True

Command24.Enabled=True

Command25.Enabled=True

Command26.Enabled=True

课程号为空,请重新指定课程编号"

PrivateSubCommand23_Click（）

rs.MoveFirst

PrivateSubCommand24_Click（）

rs.MovePrevious

IfNotrs.BOF（）Then

rs.MoveN