Question

Delphi 查询 Access 错误:Field 平均 not found

adoquery1.SQL.Clear;
adoquery1.Close;
adoquery1.sql.add('select avg(English) as 平均 from Subject');
adoquery1.ExecSQL;
edit1.Text := adoquery1.Fieldbyname('平均').AsString
adoquery1.sql.add('select MAX(English) from Subject');
求最大就行,用AS就不行,是不是access数据库不支持啊!?名字我中英文改过N遍了!

Answer 1

1,project->Add->Other->加入一个Global页面
2,在Global页面中放sqlConnection sqlCommand并设好他们的连接
3,在接口处注销strict private
接口的代码如下
---------------------------
type
TGlobal = class(System.Web.HttpApplication)
{$REGION 'Designer Managed Code'}
// strict private//这行必需注销,其它的行不理它
sqlCNN: System.Data.SqlClient.SqlConnection;
SqlCMD: System.Data.SqlClient.SqlCommand;
procedure InitializeComponent;
{$ENDREGION}
strict protected
procedure Application_Start(sender: System.Object; e: EventArgs);
procedure Session_Start(sender: System.Object; e: EventArgs);
procedure Application_BeginRequest(sender: System.Object; e:

EventArgs);
procedure Application_EndRequest(sender: System.Object; e:

EventArgs);
procedure Application_AuthenticateRequest(sender: System.Object; e:

EventArgs);
procedure Application_Error(sender: System.Object; e: EventArgs);
procedure Session_End(sender: System.Object; e: EventArgs);
procedure Application_End(sender: System.Object; e: EventArgs);
private
{ Private Declarations }
public
constructor Create;
end;

var DM:TGlobal;//在这里要申明一个类变量,以后就会这个变量来访问这个类

implementation
------------------------------------
4,申本类变量,如implementation上面那一行
5,其它页面引用这个单元,引用单元要引用System.Data.SqlClient
要不然,就叫不出DM模块中数据组件的方法了
-------------------------------------------
DoubleCat
posted @ 2008-12-16 13:53 DoubleCat 阅读(4) | 评论 (0) | 编辑

如何手工创建连接关Bind到控件显示?
uses System.Data.OleDb

这是用sqlDataAdapter方法

Answer 2

有几个问题：

adoquery1.Close; //先关闭在清除
adoquery1.SQL.Clear;
adoquery1.sql.add('select avg(English) as 平均 from Subject');
adoquery1.Open;//查询用Open, 插入，新增，更新等等用ExecSQL

Answer 3

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.sql.add('select avg(English) as 平均 from Subject');
adoquery1.open;
edit1.Text := adoquery1.Fieldbyname('平均').AsString;
//或edit1.Text := adoquery1.Fields[0].AsString;

Answer 4

我建议你把 平均 改成 pingjun

Answer 5

数据库加载失败了。