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

数据库建立连接的方式

(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