学生信息管理系统（1）--select语句

            在敲学生管理系统的时候，我认识了select语句。

         记得第一次见他的时候，还是快速阅读的情况下，瞄了他一眼。那时候就听同学说：他就是数据库四大金刚‘增、删、改、查’之一查。 当时就有种想和他交朋友的感觉，当时苦于自己的技术不到位，没好意思和人家深谈。

         这次在敲学生管理系统的时候又碰到了他，他上去主动和他打招呼。没想到大名鼎鼎的四大金刚也挺平移进人的。

         我和他注定要成为好朋友，因为我学生管理系统刚敲了几个窗体就碰到了他好几次。下面给大家介绍下我们相见的地方和感受。

         第一次： 修改密码窗体。

     txtSQL = "select*from user_info where user_ID = '" & UserName & " '"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    mrc.Fields(0) = Trim(Text1(0).Text) '这里fields（0）和fields（1）的区别
    mrc.Update
    mrc.Close
    MsgBox "修改密码成功！", vbOKOnly + vbExclamation, "修改密码！"
    Me.Hide

      

         第二次：添加学籍信息窗体。

  txtSQL = " select * from studnet_Info where student_ID = '" & Trim(txtSID.Text) & "'"
  Set mrc = ExecuteSQL(txtSQL, MsgText)
  If mrc.EOF = False Then
     MsgBox "学号已存在！", vbOKOnly + vbExclamation, "警告"
     mrc.Close
     txtSID.SetFocus

 

          第三次：修改学籍信息窗体。

     txtSQL = "select * from student_Info where "            '得到SQL语句
     If Check1(0).Value Then
        If Trim(txtSID.Text) = "" Then
            sMeg = "学号不能为空"
            MsgBox sMeg, vbOKOnly + vbExclamation, "警告"

       因为习惯了他这样的装扮—— txtSQL = "select*from user_info"。当他换了衣服的时候总会有些不适应，但是他告诉我他穿不同的衣服有不同的作用。

       他平常装束的作用是就查到这个表，然后生成一个临时的赋给txtSQL。而当他多穿一件“where”的时候就会在这个表中查找where后面的符合筛选条件的字段，

例如：  txtSQL = " select * from student_Info where student_ID = '" & Trim(txtSID.Text) & " '"  他就会在student_info这张表中找到student_ID是txtSID文本框的内容的字段，让后

赋给txtSQL。

         而只有where后面没有东西，只是你没有看见。因为他把围巾帅在了身后所以你从前面只是看见了头。

Else
            If Not IsNumeric(Trim(txtSID.Text)) Then
                MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
                Exit Sub
                txtSID.SetFocus
            End If
            dd(0) = True
            txtSQL = txtSQL & "student_ID = '" & Trim(txtSID.Text) & "'"
 End If

这叫拼接语句。

希望大家可以指正、交流。