数据库为Oracle,采用BDE连接方式,在一个表内有字段stand---VARCHAR2型, Stand_After_Start,Stand_After_End,为Date类型,用一Query,其语句为select * from r1001 ,其中设置Query属性为CacheUpdate为true,requestLive为False,UpdateObject为一UpdateSql,其中已经设置了更改表名为r1001,更改字段名中包括Stand,stand_after_start,stand_after_end,
在数据库中stand_after_start,stand_after_end可以为空。
现在我用更改stand数据时想让stand_after_start,stand_after_end值不变。语句如下
with query1 do
begin
edit ;
fieldbyname('Stand').AsString:='101';
Post;
commitupdate(Query1);
end;
其中 commitupdate的内容如下
result := True;
try
Database1.StartTransaction;
try
Dataset.ApplyUpdates;
Database1.Commit;
except
Database1.Rollback;
result := false;
raise;
end;
Dataset.commitupdates;
except
end;
然而我更改数据时stand_after_start,stand_after_end中的数据变成了'0000-0-0'类型的。原来为空.如果其中有数据时没事。
在数据库中stand_after_start,stand_after_end可以为空。
现在我用更改stand数据时想让stand_after_start,stand_after_end值不变。语句如下
with query1 do
begin
edit ;
fieldbyname('Stand').AsString:='101';
Post;
commitupdate(Query1);
end;
其中 commitupdate的内容如下
result := True;
try
Database1.StartTransaction;
try
Dataset.ApplyUpdates;
Database1.Commit;
except
Database1.Rollback;
result := false;
raise;
end;
Dataset.commitupdates;
except
end;
然而我更改数据时stand_after_start,stand_after_end中的数据变成了'0000-0-0'类型的。原来为空.如果其中有数据时没事。
解决方案 »
- 求助一个小问题(菜单栏上的)
- 急,急,急,求一条SQL语句
- 为什么我在xp下编译的Delphi在98不能运行?急急急!!!拜托各位了!
- 救命啊,,,,,,,ACCESS的自定义函数在delphi的ADO控件中无法运行,怎么办?
- 如何在StatusBar中添加Image图片???
- 急急...........在线等待!!!关开注销控制问题????????
- 熟悉DBLookupComboBox进来(在线等待)
- dehpi project manager 中open 窗体时报错error creating form:identifier expected on line
- 关于TListItem.Data的问题,我搜索以前的帖子,没找到,请各位帮忙!!!
- 问题好奇怪,又不知如何解决!
- 关于BDE提交和删除记录的问题。
- [奇怪问题]UDP数据传输出怪码[奇怪问题]
这阵维护个以前写的软件,怎么改怎么不顺,后来干脆把paradox改成access的了,感觉气才顺。。
哈哈