求高手用VB设计程序调用Access数据库文件!急!这里还有详细要求,有意向请留下邮箱,我把文件发给您!
要求实现学生成绩信息的管理:1.进行学生成绩管理系统界面的设计;2、实现学生信息的管理(添加、删除、修改)3.实现学生成绩的查询4.实现学生各科成绩段的统计;5.实现学生...
要求实现学生成绩信息的管理 :
1.进行学生成绩管理系统界面的设计;
2、实现学生信息的管理(添加、删除、修改)
3.实现学生成绩的查询
4.实现学生各科成绩段的统计;
5.实现学生课程成绩统计总分和排名;
6.统计出优等生;
7.生成直方图 展开
1.进行学生成绩管理系统界面的设计;
2、实现学生信息的管理(添加、删除、修改)
3.实现学生成绩的查询
4.实现学生各科成绩段的统计;
5.实现学生课程成绩统计总分和排名;
6.统计出优等生;
7.生成直方图 展开
1个回答
展开全部
Sub Command3_Click()
Adodc1.RecordSource = "select * from stuchenji order by 学号 desc"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Form_Load()
Dim mlink$
mpath = App.Path
If Right(mpath, 1) <> "\" Then mpath = mpath + "\"
mlink = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" + mpath + "stuchenji.mdb;Persist Security Info=False; " '无密码
Adodc1.ConnectionString = mlink
Adodc1.CommandType = adCmdUnknown
End Sub
Adodc1.RecordSource = "select * from stuchenji order by 学号 desc"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Form_Load()
Dim mlink$
mpath = App.Path
If Right(mpath, 1) <> "\" Then mpath = mpath + "\"
mlink = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" + mpath + "stuchenji.mdb;Persist Security Info=False; " '无密码
Adodc1.ConnectionString = mlink
Adodc1.CommandType = adCmdUnknown
End Sub
追问
有没有更完整的VB编程学生成绩管理系统连接Access数据库实例?可以发我邮箱WalkingSeaside@163.com
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询