有鬼!来抓鬼呀!为何在一个多表查询(ADOQUERY)中提交(Post)了一条记录以后，发现这条记录中的数据又不见了？不知道哪位会抓这鬼的!

博客专家认证

2002-10-31 07:58:41

数据库：Oracle 9i
ADO版本：2.7 CN
DELPHI :V6.0

BodyQuery的属性设置LockType为ltBatchOptimistic;
这是我的SQL语句：
With BodyQuery do
begin
Close;
SQL.Clear;
SQL.Add('select S.LISTNO , G.GDSID ,G.GDSINID , G.GDSNAME , G.SPECIFY ,G.UOMID ,');
SQL.Add('S.UNITPRICE , S.TOTALQTY ,S.DISCOUNT ,S.AMOUNT ,S.ROWNO');
SQL.Add('FROM STOCKIMPORTBODY S ,GOODS G WHERE S.GDSINID = G.GDSINID');
SQL.Add('and ListNO = :ListNO ORDER BY ROWNO');
Parameters.ParamByName('ListNO').Value := '00001';
Open;
Filtered := False;
FilterGroup := fgNone;
end;

而我在BeforePost,AfterPost 事件中写：

procedure TOrigInputStockForm.BodyQueryBeforePost(DataSet: TDataSet);
begin
showmessage(dataset.Fields.Fields[1].AsString);{可以正常看到输入的数据}
end;

procedure TOrigInputStockForm.BodyQueryAfterPost(DataSet: TDataSet);
begin
showmessage(dataset.Fields.Fields[1].AsString);{显示的只有一片空白，但插入的这条记录还存在，只不过没有内容!}
end;

如果我修改原来已存在的记录的话，则会出现在BeforePost显示的是你修改后的值，但到了AfterPost时，显示的就还是最开始没有被修改的值!

不知道这是为什么？

...全文

170 18 打赏收藏转发到动态举报

写回复

用AI写文章

18 条回复

切换为时间正序

请发表友善的回复…

发表回复

日总是我哥 2002-11-01

打赏
举报

去啦，我把我们的聊天记录　都贴上去了，没人敢说我们“倒分”的，呵呵
Tian 说：
really no need
CoolSlob 说：
代我谢他!
CoolSlob 说：
嘻嘻
CoolSlob 说：
那我代领啦 <<<------------------Here!!!
Tian 说：
sure, please thank him for his kindness<<<------------------Here!!!

Drate 2002-11-01

打赏
举报

日总是我哥 2002-11-01

打赏
举报

Tian 说：
by the way, here is a link for ado connection strings for all kinds of dbs:http://www.able-consulting.com/MDAC/ADO/Connection/OLEDB_Providers.htm#OLEDBProviderForOracleFromOracle

日总是我哥 2002-11-01

打赏
举报

为略表谢意，恳请XXXXX来领分：）

CoolSlob 说：
hi, 问你个怪问题
Tian 说：
sure
CoolSlob 说：
我有一应用程序(.exe文件），在A机器上运行正确，在B机器上却错误，所做的程序仅仅是修改数据，ADO版本一样，连接的数据库也是一样(Oracle9i)
Tian 说：
what kind of errors?
CoolSlob 说：
在机器A上可以执行修改数据的操作，而机器B上却不可以！没有任何错误信息出现！
Tian 说：
are you using odbc?
CoolSlob 说：
OLE DB for ORACLE
CoolSlob 说：
到了机器B上，它的Dataset就好像是ReadOnly了，不能接受用户输入数据了
Tian 说：
what about oracle client side driver version?
CoolSlob 说：
v9
Tian 说：
not the database, but the client utility version
CoolSlob 说：
client utility 在哪里查看呀？因为我不是用Oracle的
CoolSlob 说：
这个问题也是我同学的问题
Tian 说：
oracle has a server component and client utility, basically, the utility gives you the tools and basic drivers
CoolSlob 说：
嘻嘻他说他找不到，我看是没办法救他了
Tian 说：
go odbc data source administrator, go to Drivers tab, look there, check oracle's version
CoolSlob 说：
他发一这么一串：oracle in oradb V9！是不是这个？
CoolSlob 说：
microsoft ODBC for ORACLE V2.573
CoolSlob 说：
还有这个
CoolSlob 说：
我请你喝咖啡先
Tian 说：
what's his connection string?
Tian 说：
ask him to check the drivers on a and b machines are same
CoolSlob 说：
Provider=OraOLEDB.Oracle.1;Password=frans;Persist Security Info=True;User ID=frans;Data Source=oracled是指这个connection string吗？
Tian 说：
yes, looks fine
Tian 说：
ask him to remove "Persist Security Info=True;"
CoolSlob 说：
ok,
CoolSlob 说：
是的，是客户端的问题，V8与V9的不一样，V9会出问题!
CoolSlob 说：
我同学说的
CoolSlob 说：
呵呵让他自己再看了，谢谢你！我也要做事了，为了帮同学，公司的事都没做，
Tian 说：
no problem
CoolSlob 说：
为略表心意，来这里　领分吧我等你http://expert.csdn.net/Expert/TopicView1.asp?id=1137952
Tian 说：
hehe, no need

日总是我哥 2002-11-01