vb与SQL的连接
西安邮电大学
《Visual Basic程序设计自学课》
院办名称：计算机
学生姓名：崔斌斌
专业名称：计算机科学与技术
班级：计科1106
学号：04111185（13）
实验题目VB+SQL
一、实验目的
实训vb与sql的连接操作
二、实验内容
利用vb的界面显示，添加，删除，更改sql里的数据库的数据，使其一目了然（查找模块没做）。
三、需求分析
本实验为实现VB与数据库的链接，这个简单的管理系统主要是针对本班学生信息进行增添，查找，删除等操作，那么，使用对象可以是各老师或者是班长，学委等。
此简单系统所设计的实验目标旨在用户通过此系统（利用VB设计的界面）可以实现对学生信息的相关操作，从而实现对数据库中的学生信息的相对应操作，最终较直接（直面化）的让用户完成其操作。
测试数据方面，数据都为学生信息，学号，姓名，性别（默认男）····
四、概要设计
1、设计
2.说明：
我是通过建立ADODC控件访连接数据库与VB。
模块功能说明：
见图就自然明了。
3.数据库设计
在本人的计算机SQL中某一个数据库中创建stu表，然后插入数据，通过adodc控件连接VB即可。
create table stu
(
sno char(10) primary key, /*学号*/
sname char(10) not null, /*姓名*/
sex char(2) default('男') check(sex in('男','女')) , /*性别*/
adds char(20) default('陕西省') , /*地址*/
phone char(20) ,/*手机号*/
);
insert into stu values('04111183','李江涛','男','陕西省韩城','134********');
insert into stu values('04111185','崔斌','男','陕西省榆林','187********');
insert into stu values('04111188','殷鹏','男','陕西省咸阳','183********');
insert into stu values('04111194','薛曼','女','陕西省','***********');
insert into stu values('04111192','王斓煜','女','辽宁省','182********');
insert into stu values('04111193','韩芳','女','陕西省','ooooooooooo');
五、详细设计及运行结果
本程序简单易上手。在此不在详细流程图。
删除了李江涛
增加了小猪：
六、调试情况，设计技巧及体会
因为我的意图旨在实现VB与数据库的链接，所以设计比较简单，需改进的地方还是很多的。比如：1.VB界面的设计要更美化。2.学生信息简单。
从刚开始的只有一点头绪，到后来经过查资料，对其有了一定的认识与理解。所以，要注重思想与实践的结合，多查书，多思考，做之前要有一定的思想考量。
七、源程序清单
1.VB代码；
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command3_Click()
If Adodc1.Recordset.AbsolutePosition > 1 Then
Adodc1.Recordset.MovePrevious
Else
MsgBox "上一数据为空！", vbOKOnly, "提示"
End If
End Sub
Private Sub Command4_Click()
If Adodc1.Recordset.AbsolutePosition < Adodc1.Recordset.RecordCount Then
Adodc1.Recordset.MoveNext
Else
MsgBox "下一数据为空！", vbOKOnly, "提示"
End If
End Sub
Private Sub Command5_Click()
Adodc1.Recordset.MoveLast
End Sub
Private Sub Command6_Click()
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub
Private Sub Command7_Click()
Adodc1.Recordset.Delete
MsgBox "删除成功！", vbOKOnly, "提示"
Adodc1.Refresh
End Sub
Private Sub Command8_Click()
End
End Sub
Private Sub sex_Change()
End Sub
Private Sub sno_Change()
End Sub
2.数据库代码：
create table stu
(
sno char(10) primary key, /*学号*/
sname char(10) not null, /*姓名*/
sex char(2) default('男') check(sex in('男','女')) , /*性别*/
adds char(20) default('陕西省') , /*地址*/
phone char(20) ,/*手机号*/
);
insert into stu values('04111183','李江涛','男','陕西省韩城','134********');
insert into stu values('04111185','崔斌','男','陕西省榆林','187********');
insert into stu values('04111188','殷鹏','男','陕西省咸阳','183********');
insert into stu values('04111194','薛曼','女','陕西省','***********');
insert into stu values('04111192','王斓煜','女','辽宁省','182********');
insert into stu values('04111193','韩芳','女','陕西省','ooooooooooo');