procedure TForm1.Button1Click(Sender: TObject);
Var
xXXDM : String;
str1,str2,str3: String;
begin
ADOQuery2.SQL.Clear;
ADOQuery2.Close;
ADOQuery2.SQL.Add('SELECT XXDM FROM SCHOOL WHERE XXMC='''+Edit1.Text+'''');
ADOQuery2.Active := True;
xXXDM := ADOQuery2['XXDM'];
str1 := 'SELECT XKMC,SJSM,YSRS,JSZS,QZSSSYXJSRS,JYGWXSBJDJSRS,JYBSXWDJSRS,FJSZRS,QZSSSYXDFJSRS,JYGWXSBJDFJSZRS,JYBSXWDFJSZRS,CJXZTPJSRS,GJJCQNJJHDRS';
str2 := 'FROM SUBJECT,DATA_DESC,SUBJECT_QUEUE ';
str3 := 'WHERE SUBJECT_QUEUE.XKDM=SUBJECT.XKDM AND SUBJECT_QUEUE.SJSMDM=DATA_DESC.SJSMDM AND SUBJECT_QUEUE.XXDM ';
ADOQuery1.SQL.Clear;
ADOQuery1.Close;
ADOQuery1.SQL.Add(str1+str2+str3+'= :dm;');
ADOQuery1.Parameters.ParamByName('dm').Value := xXXDM;
ADOQuery1.Active := True;
end;报错:
列前缀 'SUBJECT_QUEUE'与查询中所遇到的列名或表名不一致
Var
xXXDM : String;
str1,str2,str3: String;
begin
ADOQuery2.SQL.Clear;
ADOQuery2.Close;
ADOQuery2.SQL.Add('SELECT XXDM FROM SCHOOL WHERE XXMC='''+Edit1.Text+'''');
ADOQuery2.Active := True;
xXXDM := ADOQuery2['XXDM'];
str1 := 'SELECT XKMC,SJSM,YSRS,JSZS,QZSSSYXJSRS,JYGWXSBJDJSRS,JYBSXWDJSRS,FJSZRS,QZSSSYXDFJSRS,JYGWXSBJDFJSZRS,JYBSXWDFJSZRS,CJXZTPJSRS,GJJCQNJJHDRS';
str2 := 'FROM SUBJECT,DATA_DESC,SUBJECT_QUEUE ';
str3 := 'WHERE SUBJECT_QUEUE.XKDM=SUBJECT.XKDM AND SUBJECT_QUEUE.SJSMDM=DATA_DESC.SJSMDM AND SUBJECT_QUEUE.XXDM ';
ADOQuery1.SQL.Clear;
ADOQuery1.Close;
ADOQuery1.SQL.Add(str1+str2+str3+'= :dm;');
ADOQuery1.Parameters.ParamByName('dm').Value := xXXDM;
ADOQuery1.Active := True;
end;报错:
列前缀 'SUBJECT_QUEUE'与查询中所遇到的列名或表名不一致
解决方案 »
- 请问如何使DBGRIDEH 内的Tab键不能新增一行数据,必须按ENTER键才能新增一行数据!
- 如何实时监测SQL SRVER中某表有无数据记录。
- 谁有邮件发送的程序,帮帮忙
- 每个DELPHI程序所关心的问题
- 数据库同步问题
- select * from table1 a where a.fld1 in ('abddeedd') 为何不出正确结果
- 怎样取得本机的计算机名和本机sql server 2000服务器名
- ?
- 我想问一下对象的update事件的具体解释?在线等待.
- 怎么没人理我---赶快帮帮忙
- 如果做一个办公系统想做一个菜单启动qq怎么办?
- delphi中有没有和vb中doevents功能一样的函数?
str2 := 'FROM SUBJECT,DATA_DESC,SUBJECT_QUEUE ';
str3 := 'WHERE SUBJECT_QUEUE.XKDM=SUBJECT.XKDM AND
str1和str2之间未有空格分隔。
原因是你的查询语句错误,不是你写错了,而是解释的时候出现了错误;
你把str1,str2,str3内容前面加入空格就可以了!
比如:
str2 := 'FROM SUBJECT,DATA_DESC,SUBJECT_QUEUE ';
改成
str2 := ' FROM SUBJECT,DATA_DESC,SUBJECT_QUEUE ';//注意空格