VB程序员博客
我的student.mdb中包含两张表
一张是 基本情况 ：
学号 姓名
1 张三
2 李四
3 王二
4 麻子
一张是 学生成绩表：
学号 语文 数学 英语
1 85 98 68
2 75 62 95
3 56 74 42
4 85 95 41
我在窗体上添加了 Adodc,MsChart,DataGrid 各一个想通过 MsChart,DataGrid 连接Adodc，然后通过代码操作Adodc的RecordSource来控制MsChart,DataGrid的显示：（DataGrid如下，MsChart的格式我不好写出来，就是横轴是姓名，纵轴是每人的最高最低分，直方图 ）
DataGrid：
姓名 平均成绩 最低分数
。。 。。。 。。。
我编写的代码如下：
Private Sub Form_Load()
Dim sql As String, mlink As String
sql = "select 基本情况.姓名,Avg(成绩) as 平均成绩,min(成绩) as 最低成绩"
sql = sql + " from 基本情况,学生成绩表 where 基本情况.学号=学生成绩表.学号"
sql = sql + " group by 学生成绩表.学号,基本情况.姓名 order by avg(成绩) desc"
mlink = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:我的文档\桌面student.mdb;Persist Security Info=False"
Adodc1.ConnectionString = mlink
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = sql
Adodc1.Refresh
End Sub
先坦白下，因为我是个菜鸟，所以不知道代码写的对不对？或者是不是在设计窗体时还要设置什么连接？总之的的代码运行总是出错，希望高手能指点下，刚注册的号，不能给你很多分，希望见谅，不过在此真心的对你表示感谢！！！select 学生成绩表.学号, 基本情况.姓名,Avg(成绩)Dim sql As String, mlink As String
sql = "select 基本情况.姓名,Avg(成绩) as 平均成绩,min(成绩) as 最低成绩"
sql = sql & " from 基本情况,学生成绩表 where 基本情况.学号=学生成绩表.学号"
sql = sql & " group by 学生成绩表.学号,基本情况.姓名 order by avg(成绩) desc"
mlink = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:我的文档\桌面student.mdb;Persist Security Info=False"
Adodc1.ConnectionString = mlink
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = sql
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh<
<