窗体form1中有一个text1,数据库的表的名称是“学生成绩”,有一列是“学号”,然后有一个按钮command1(caption是检查),实现的功能是要求输入的text1必须是表中“学号”的设定值,用msgbox输出“你输入的学号在数据库中”,否则就用msgbox报错。用ado控件或data控件都可以。
我刚学习不久,大家别笑哈

解决方案 »

  1.   

    你这个问题其实很简单,但对于初学者来说涉及很多很多的问题
    比如说ADO,SQL语法等等,你需要一点点学
    直接给你代码没任何意义
      

  2.   

    Private Sub Command1_Click()
        Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=student;Data Source=localhost"
        Adodc1.RecordSource = "select * from stud_grade where STUD_ID='" & Text1.Text & "'"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            MsgBox "你输入的学号在数据库中"
        Else
            MsgBox "你输入的数据不在数据库中"
        End If
    End Sub