MS SQL    OK
MySql Error xmltempqly Field Mxrec not found.

[code delphi]
With OpdDm.xmltempqly do
Begin
close;
SQL.Clear;
SQL.Add('select Count(*) AS mxrec from txmltemp');
If Prepared = False Then Prepare;
open;
I2 := FieldByName('mxrec').AsInteger;
End;
[/code]

select Count(*) AS mxrec from txmltemp
AS去掉看看

------
What do we live for if not to make life less difficult for each other?

===================引 用 christie 文 章===================
select Count(*) AS mxrec from txmltemp
AS去掉看看
//================= MySql 去掉 AS 還是一樣 不解 ============================
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
I1, I2 : Integer;
begin
With Q1 Do
Begin
close;
SQL.Clear;
SQL.Add('select COUNT(*) AS I2 from xmldata');
If Prepared = False Then Prepare;
Open;
End;
I1 := Q1.FieldByName('I2').AsInteger;
Showmessage(IntToStr(I1));
end;
I1 := Q1.FieldByName('xmldata.I2').AsInteger; 還是一樣...
SQL Command 有DataBase 的差異嗎...
//============= MS SQL 可以 傳回值 3306 ========================================
procedure TForm1.BitBtn2Click(Sender: TObject);
Var
I1, I2 : Integer;
begin
With Q2 Do
Begin
close;
SQL.Clear;
SQL.Add('select COUNT(*) AS I2 from xmldata');
If Prepared = False Then Prepare;
Open;
End;
I1 := Q2.FieldbyName('I2').AsInteger;
Showmessage(IntToStr(I1));
end;
//==========================================================================================
我在 Table order 欄位寫入 'zzzzzzzzzz' 檔尾寫入 '資料結束' 作判別, 還好Table 內的資料不會超過1000筆

抱歉抱歉,我在MySQL 5.0
Q1.Close;
Q1.SQL.Text:='select COUNT(*) AS I2 from xmldata';
Q1.Open;
Showmessage(Q1.FieldByName('I2').AsString);
測試OK了!
你自己試試看.

===================引 用 christie 文 章===================
select Count(*) AS mxrec from txmltemp
AS去掉看看

------
What do we live for if not to make life less difficult for each other?

===================引 用 christie 文 章===================
抱歉抱歉,我在MySQL 5.0
Q1.Close;
Q1.SQL.Text:='select COUNT(*) AS I2 from xmldata';
Q1.Open;
Showmessage(Q1.FieldByName('I2').AsString);
測試OK了!
你自己試試看.

===================引 用 christie 文 章===================
select Count(*) AS mxrec from txmltemp
AS去掉看看
請問你的 MySql 是用 ODBC 連嗎? MySql 是安裝再 MS Windows Or Linux 我是用ODBC連上Linux 有差嗎???

OS:Windows2000
MySQL 5.0
以BDE連MySQL

------
What do we live for if not to make life less difficult for each other?

改用  
select mxrec=Count(*) from txmltemp
試試看

===================引 用 LPH 文 章===================
MS SQL OK
MySql Error xmltempqly Field Mxrec not found.

[code delphi]
With OpdDm.xmltempqly do
Begin
close;
SQL.Clear;
SQL.Add('select Count(*) AS mxrec from txmltemp');
If Prepared = False Then Prepare;
open;
I2 := FieldByName('mxrec').AsInteger;
End;
[/code]

------
OS : Win 7 pro
Program : Delphi 7
DataBase : Ms Sql 2008