DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: randy522732557
今日帖子: 25
在线用户: 15
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 zsh_888 (点点) ★☆☆☆☆ -
普通会员
2004/3/11 9:42:35
标题:
请教 浏览:893
加入我的收藏
楼主: 1、
procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  s:='select * from dtabe1 where f10>=00001';
  with ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add(s);
    open;
  end;
end;
2、
procedure TForm1.Button3Click(Sender: TObject);
var
  s:string;

begin
  s:='update dtabe1 set f12=50.34';
  with adoquery1 do
  begin
    close;
    sql.Clear;
    sql.Add(s);
    execsql;
  end;
end;
我先执行第一个查询功能,正常,然后执行第二个修改功能,这时出现如下错误信息:
Access violation at address 1F487CAB in module 'msado15.dll'.write of address 010D7018
不知其解,请哪位先生指教,谢谢!

----------------------------------------------
-
作者:
男 hfqxfx (~!@) ★☆☆☆☆ -
盒子活跃会员
2004/3/11 9:48:23
1楼: 会不会是你的SQL语句中数据类型出错了啊!!

----------------------------------------------
~~
作者:
男 zsh_888 (点点) ★☆☆☆☆ -
普通会员
2004/3/11 9:55:17
2楼: 我用的是事情sqlserver2000,类型不错啊

----------------------------------------------
-
作者:
男 ddzhouqian (007) ★☆☆☆☆ -
盒子活跃会员
2004/3/11 10:08:12
2楼: f12是不是float类型?
----------------------------------------------
-按此在新窗口浏览图片
作者:
男 chengyao (百炼成尧) ★☆☆☆☆ -
盒子活跃会员
2004/3/11 10:12:15
3楼: 可能是浮点操作错误,同意2楼。
----------------------------------------------
Function IThink(Boy,Girl : TPerson) : String;
begin
  if Boy.钱 < 10W then Girl.Say(''滚!'') else
  begin
     if Girl.Anser = ''我愿意'' then
     Result := ''结婚'' else
     Result := IntToStr(88);
  end;
风过不折→百炼成尧 QQ: 7315910
作者:
男 zsh_888 (点点) ★☆☆☆☆ -
普通会员
2004/3/11 10:36:25
4楼: F12 是 numeric型,我在这两个过程中采用两个不同的ADOQUERY就好了,但难道就不能有其它办法用一个吗?比如用完就释放,请赐教!
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行66.40625毫秒 RSS