我知道你的问题,给分
第一无效寻址,实例本身不存在,
你在上个帖子中我已经给指出你的问题了,你使用的TADOQuery适是一个类而不是一个实例,你可以这么写:
var
q:TADOQuery;
begin
q:=TADOQuery.Create(nil);
q.SQL.add('...')
q.ExecuteSQL;
Q.Free;
end;
q是类的实例,而你使用TADOQuery是类,有点类似于变量和类型的关系,但是不出全是哦
锈有铁生而伤铁,最能帮助你的人和最能伤害你的人都是你自己
从水源逃跑
皈依耶稣基督中。。
耶稣基督教导我们说:要有崇高的牺牲精神
要有伟大的宽恕精神
要有平等的博爱精神
神爱世人
第一无效寻址,实例本身不存在,
你在上个帖子中我已经给指出你的问题了,你使用的TADOQuery适是一个类而不是一个实例,你可以这么写:
var
q:TADOQuery;
begin
q:=TADOQuery.Create(nil);
q.SQL.add('...')
q.ExecuteSQL;
Q.Free;
end;
q是类的实例,而你使用TADOQuery是类,有点类似于变量和类型的关系,但是不出全是哦
锈有铁生而伤铁,最能帮助你的人和最能伤害你的人都是你自己
从水源逃跑
皈依耶稣基督中。。
耶稣基督教导我们说:要有崇高的牺牲精神
要有伟大的宽恕精神
要有平等的博爱精神
神爱世人
解决方案 »
- 用没有人做过用Visa控制Agilent设备的程序。
- 请问如何获得当前应用程序的标题名啊?
- 问delphi的两个问题,传参问题和内存问题
- [求助]新手无助,请各位高手帮帮忙啊.................
- 初学者问题!
- 请问我怎样动态的远程获得ClientDataSet的DataSetProvider
- 如何取得某程序窗体上的某控件的句柄
- Intelement: How to make a window always stay above its owner window ?
- 请问大家一个关于视频压缩编码的问题
- 十分着急问一个在delphi 2007下,indy 10 的idhttp 的一个post的问题!
- 我在delphi中怎么实现在Word里的操作啊!!(如果你懂你就进来!)
- 如何安装VCL
而且我告诉你,这个子程序在其它地方能用,我直接拷贝过来就改了add中的SQL语句内容,就连ADD都不运行了
还有程序直接运行.exe就可以,没有问题!我再加100分送var
RS_Contract: TADOQuery;
fContractNumSum,fContractAmountSum,fContractDisAmountSum:Currency;
begin
fContractNumSum:=0.00;
fContractAmountSum:=0.00;
fContractDisAmountSum:=0.00; if (Length(Param_ContractID)>0) then
begin
RS_Contract:= TADOQuery.Create(fContract_Add);
RS_Contract.Connection:=DataModuleConnection.DataConnection;
RS_Contract.Close;
RS_Contract.SQL.Clear;
RS_Contract.SQL.Add('select sum(Num) as NumSum,Sum(Num*Price) as Amount');
RS_Contract.SQL.Add(' from sale_OrderMain LEFT JOIN sale_OrderList ON sale_OrderMain.OrderID = sale_OrderList.OrderID');
RS_Contract.SQL.Add(' where ContractID="'+Param_ContractID+'"');
RS_Contract.Open;