怪事..关于ADOQuery的Calculated字段类型问题....

zzlazio 2004-12-30 11:16:28

ADOQuery添加FluxSum字段..设为Integer,Calculated字段类型.
可我在ADOQUERY的OnCalcFields 事件里写
VDQuery.Edit;
VDQuery.Parameters.ParamByName('SumFlux').Value:=VDQuery.FieldValues['FluxMax']+VDQuery.FieldValues['FluxMin'];
可老报错啊.."VDQuery:parameter 'SumFlux' not found'.

...全文

144 12 打赏收藏转发到动态举报

写回复

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

zzlazio 2004-12-30

打赏
举报

回复

晕哦...
NND.搞了半天就多个EDIT...
谢谢各位了..散分了...

dh9450 2004-12-30

打赏
举报

回复

edit;//不要了
直接这样写试试
VDQuery.fieldbyname('SumFlux').Integer:=VDQuery.fieldbyname('FluxMax').Integer+VDQuery.fieldbyname('FluxMin').Integer;

zzlazio 2004-12-30

打赏
举报

回复

???
哪里的设计有问题..
字段设计应该没问题的啊..
双击添加..SumFlux..Integer...Calculated.
麻烦说下好么?

lzy6204 2004-12-30

打赏
举报

回复

设计有问题

zzlazio 2004-12-30

打赏
举报

回复

VDQuery.FieldByName('SumFlux').Value := ....
报错..."Stack overflow"
什么意思呀??

zzlazio 2004-12-30

打赏
举报

回复

VDQuery.FieldByName('SumFlux').Value := ....
我试过.根本通不过编译..

Kevin_Lmx 2004-12-30

打赏
举报

回复

VDQuery.Parameters.ParamByName('SumFlux')？你添加的字段不应该是参数吧？
VDQuery.FieldByName('SumFlux').Value := ....

zzlazio 2004-12-30

打赏
举报

回复

不对..
我用的是ADOQuery..
应该是Query.parameters.......

gxgyj 2004-12-30

打赏
举报

回复

VDQuery.fieldbyname('SumFlux').Value:=......
//应该是这样吧

dh9450 2004-12-30

打赏
举报

回复

VDQuery.fieldbyname('SumFlux').Value

zzlazio 2004-12-30

打赏
举报

回复

写错了.
添加的也是SumFlux..

caiso 2004-12-30

打赏
举报

回复

顶一下

Delphi 点击Tree节点的某个选项后，右侧会对应显示出数据信息，左侧的树节点信息从Access数据库读取出来，实际上当我们单击左侧数据的时候，右侧数据同样是从Access数据库读取，只不过关联的ID，就是左侧的数据项，实现这一功能，对应的代码为：　　procedure TForm1.TreeView1Click(Sender: TObject); 　　begin 　　 with ADOQuery2 do 　　 begin 　　 Close; 　　 SQL.Clear; 　　 SQL.Add('Select * From msn where 姓名 =:a'); 　　 Parameters.ParamByName('a').Value:=TreeView1.Selected.Text; 　　 Prepared; 　　 open; 　　 end; 　　 if (ADOQuery2.RecordCount>0)and(Treeview1.Selected <> Nil) then 　　 with ADOQuery2 do 　　 begin 　　 Edit1.Text:=ADOQuery2.fieldbyname('ID').AsString; 　　 Edit2.Text:=ADOQuery2.fieldbyname('姓名').AsString; 　　 Combobox1.Text:=ADOQuery2.fieldbyname('性别').AsString; 　　 DatetimePicker1.Date:=ADOQuery2.fieldbyname('出生日期').Value; 　　 Edit3.Text:=ADOQuery2.fieldbyname('民族').AsString; 　　 Edit4.Text:=ADOQuery2.fieldbyname('家庭电话').AsString; 　　 Edit5.Text:=ADOQuery2.fieldbyname('手机号码').AsString; 　　 Edit6.Text:=ADOQuery2.fieldbyname('QQ号码').AsString; 　　 Edit7.Text:=ADOQuery2.fieldbyname('E_mail').AsString; 　　 Memo1.Lines.Text:=ADOQuery2.fieldbyname('备注').AsString; 　　 Combobox2.Text:=ADOQuery2.fieldbyname('类型').AsString; 　　 end; 　　end;

Delphi中ADOQuery使用了lookup字段后出现未知错误　解决办法

ADOQuery添加了lookup字段后使用Append，再为字段赋值时会报错“EOleException 未知错误”，很困扰啊，终于能解决了。

在Delphi中使用日期选择器用于数据库查询，用户搜索满足选定日期条件中的数据，使用日期选择器可很好的提高日期格式的准确性，避免数据库出错和查询不到数据的情况，本例的运行效果请参见测试截图。相关代码如下：　　procedure TForm1.Button1Click(Sender: TObject); 　　var mydate:tdatetime; 　　Begin 　　 ADOquery1.Close; 　　 ADOquery1.SQL.Clear; 　　 ADOquery1.SQL.Add('Select * From xsd where 录入日期 =:a'); 　　 ADOquery1.Parameters.ParamByName('a').Value :=FormatDateTime('yyyy-MM-dd',DateTimePicker1.Date); 　　 ADOquery1.Open; 　　end; 　　procedure TForm1.Button2Click(Sender: TObject); 　　begin 　　 close; 　　end;

delphi编写的mssql查询分析器，模拟微软的sql2k的查询分析器，编译后再u盘中使用，以便在无微软的查询分析器的用户电脑中使用。

数据库相关

2,498

社区成员

88,445

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章