高手邦忙,比较菜的一个问题
okcat 2004-08-13 10:17:01 在打开窗体时,窗体上的Datagrid1,datagrid2是空的,无记录,按学生姓名查询记录,学生姓名写在TEXT1中,点击查询按钮进行查询显示。其中建立的数据库中有两张表为“学生信息”与“学生选课信息”,学生信息表中有“学生编号”、“学生姓名”等字段,学生选课信息表中只有“学生编号”、“课程编号”字段。Datagrid1显示学生信息记录,Datagrid2显示学生选课记录。程序代码:
If Option1.Value = True Then
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\临时文件夹\学生信息管理系统.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 学生信息 where 学生编号='" & Trim(Text1.Text) & "' "
Set DataGrid1.DataSource = Adodc1
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\临时文件夹\学生信息管理系统.mdb;Persist Security Info=False"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from 学生选课信息 where 学生编号='" & Trim(Text1.Text) & "'"
Set DataGrid2.DataSource = Adodc2
ElseIf Option2.Value = True Then
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\临时文件夹\学生信息管理系统.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 学生信息 where 姓名='" & Trim(Text2.Text) & "' "
a$ = Adodc1.Recordset.Fields("学生编号")
Set DataGrid1.DataSource = Adodc1
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\临时文件夹\学生信息管理系统.mdb;Persist Security Info=False"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from 学生选课信息 where 学生编号='" & (a$) & "'"
Set DataGrid2.DataSource = Adodc2
End If
a$ = Adodc1.Recordset.Fields("学生编号") 在这句提示出错。为什么?我是想利用在学生信息表上用学生姓名查找到的记录中的对应的学生编号,在再选课信息中对应的学生编号查找。错在哪里