procedure TfrmInputRoomAndOrder.btnOkClick(Sender: TObject); //导入本批次本考点的学生信息var
exam_order,exam_room_number:string;
begin
exam_order:=trim(edtOrder.Text); //考试批次
exam_room_number:=trim(edtExamNo.Text); //考场号 with adoq_GetInfo do // 从Access表student 中获得符合输入条件的纪录
begin
close;
sql.clear;
sql.add('select STID,STNA,EXNU,CLAS,LANG,DEGR,EARN,EXOR ');
sql.add('from studinfo');
sql.add('where EXOR=''+exam_order+'' and EARN=''+exam_room_number+''');
open;
end;
with adoq_UpdateInfo do //用符合条件的纪录更新SQL Server 里面dbStudentInfo 库中StudInfo表中的纪录
begin
close ;
sql.clear;
sql.add(' update dbStudentInfo.StudInfo set dbstudentinfo.studinfo.STID=student.studinfo.STID, dbstudentinfo.studinfo.STNA=student.studinfo.STNA, dbstudentinfo.studinfo.EXID=student.studinfo.EXID');
sql.add(', dbstudentinfo.studinfo.CLAS=student.studinfo.CLAS, dbstudentinfo.studinfo.LANG=student.studinfo.LANG, dbstudentinfo.studinfo.LEVE=student.studinfo.DEGR');
sql.add(', dbstudentinfo.studinfo.EARN=student.studinfo.ERAN, dbstudentinfo.studinfo.EXOR=student.studinfo.EXOR'); open;
end;
end;提示说,对象名dbstudentinfo.student 无效
是不是语法有错误?
exam_order,exam_room_number:string;
begin
exam_order:=trim(edtOrder.Text); //考试批次
exam_room_number:=trim(edtExamNo.Text); //考场号 with adoq_GetInfo do // 从Access表student 中获得符合输入条件的纪录
begin
close;
sql.clear;
sql.add('select STID,STNA,EXNU,CLAS,LANG,DEGR,EARN,EXOR ');
sql.add('from studinfo');
sql.add('where EXOR=''+exam_order+'' and EARN=''+exam_room_number+''');
open;
end;
with adoq_UpdateInfo do //用符合条件的纪录更新SQL Server 里面dbStudentInfo 库中StudInfo表中的纪录
begin
close ;
sql.clear;
sql.add(' update dbStudentInfo.StudInfo set dbstudentinfo.studinfo.STID=student.studinfo.STID, dbstudentinfo.studinfo.STNA=student.studinfo.STNA, dbstudentinfo.studinfo.EXID=student.studinfo.EXID');
sql.add(', dbstudentinfo.studinfo.CLAS=student.studinfo.CLAS, dbstudentinfo.studinfo.LANG=student.studinfo.LANG, dbstudentinfo.studinfo.LEVE=student.studinfo.DEGR');
sql.add(', dbstudentinfo.studinfo.EARN=student.studinfo.ERAN, dbstudentinfo.studinfo.EXOR=student.studinfo.EXOR'); open;
end;
end;提示说,对象名dbstudentinfo.student 无效
是不是语法有错误?
解决方案 »
- 【可儿MM】我有一个心愿。。。
- 主程序中放了SocketConnection1,我的dll窗体中放了clientdataset,我该如何在dll窗体中调用主程序的SocketConnection1连接状态呢?
- tidtcpserver问题,关闭服务器端,客户端发送的第一条数据不提示错误
- 求助,向各位大大请教一个 datatime 类型转换为 字符串类型的问题,谢谢!(
- Delphi8何时推出?
- 确定DbGrid单元格的数据是否发生改变,怎么办
- 這段代碼裡兩行有kEYBD_EVENT的語句是麼意思?? 誰幫我看看
- 这里有一个问题大家帮一下哈
- 如何对DbGrid中的数值列设置显示格式
- 关于NMFTP的问题
- 画图时线条相交问题!
- 哪个有用鼠标拖动图片的示范代码?
->
Update StudInfo Set......
确保SQL Server 是和软件相连的。