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

数据库建立连接的方式

(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 

11楼liutengteng13018分钟前

总结的挺好的。继续加油。

Re: lishehe18分钟前

回复liutengteng130n恩恩啊，共同努力

10楼han_yankun200918分钟前

总结

Re: lishehe18分钟前

回复han_yankun2009n嗯，好好总结

9楼zllaptx486919分钟前

二师兄说的对哈~

Re: lishehe19分钟前

回复zllaptx4869n啊啊，[e04]

8楼wj802319分钟前

学习……

Re: lishehe19分钟前

回复wj8023n[e04]

7楼hejingyuan620分钟前

学习

Re: lishehe19分钟前

回复hejingyuan6n加油

6楼lmdcszh54分钟前

不错！

Re: lishehe21分钟前

回复lmdcszhn努力

5楼cjr1523366114356分钟前

腾腾说的对 哈哈

Re: liutengteng13056分钟前

回复cjr15233661143n呵呵，大荣加油。

4楼han_yankun200958分钟前

支持

Re: lishehe57分钟前

回复han_yankun2009n[e03]

3楼zhangyingjie091小时前

嗯，借鉴

Re: lishehe1小时前

回复zhangyingjie09n呵呵，欢迎指正啊

2楼xjc12780032621小时前

加油

Re: lishehe1小时前

回复xjc1278003262n加油

1楼sunliduan1小时前

学了！

Re: lishehe1小时前

回复sunliduan努力ing