不要动辄bug阿!
sqlquery1.sql.Text := 'select * from a2 where n1=3388';
sqlquery1.Open ;
sqlquery1.Active :=true; nn2:=1;
nn2:=sqlquery1.recordcount; 改为:
sqlquery1.sql.Text := 'select *,Count(*) as Num from a2 where n1=3388';
sqlquery1.Open ;
sqlquery1.Active :=true; nn2:=1;
nn2:=sqlquery1.fieldbyname('Num').AsInteger;//看看 ,不知道为什么要锁定?—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
sqlquery1.sql.Text := 'select * from a2 where n1=3388';
sqlquery1.Open ;
sqlquery1.Active :=true; nn2:=1;
nn2:=sqlquery1.recordcount; 改为:
sqlquery1.sql.Text := 'select *,Count(*) as Num from a2 where n1=3388';
sqlquery1.Open ;
sqlquery1.Active :=true; nn2:=1;
nn2:=sqlquery1.fieldbyname('Num').AsInteger;//看看 ,不知道为什么要锁定?—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
解决方案 »
- 请教下Delphi能调用MFC写的导出类吗?
- 用MSComm控件如何开发多线程串口通讯程序
- 用STRINGGRID如何实现下面的表格
- 如何隐藏同种类型的控件
- 请教一个三层结构的问题,请进
- 帮我看看,为什么出错
- 我在用delphi建了一个数据库用了paradox表,我把所有文件全拷到了一软盘上可在复制到硬盘上时可复制不上老是说:bussinesspjt.dof,复制不
- 鼠标点击窗体的最小化按钮时,产生的消息是什么,或者是怎么捕获这个消息
- 如何向别的程序如IE窗口发一个刷新信息?
- 请问:怎样在程序中确定程序的其实位置?
- 请问字串里的字串怎样表示..?
- 请问怎样通过BDE连接SQL Server7数据库?
mysql不支持事务,有时候需要锁定表,你的办法有可能部分解决问题,但总还是绕圈子了。