题干

有一Access数据库“school.accdb” 存放在f:\2015mt\vb文件夹中,其中的“student”数据表用来存储学生的基本情况信息,包括学号(num)、姓名(name)、性别(sex)、分数(score),括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生信息,运行界面如下图所示。在文本框Text1中输入学生的学号,单击“查询”,在文本框Text2、Text3 、Text4中分别显示学生姓名、性别、分数。

Private Sub Command1 Click()

Dim adocn As New adodb.Connection

Dim adors As New adodb.Recordset

Dim str2 As String, str1 As String

str1 = "Provider=Microsoft.ACE.OLEDB.12.0;data source=f:\2015mt\vb\____  "

adocn.Open str1

str2 = "select * from students where num=" + Text1.Text

adors.Open str2, adocn, adOpenDynamic, adLockOptimistic

If adors.EOF = True Then

   MsgBox "你输入的学号不存在"

Else

   Text2.Text = adors.Fields("name").Value

   Text3.Text = adors.Fields("sex").Value

  ____

End If

 adors.Close

adocn.Close

End Sub

上一题 下一题 0.0难度 选择题 更新时间:2019-06-13 11:24:05

答案(点此获取答案解析)

school.accdb,Text4.Text = adors.Fields("score").Value