学生管理系统重要语句的学习

逃离我推掉我的手 2022-06-08 05:28 80阅读 0赞

**数据库建立连接的方式**

(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

第二:

验证数据的有效性.

是否为空

使用了函数

Sub TestTxt(txt as striing) as boolean If trim(txt)="" then Testtxt=false Else Testtxt=true End if End function

学号等字段是否为数字,

利用函数

If Not IsNumeric(Trim(txtSID.Text)) Then MsgBox "请输入数字 ", vbOKOnly + vbExclamation, "警告" Exit Sub txtSID.SetFocus End If

数字是否重复

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 …...

日期格式是否正确

txtBirthday = Format(txtBirthday, "yyyy-mm-dd") If Not IsDate(txtComSchool.Text) Then MsgBox "入校时间应为日期格式(yyyy-mm-dd)", vbOKOnly + vbExclamation, "警告" txtComSchool.SetFocus …...

字符长度是否合格

在数据库表中,右击打开设计表,能看到每个数据的最大长度,填充的数据不要超过给定长度

三在窗体启动时加载填充数据的选择项

比如要添加班级

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