我用SQL.Add()语句动态对query添加了数据,现在我要读出来,用
str:string;
with query do
str:=FieldByName('ID').AsString;
调试时出错提示:varient references to automative ......
该怎么解决啊
str:string;
with query do
str:=FieldByName('ID').AsString;
调试时出错提示:varient references to automative ......
该怎么解决啊
解决方案 »
- 如何把DBGrid里的1000条记录快速保存为一份Excel文件?谢谢
- delphi中用Qreport时如何在打印一张单据时,记录不足时表格线填充至一页,
- 在delphi中新建一个没加任何东西的工程,运行立刻出现CPU调试窗口,请赐教!
- 能否将ImageEn控件的背景设为透明
- 又要找工作了,大家先看看我的简历,觉得我值多少钱?
- 请教:如何把类名作为参数传递。
- 如果在程序运行时判断ocx组件是否注册?
- 300分求http://www.delphifans.com的vip会员帮我弄一个源码谢谢!!
- Tdxtreelist编辑时的问题
- 诚聘兼职或全职DELPHI程序员(上海)
- 资源文件的问题!
- ExpressPrinting System和ExpressQuantumGrid 求页记录数
Query1.Sql.Add(...);
Query1.Open;
Query1.First;
str:=Query1.FieldByName('ID').AsString;
SQL.Add('SELECT ID');
SQL.Add ('FROM COURSE_FREE1');
SQL.Add('WHERE TERM='''+course_ComboBox10.Text+'''');
SQL.Add ('AND SPECIALIZE_CODE='''+special+'''');
SQL.Add('AND STATE='''+coursepro+'''');
SQL.Add ('AND COMP='''+'0'+'''');
SQL.Add('AND CLASS='''+course_ComboBox14.Text+'''' );
ExecSQL;
SQL.Clear;
SQL.Add('SELECT ID');
SQL.Add ('FROM COURSE_FREE1');
SQL.Add('WHERE TERM='''+course_ComboBox10.Text+'''');
SQL.Add ('AND SPECIALIZE_CODE='''+special+'''');
SQL.Add('AND STATE='''+coursepro+'''');
SQL.Add ('AND COMP='''+'0'+'''');
SQL.Add('AND CLASS='''+course_ComboBox14.Text+'''' );
open;
应该可以
及执行query1.open;
然后再执行你的那段代码,就行了
str:string;
i:integer;
begin
adoquery1.sql.clear;
adoquery1.close;
adoquery1.sql.add('select * from COURSE_FREE1');
adoquery1.open;if not adoquery1.isempty then //如果查询的数据不为空
begin
for i:=1 to adoquery1.recordcount do
with adoquery1 do
begin
str:=adoquery1.FieldValues['id'];
adoquery1.next;
end;
end;
不会是没有open吧,呵呵