学习是一个阶段一个阶段的,每个阶段的学习过程中的沿途风景都是最美的。
刚开始敲学生信息管理系统的时候懵懵懂懂,很多语句都看不懂,实在看不懂的就上网搜,有的搜出答案来了,有的还是找不到答案。于是就先把问题记录下来了,然后一起商量问题,从中也学会了很多知识。
开始敲的时候,因为敲例子不能照着代码敲,这样就没有意义了,就成了练习打字了。于是一个功能段一个功能段的敲,后来发现后面所有的功能都是相通的,只要前边的理解了,明白了,后边也就好多了,于是这样后面的越敲越感兴趣。从其中也发现数据库中真的有好多知识要学习呀,数据库真的很强大。
看视频的时候,对数据库没有什么感觉,等敲完了,对数据库中的知识有了更进一步的了解,比如数据库的增加,数据库的更新,数据库的查询等等。
数据库的增加:
mrc.AddNew '增加行
mrc.Fields(0) = Trim(txtClassno.Text)
mrc.Fields(1) = Trim(comboGrade.Text)
mrc.Fields(2) = Trim(txtDirector.Text)
mrc.Fields(3) = Trim(txtClassroom.Text)
mrc.Update
mrc.Close
MsgBox "添加班级信息成功!", vbOKOnly + vbExclamation, "添加班级信息"
数据库的查询:
txtSQL = "select*from class_Info where class_No='" & Trim(txtClassno.Text) & "'"
Set mrcc = executeSQL(txtSQL, MsgText)
数据库的更新(更新数据前首先要修改数据):
mrc.Fields(0) = Trim(txtClassno.Text)
mrc.Fields(1) = Trim(comboGrade.Text)
mrc.Fields(2) = Trim(txtDirector.Text)
mrc.Fields(3) = Trim(txtClassroom.Text)
mrc.Update
MsgBox "修改信息成功!", vbOKOnly + vbExclamation, "警告"
数据库的删除:
str2$ = MsgBox("是否删除当前记录?", vbOKOnly + vbExclamation, "删除记录")
If str2$ = vbOK Then '如果删除,移动到下一行
mrc.MoveNext
If mrc.EOF Then '如果是文件的末尾,则移动到第一行后删除,标记会回到最后一条记录
mrc.MoveFirst
myBookmark = mrc.Bookmark
mrc.MoveLast
mrc.Delete
mrc.Bookmark = myBookmark
Call viewData
Else '如果不是文件的末尾,则会删除当前行
myBookmark = mrc.Bookmark
mrc.MovePrevious
mrc.Delete
mrc.Bookmark = myBookmark
Call viewData
End If
Else
mrc.Bookmark = myBookmark '取消标记
Call viewData
End If
在实践中我们才会成长的更快,经历了这些我们为我们以后的学习道路打下了坚实的基础。