作者：萎靡的世界 | 来源：互联网 | 2024-10-14 10:57
《如何对Tadoquery查询的结果集的某个字段进行修改？》
我的Tadoquery1.sql.add(select *
from vw_frontacross
where rank=:xrank and workcode=:xworkcode
)
其中：vw_frontacross为TADOTABLE，它连接名为vw_frontacross的视图，
我想通过Tadoquery1查询的结果集对此视图中的一个基表的dist字段
进行修改，我听同学说：Tadoquery1返回的记录集是只读的，那么，
我该怎样做？？？？？
请给出详细步骤。
谢谢！！！
16 个解决方案
我用ADO不是很多，但也做个几个程序，我上次做了一个个管理系统，里面做了一个通讯录，我用的就是ADO，是可以用UPDATE进行修改的呀！！！！！！语法和Query的基本上一样！！！
update table_name set a=:b;
query.Parameters[0].value;=
不访试，AdoQuery的查询是有数据集的，不过不要用Execsql,应该用Open
呵呵,我找到问题所在了.
关键在于您查询中使用的是视图而不是表.
对于视图而言,from 单个表,可以更新,插入,不能删除,
from多个表,不能更新,插入,删除.
这也许就是问题所在了.
同意楼上的，固然视图有许多的优点，毕竟还是有缺陷的。。。
视图是一个虚拟的表，你对他的操作并不是对真正的表进行操作！建立视图可以方便我们简化对数据的操作，还增加了安全性
//打开查询数据集
adqrim.Close;
adqrim.SQL.clear;
adqrim.SQL.add('select * from vw_frontacross where rank=:xrank and workcode=:xworkcode');
adqrim.Parameters[0].Value:=xrank;
adqrim.Parameters[1].Value:=xworkcode;
adqrim.Prepared:=true;
adqrim.Open;
//对查询数据集进行操作
dsqrim.First;
while not dsqrim.Eof do
begin
h1:=dsqrim.fieldbyname('h1').asfloat;
h2:=dsqrim.fieldbyname('h2').asfloat;
distaver:=dsqrim.fieldbyname('distaver').asfloat;
c1:=(h1-h2)*(h1-h2);
c2:=(1+h1/r)*(1+h2/r);
d0:=sqrt((distaver*distaver-c1)/c2);
d1:=d0*(r+286.37)/r;
dsqrim.Edit;
dsqrim.fieldbyname('distaver').asfloat:=d1;
dsqrim.Next;
end;
关键是这样的修改是不是不行？？
dsqrim.fieldbyname('distaver').asfloat:=d1;
您的查询是针对视图的,而您的视图可能是从多个表中抽取数据的,所以这样做肯定不行.这不是说adoquery不能对从多个表得到数据进行更新操作,是数据集本身的问题,而不是adoquery的问题.
建议: 直接写多重查询,从表中获得数据.如果您对以上数据进行计算,更新只是为了显示的话,建议使用计算字段.
你可以 将TAdoquery 连一个 TUpdatequery控件。把要更新的语句写在TUpdatequery的属性中。TUpdatequery有三个对应的属性分别对应Delete，Insert和Update。然后 ~.EXEC就行了
1。你的查询中用到了 嵌套查询 ，所以query旧变成只读。
2。使用的是视图而不是表.对于视图而言,单个表,可以更新,插入,不能删除, 多个表,不能更新,插入,删除
解决；现在 要用 SQL 语句来更新
1。重新CREATE一个新的query，连数据库，把语句写进去。执行后，FREE。
2。将TAdoquery 连一个 TUpdatequery控件。把要更新的语句写在TUpdatequery的属性中。TUpdatequery有三个对应的属性分别对应Delete，Insert和Update。然后 ~.EXEC就行了
但是TADOQUERY既没有TQuestlive属性
也没有updateobject属性
还没有cachedupdate属性
我的视图是这样写的（vw_frontacross）：
SELECT dbo.Rim_PT.WorkCode, dbo.Rim_PT.Code, dbo.Rim_PT.spworkcode,
dbo.Rim_PT.spcode, dbo.Rim_PT.epworkcode, dbo.Rim_PT.epcode,
dbo.Hori_PT.H AS H1, Hori_PT_1.H AS H2, dbo.Hori_PT.FX, dbo.Hori_PT.FY,
Hori_PT_1.NX, Hori_PT_1.NY, dbo.forwrim_ca.dist, dbo.forwrim_ca.distaver,
dbo.Rim_PT.fl
FROM dbo.Rim_PT INNER JOIN
dbo.forwrim_ca ON dbo.Rim_PT.WorkCode = dbo.forwrim_ca.workcode AND
dbo.Rim_PT.Code = dbo.forwrim_ca.code INNER JOIN
dbo.Hori_PT ON dbo.Rim_PT.spworkcode = dbo.Hori_PT.WorkCode AND
dbo.Rim_PT.spcode = dbo.Hori_PT.Code INNER JOIN
dbo.Hori_PT Hori_PT_1 ON dbo.Rim_PT.epworkcode = Hori_PT_1.WorkCode AND
dbo.Rim_PT.epcode = Hori_PT_1.Code
我的AdqWaterme.sql.add(select *
from vw_frontacross
where rank=:xrank and workcode=:xworkcode
)
//下面是对AdqWaterme的操作
AdqWaterme.First;
while not AdqWaterme.Eof do
begin
vol1:=AdqWaterme.FieldByName('vol1').Value;
vol2:=AdqWaterme.FieldByName('vol2').Value;
angle:=AdqWaterme.FieldByName('angle').Value;
vol:= (vol1+ vol2)*cos(angle);;
if not((vol1=0)or(vol2=2)) then
vol:= vol/2;
htop:=AdqWaterme.FieldByName('htop').Value;
AdqWaterme.Edit;
//下面这个赋值语句行吗？？
AdqWaterme.FieldByName('vol').Value:=htop-vol;
AdqWaterme.Next;
end;
但是TADOQUERY既没有TQuestlive属性
也没有updateobject属性
还没有cachedupdate属性
京公网安备 11010802041100号