vb.net和access设计题目
题目:设计一个班级成绩管理系统要求:1.对本班学籍可以进行管理,包括添加,修改,删除,查询2.对本班没个学生的成绩进行管理,包括添加,修改,删除,查询3.完成对每个学生的...
题目:设计一个班级成绩管理系统
要求:1.对本班学籍可以进行管理,包括添加,修改,删除,查询
2.对本班没个学生的成绩进行管理,包括添加,修改,删除,查询
3.完成对每个学生的成绩进行平均分的计算,不及格科目门次的统计
4.数据库用access
这是个课程期末作业,老师平时讲的也没有这么多,只好网上求助了,感谢各位回答,请不要ctrl+c ctrl+v了,好歹100分呢..
目前有 学籍和成绩2个数据库文件(.mdb),麻烦各位给个思路,大体流程就好,比如说,每一步做点什么
之前没做过vb.net的东西,新手,希望各位不吝赐教
现在我数据库都连接上了,就是不知道怎么添加删除数据什么的 展开
要求:1.对本班学籍可以进行管理,包括添加,修改,删除,查询
2.对本班没个学生的成绩进行管理,包括添加,修改,删除,查询
3.完成对每个学生的成绩进行平均分的计算,不及格科目门次的统计
4.数据库用access
这是个课程期末作业,老师平时讲的也没有这么多,只好网上求助了,感谢各位回答,请不要ctrl+c ctrl+v了,好歹100分呢..
目前有 学籍和成绩2个数据库文件(.mdb),麻烦各位给个思路,大体流程就好,比如说,每一步做点什么
之前没做过vb.net的东西,新手,希望各位不吝赐教
现在我数据库都连接上了,就是不知道怎么添加删除数据什么的 展开
展开全部
你先要指定勒数据源,然后导入oledb名字空间
imports system.data.oledb
public function InsertUser(sql as string,con as string)as integer
dim myCon as new oledbConnection(你的数据库连接)
dim myCmd as new oledbCommand(SQL语句,myCon)
dim count as integer
try
mycon.open()
count = mycmd.executenonquery()
catch ex as exception
throw new excetion(ex.message)
finally
mycon.close
return count
end function
Private Sub 增加键_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 增加键.Click
If 增加键.Text = "确定" Then
If 姓名框.Text = "" Or 性别框.Text = "" Or 专业框.Text = "" Or 出生年月框.Text = "" Or 学号框.Text = "" Then
MessageBox.Show("您有未填写之处,请补充完毕!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
dim sqlStr as string = "Insert into 表名 values(字段值)
dim count as integer
count = InsertUser(sqlstr,con)
if count >=1 then
msgbox(添加成功)
else
msgbox(添加失败)
imports system.data.oledb
public function InsertUser(sql as string,con as string)as integer
dim myCon as new oledbConnection(你的数据库连接)
dim myCmd as new oledbCommand(SQL语句,myCon)
dim count as integer
try
mycon.open()
count = mycmd.executenonquery()
catch ex as exception
throw new excetion(ex.message)
finally
mycon.close
return count
end function
Private Sub 增加键_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 增加键.Click
If 增加键.Text = "确定" Then
If 姓名框.Text = "" Or 性别框.Text = "" Or 专业框.Text = "" Or 出生年月框.Text = "" Or 学号框.Text = "" Then
MessageBox.Show("您有未填写之处,请补充完毕!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
dim sqlStr as string = "Insert into 表名 values(字段值)
dim count as integer
count = InsertUser(sqlstr,con)
if count >=1 then
msgbox(添加成功)
else
msgbox(添加失败)
ZESTRON
2024-09-04 广告
2024-09-04 广告
在Dr. O.K. Wack Chemie GmbH,我们高度重视ZESTRON的表界面分析技术。该技术通过深入研究材料表面与界面的性质,为提升产品质量与可靠性提供了有力支持。ZESTRON的表界面分析不仅涵盖了相变化、化学反应、吸附与解吸...
点击进入详情页
本回答由ZESTRON提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询