数据库期末考试题 编写SQL语句 1.创建一张学生表，包含以下信息，学号，姓名，年龄，性别，家庭住址，联系

create table 学生表

(

学号 char(10) primary key,

姓名 char(10),

年龄 int,

性别 char(2) check (sex IN ('男','女')),

家庭住址 char(40),

联系 char(20)

)

1．用SQL命令创建名为“课程总分”的查询，查询第一门课程的总分、平均分、最高分、最低分。

2．用SQL命令创建名为“19岁以下”的查询，查询年龄在19周岁以下的学生的档案信息及各门课程成绩。（可借助于Access的日期时间函数，例如Date()、Year()、Month()、Day()等。建议从网上查询其用法。）

3．用SQL命令创建名为“修改成绩”的查询，将所有学生的成绩A的值提高10%。

4．创建一个名为“学生信息”的窗体，用以显示所有学生的各项信息。

既然是多方式模糊查询，那么必须具备几个条件：

1、首先有查询方式的选择框，还有查询需要的关键字的输入框；

2、模糊查询结果不是一条记录，那么必须将查询出的所有结果在列表框控件中显示出来；

3、点击列表框中的一条记录，在文本框中显示这条记录的详细内容。

我比较喜欢用MSFlexGrid控件显示查询结果，下面给你一个比较实用的范例：

Private Sub Command1_Click() '查询

If Combo1Text = "" Then

MsgBox "你没有选择查询方式，请选择！", 16, "错误！"

Exit Sub

End If

If Text1Text = "" Then

MsgBox "你没有填写关键字，请填写！", 16, "错误！"

Exit Sub

End If

If Combo1Text = "查询条件1" Then

strSQL = "Select From 数据表名 字段名1 Like '%" & Text1Text & "%'"

ElseIf Combo1Text = "查询条件2" Then

strSQL = "Select From 数据表名 Where 字段名2 Like '%" & Text1Text & "%'"

ElseIf Combo1Text = "查询条件3" Then

strSQL = "Select From 数据表名 Where 字段名3 Like '%" & Text1Text & "%'"

End If

Call SJK(db) '数据库连接函数

RSOpen strSQL, db, 2, 2

Do While Not RSEOF

SST = SST + 1

RSMoveNext

Loop

RSClose

Set RS = Nothing

If SST = 0 Then

MsgBox "你没有你查询的记录！", 16, "无记录！"

With MSFlexGrid1

Cols = 3

Rows = 1

TextMatrix(0, 0) = " 序号"

TextMatrix(0, 1) = " 姓名"

ColWidth(0) = 1000

ColWidth(1) = 1000

ColWidth(2) = 0

End With

dbClose

Set db = Nothing

Exit Sub

End If

With MSFlexGrid1

Cols = 3

Rows = SST + 1

TextMatrix(0, 0) = " 序号"

TextMatrix(0, 1) = " 姓名"

ColWidth(0) = 1000

ColWidth(1) = 1000

ColWidth(2) = 0

RSOpen strSQL, db, 2, 2

For I = 1 To SST

TextMatrix(I, 0) = I

TextMatrix(I, 1) = RS!姓名

If Option1(0)Value = True Then

TextMatrix(I, 2) = RS!SID

ElseIf Option1(1)Value = True Then

TextMatrix(I, 2) = RS!SID

ElseIf Option1(2)Value = True Then

TextMatrix(I, 2) = RS!SID

ElseIf Option1(3)Value = True Then

TextMatrix(I, 2) = RS!ZID

ElseIf Option1(4)Value = True Then

TextMatrix(I, 2) = RS!SID

End If

RSMoveNext

Next I

RSClose

Set RS = Nothing

End With

dbClose

Set db = Nothing

Label1(2)Caption = "本次查询结果" & SST & "条"

End Sub

Private Sub MSFlexGrid1_Click()

If Not Val(Trim(MSFlexGrid1TextMatrix(MSFlexGrid1Row, 2))) = 0 Then

PKID = Val(Trim(MSFlexGrid1TextMatrix(MSFlexGrid1Row, 2)))

Call SJK(db)

strSQL = "select from 数据表名 Where ID=" & PKID & " Order By ID"

RSOpen strSQL, db, 3, 3

Text2(0)Text = RS!字段1

Text2(1)Text = RS!字段2

Text2(2)Text = RS!字段3

Text2(3)Text = RS!字段4

Text2(4)Text = RS!字段5

Text2(5)Text = RS!字段6

Text2(6)Text = RS!字段7

Text2(7)Text = RS!字段8

RSClose

Set RS = Nothing

dbClose

Set db = Nothing

End If

End Sub

以上就是关于数据库期末考试题 编写SQL语句 1.创建一张学生表，包含以下信息，学号，姓名，年龄，性别，家庭住址，联系全部的内容，包括:数据库期末考试题 编写SQL语句 1.创建一张学生表，包含以下信息，学号，姓名，年龄，性别，家庭住址，联系、ACCESS数据库应用、VB6程序查询数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！