- 博客(0)
- 资源 (2)
- 收藏
- 关注
高考成绩查询系统简单实用!容易理解!
ado.Recordset.Close
ado.Recordset.Open "select * from db1 where 准考证号='" + Txt1 + " '"
If ado.Recordset.EOF Then
MsgBox "数据库中没有你想查询的", 16, "错误"
Else
Form2.Txt1.Text = ado.Recordset.Fields("姓名").Value
Form2.Txt2.Text = ado.Recordset.Fields("性别").Value
Form2.Txt3.Text = ado.Recordset.Fields("语文").Value
Form2.Txt4.Text = ado.Recordset.Fields("数学").Value
Form2.Txt5.Text = ado.Recordset.Fields("英语").Value
Form2.Txt6.Text = ado.Recordset.Fields("综合").Value
Form2.Txt7.Text = ado.Recordset.Fields("总分").Value
Form2.Txt8.Text = ado.Recordset.Fields("录取学校").Value
Form2.Show
Form2.Caption = RTrim(ado.Recordset.Fields("姓名").Value) & "的成绩"
End If
2008-09-09
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人