学生管理系统 重要语句的学习
来源:互联网 发布:淘宝生意经 编辑:程序博客网 时间:2024/05/20 21:24
数据库建立连接的方式
(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 booleanIf trim(txt)="" thenTesttxt=falseElseTesttxt=trueEnd ifEnd function
2:
学号等字段是否为数字,
利用函数
If Not IsNumeric(Trim(txtSID.Text)) ThenMsgBox "请输入数字 ", vbOKOnly + vbExclamation, "警告"Exit SubtxtSID.SetFocusEnd If
3:
数字是否重复
txtSQL = "select *from student_Info where student_ID='" & Trim(txtSID.Text) & " '"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenMsgBox "学号重复,请重新输入", vbOKOnly + vbExclamation, "警告"mrc.ClosetxtSID.SetFocus…...
4
日期格式是否正确
txtBirthday = Format(txtBirthday, "yyyy-mm-dd")If Not IsDate(txtComSchool.Text) ThenMsgBox "入校时间应为日期格式(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.AddNewmrc.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.UpdateMsgBox "添加学籍信息成功 ", vbOKOnly + vbExclamation, "提示"mrc.CloseMe.Hide
- 学生管理系统 重要语句的学习
- 学生管理系统 重要语句的学习
- 【学生管理系统】--特殊语句
- 学生管理系统学习(三)
- 简单的学生管理系统
- 学生管理系统的设计
- 学生管理系统的总结
- 学生管理系统的常见问题
- 入门的学生管理系统
- 简易的学生管理系统
- 学生管理系统的总结报告
- 学生管理系统的心得
- 简单的学生管理系统
- 简单的学生管理系统
- 简单的 学生管理系统
- 简易的学生管理系统
- 简单的学生管理系统
- 学生管理系统分解学习(一)
- 输入输出电阻
- [转]浅析http协议、cookies和session机制、浏览器缓存
- 0.ring3-NtMapViewOfSection注入
- django模型字符串字段写mysql字符串的处理
- 精通Visual C++图像编程之位图的特技显示(学习笔记)
- 学生管理系统 重要语句的学习
- Android自定义Dialog显示GridView
- 举例说明如何在android中使用Service
- netlink socket
- 判断CPU是否64位,以及linux操作系统是否64位
- C# FTP 文件 文件夹操作 上传 下载
- Java异常处理及异常机制介绍
- JSP --Jsp:param
- paip.手机ROOT过程总结