DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: 1085099913
今日帖子: 36
在线用户: 30
导航: 论坛 -> 数据库专区 斑竹:liumazi,waterstone  
作者:
男 ds3000 (ds3000) ▲▲△△△ -
注册会员
2018/6/30 15:07:01
标题:
关于ADO控件使用 浏览:381
加入我的收藏
楼主: 环境:delphi 7.0 + Access2007
控件:TADOQuery

我的保存数据函数:
procedure TForm1.SaveData;
begin
  if adrqData.RecordCount > 1 then adrqData.First;

  try
    adrqData.Insert;
    adrqData.FieldByName('SN').Value := FSN;
    .......
    adrqData.Post;
  except
    ShowWriteInfo('数据保存失败', 4);
  end;
end;

在我的电脑上运行一点问题都没有,但是在同事的电脑上却报异常:
adrqData: Cannot perform this operation on a closed dataset.

我在网上查了也没人提到原因是什么,是不是数据库环境的问题,需要安装什么?
----------------------------------------------
-
作者:
男 moom (小新啊) ▲△△△△ -
注册会员
2018/6/30 16:31:00
1楼: 1'检查 adocon 的 string 的 数据库 路径 是不是 相对路径
2:检查数据库是否存在
----------------------------------------------
谢谢各位大大
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/7/1 9:54:14
2楼: 楼主你的 open 代码失败了,但是你没有让失败显示出来。所以,到了使用的地方,才提示你 closed 。
----------------------------------------------
(C)(P)Flying Wang
作者:
男 ds3000 (ds3000) ▲▲△△△ -
注册会员
2018/7/2 9:38:50
3楼: to wang_80919:

代码应该没问题,同样的程序,在我的电脑上一点问题都没有,拷到同事的电脑上就报错。
----------------------------------------------
-
作者:
男 ds3000 (ds3000) ▲▲△△△ -
注册会员
2018/7/2 9:42:27
4楼: to moom:

连接路径:
DbName := ExtractFileDir(Application.ExeName) + '\DB' + '\fcsd.mdb';
应该是没问题,应该登陆的时候要核对账号和密码,系统并没有提示错误。
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/7/2 9:43:49
5楼: 不信就算了。
----------------------------------------------
(C)(P)Flying Wang
作者:
男 zhangpuqing (pupu) ▲▲▲▲△ -
注册会员
2018/7/2 11:27:31
6楼: 提示是说数据源没打开个嘛。
----------------------------------------------
-
作者:
男 lsh341999 (虫子) ▲▲▲▲△ -
注册会员
2018/7/2 11:32:03
7楼:   LinkStr:='Provider=Microsoft.Jet.OLEDB.4.0;'
          +'Data Source='+PathStr+'\'+DataFiles+';'{必须绝对路径}
          +'Persist Security Info=False;'
          +'Jet OLEDB:Database Password='+DataPasse;{如果AC没密码请删除此行}
----------------------------------------------
就怕想不到,没有做不到的
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行31.25毫秒 RSS