解决方案 »
- Delphi Tquery insert 问题?
- lovelymelon老大,ListView2里要将全选的行中X和Y列逐条取出要怎么写
- 请问:DSPACK进行视频录像,如何将时间叠加到画面上?
- 如何把data:array[0..9] of char中的数据写入到内存流中?急!!!
- 在TDBGrid控件中,该控件和一个TADOQuery绑定在一起.现在要在TDBGrid控件中增加新记录,新记录的某些字段不需人工输入,而是利用已经输入的
- 程序在切换windows用户后用不了了,怎么解决?
- ClientSocket占用的资源在什么时候释放??
- 两个数据表相关联的问题!急,在线等待!
- 怎样将正在查询的Query中止?
- 请教一个UPD通讯的问题,50分!
- 关于恢复列属性问题?
- ADOQuery的refresh与close、open有何区别?
Edit1.Text:=fieldbyname('total_title').AsString;
这样就可以了!
这个Close纯属多余,Clear本身就会Close
var
q4,q5: TQuery;
str:string;
begin
Database1.Connected := true;
q4:= Tquery.Create(nil);
q4.DatabaseName := database1.DatabaseName;
with q4 do
begin
str:= 'select count(distinct qshm) as total_title from t_inv_title';
Close;
SQL.Clear;
SQL.Add(str);
Open;
Edit1.Text:=fieldbyname('total_title').AsString; end;
end;
Open;
顺序调整一下