注册 登录
编程论坛 VB6论坛

VB连接ACCESS中两个表

tt770 发布于 2015-03-26 11:23, 587 次点击
ACCESS中有2个表
1.学生基本情况
  学号  姓名  性别  专业

2.学生成绩
  学号  科目  成绩

求最终实现结果:
DataGrid1 中显示
学号  姓名  性别  专业  科目  成绩

新手,请教各位大多神如何实现VB连接ACCESS中2个表,非常感激!
只有本站会员才能查看附件,请 登录
4 回复
#2
xzlxzlxzl2015-03-26 12:20
联合查询,join关键字,学号为两表关键字段。
#3
tt7702015-03-26 14:32
求完整代码,好解决,不要懒呀....谢谢楼上。
#4
lianyicq2015-03-27 09:44
对数据库不了解,但查了资料。
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\mdb\data.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select 学生基本情况.学号,学生基本情况.姓名,学生成绩.成绩 from 学生基本情况,学生成绩 where 学生基本情况.学号=学生成绩.学号"
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.Row = 0
DataGrid1.Col = 0
End Sub
对会者来说,很简单吧,当练习。
#5
tt7702015-03-27 11:31
以下是引用lianyicq在2015-3-27 09:44:55的发言:

对数据库不了解,但查了资料。
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\mdb\data.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select 学生基本情况.学号,学生基本情况.姓名,学生成绩.成绩 from 学生基本情况,学生成绩 where 学生基本情况.学号=学生成绩.学号"
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.Row = 0
DataGrid1.Col = 0
End Sub
对会者来说,很简单吧,当练习。



非常感谢!
只有本站会员才能查看附件,请 登录
1