学生管理系统 重要语句的学习
2012-07-30 07:40
260 查看
数据库建立连接的方式
(1)通过代码 获取 :
如:
Dim objCn as new connection ,objRs as new Recordset,strCn as String
Connection 连接对象
Recordset 结果集 用于保存结果
String 用于保存连接的地址 字符数据
如
(2) 通过ODBC数据源连接
建立数据源
然后连接
(3) 采用数据绑定
控件连接
Ado data 控件 右击属性中设计 连接
可以绑定到内部控件,和一些activateX
控件
(4) 显示数据控件
DataGrid控件 显示记录集的全部数据
MSFlexGrid 控件
数据库添加方法(VB6)
定义相关量
一个结果集,用来保存结果,更新结果
第一个字符串 ,用来保存sql语句,查询位置
一个字符串,用来保存查询函数的查询状态
第二:
验证数据的有效性.
1:
是否为空
使用了函数
2:
学号等字段是否为数字,
利用函数
3:
数字是否重复
4
日期格式是否正确
5
字符长度是否合格
在数据库表中,右击打开设计表,能看到每个数据的最大长度,填充的数据不要超过给定长度
三在窗体启动时加载填充数据的选择项
比如要添加班级
txtSQL = "select * from class_Info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
For i = 1 To mrc.RecordCount
cboClass.AddItem mrc.Fields(0)
mrc.MoveNext
Next i
mrc.Close
四 :向数据库中添加数据,
添加数据库的sql语句
(1)通过代码 获取 :
如:
Dim objCn as new connection ,objRs as new Recordset,strCn as String
Connection 连接对象
Recordset 结果集 用于保存结果
String 用于保存连接的地址 字符数据
如
objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & _ "Data Source=" & App.Path & "\实例1.mdb" objCn.Open打开连接
(2) 通过ODBC数据源连接
建立数据源
然后连接
Set objCn=new connection objCn.open “DSN=实例 DSN” set objRs=new recordset
(3) 采用数据绑定
控件连接
Ado data 控件 右击属性中设计 连接
可以绑定到内部控件,和一些activateX
控件
(4) 显示数据控件
DataGrid控件 显示记录集的全部数据
MSFlexGrid 控件
数据库添加方法(VB6)
定义相关量
一个结果集,用来保存结果,更新结果
第一个字符串 ,用来保存sql语句,查询位置
一个字符串,用来保存查询函数的查询状态
Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String
第二:
验证数据的有效性.
1:
是否为空
使用了函数
Sub TestTxt(txt as striing) as boolean If trim(txt)="" then Testtxt=false Else Testtxt=true End if End function
2:
学号等字段是否为数字,
利用函数
If Not IsNumeric(Trim(txtSID.Text)) Then MsgBox "请输入数字 ", vbOKOnly + vbExclamation, "警告" Exit Sub txtSID.SetFocus End If
3:
数字是否重复
txtSQL = "select *from student_Info where student_ID='" & Trim(txtSID.Text) & " '" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox "学号重复,请重新输入", vbOKOnly + vbExclamation, "警告" mrc.Close txtSID.SetFocus …...
4
日期格式是否正确
txtBirthday = Format(txtBirthday, "yyyy-mm-dd") If Not IsDate(txtComSchool.Text) Then MsgBox "入校时间应为日期格式(yyyy-mm-dd)", vbOKOnly + vbExclamation, "警告" txtComSchool.SetFocus …...
5
字符长度是否合格
在数据库表中,右击打开设计表,能看到每个数据的最大长度,填充的数据不要超过给定长度
三在窗体启动时加载填充数据的选择项
比如要添加班级
txtSQL = "select * from class_Info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
For i = 1 To mrc.RecordCount
cboClass.AddItem mrc.Fields(0)
mrc.MoveNext
Next i
mrc.Close
四 :向数据库中添加数据,
添加数据库的sql语句
txtSQL="select * from student_Info " '' student_Info 数据库表名称 Set mrc=executeSQL(txtSQL,MsgText) mrc.AddNew mrc.Fields(0) = Trim(txtSID.Text) mrc.Fields(1) = Trim(txtName.Text) mrc.Fields(2) = Trim(cboSex.Text) mrc.Fields(3) = Trim(txtBirthday.Text) mrc.Fields(4) = Trim(cboClass.Text) mrc.Fields(5) = Trim(txtTel.Text) mrc.Fields(6) = Trim(txtComSchool.Text) mrc.Fields(7) =Trim(txtHomeAddress.Text) mrc.Fields(8) = Trim(txtComment.Text) mrc.Update MsgBox "添加学籍信息成功 ", vbOKOnly + vbExclamation, "提示" mrc.Close Me.Hide
相关文章推荐
- 学生管理系统 重要语句的学习
- 学生管理系统 重要语句的学习
- 学习实战一:学生信息管理系统
- 学生信息管理系统之数据库语句解析(二)完
- 学生信息管理系统(1)--select语句
- linux学习笔记-学生信息管理系统(shell编程)
- 软件项目管理在具体业务软件系统开发中的重要作用——学习篇(五)
- javaWeb学习记录:学生信息管理系统
- 学生管理系统之 vb 如何防止SQL 语句注入(以目前之力所能想到的方法)
- 通过学习学生信息管理系统软件,C程序中,如何设计和编写一个应用系统?
- 通过学习学生信息管理系统软件,C程序中,如何设计和编写一个应用系统?
- 通过学习学生信息管理系统软件,C程序中,如何设计和编写一个应用系统?
- 学习学生信息管理系统心得
- 学生管理系统学习(三)
- 学生信息管理系统 之经典语句
- 学生管理系统的学习
- 就C语言的指针、链表的原理和各类操作撰写一篇技术博客,说说自己学习C语言指针和链表的体会,并将学生信息管理系统进行修改,使能完成其他的功能,并撰写体会,附加源代码。
- 通过学习学生信息管理系统软件,C程序中,如何设计和编写一个应用系统
- 学生管理系统(链表+数据库)学习小结
- java学习--学生成绩管理系统