Query & ADOQuery之效能比較 |
|
尚未結案
|
|
Paicaso
中階會員   發表：140 回覆：124 積分：52 註冊：2002-09-04 發送簡訊給我 |
請問DataBase & Query需先有BDE or ODBC,
ADOConnection & ADOQuery是否通常為指定資料庫位置
其效能是否有何者較佳?
因我的資料庫位置可依使用者需要而改變與有一資料庫為FoxPro,所以用ODBC
來做,不過感覺效能不彰,是否與ODBC有關
印象中據Microsoft的說法,ADO比ODBC好,但因上數之需求(資料庫位置可依使用者需要而改變與有一資料庫為FoxPro),是否可以改用ADOConnection且其資料庫來源位置仍是ODBC之資料
|
|
領航天使
站長  發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
引言: 請問DataBase & Query需先有BDE or ODBC, ADOConnection & ADOQuery是否通常為指定資料庫位置 其效能是否有何者較佳? 因我的資料庫位置可依使用者需要而改變與有一資料庫為FoxPro,所以用ODBC 來做,不過感覺效能不彰,是否與ODBC有關 印象中據Microsoft的說法,ADO比ODBC好,但因上數之需求(資料庫位置可依使用者需要而改變與有一資料庫為FoxPro),是否可以改用ADOConnection且其資料庫來源位置仍是ODBC之資料1.無論是BDE或是ADO都可以動態指定您Foxpro DBF檔的所在位置啊! 2..DBF或.DB的資料檔案,最好用Native方式效率會比較好, 而且盡量不要用TQuery,盡量用TTable Index的方式,速度差粉多喔! ～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
|
Paicaso
中階會員 發表：140 回覆：124 積分：52 註冊：2002-09-04 發送簡訊給我 |
我的語法大致如下
A-1(FoxPro)--匯入-->A-2(Access)
B-1(FoxPro)--匯入-->B-2(Access)
PS 分別使用Database & Query by ODBC
資料量如果一大,在同一資料下有時沒問題,有時執行到某一程度(通常超過50%到80%)就停住了,原本想是否這些資料有問題,但發生問題之資料筆卻又不一定,也試過將疑似有問題之記錄刪除亦無效,是否是因為使用Query支緣故?
還是我的語法造成的結果?
procedure TFMTransPOS.FormCreate(Sender: TObject);
BEGIN
TabSheet1.Show;
//********資料A-1(FoxPro)********
TransData.LYTsstockQUERY.SQL.Clear;
TransData.LYTsstockQUERY.SQL.Add('Select * From sstock ');
TransData.LYTsstockQUERY.SQL.Add('Order by sk_no');
TransData.LYTsstockQUERY.CLOSE;
TransData.LYTsstockQUERY.OPEN; TransData.tcomQUERY.SQL.Clear;
TransData.tcomQUERY.SQL.Add('SELECT Count(*) FROM sstock ');
TransData.tcomQUERY.CLOSE;
TransData.tcomQUERY.OPEN;
Panel_P1.Caption := '資料筆數：共 ' IntToStr(TransData.tcomQuery.Fields[0].AsInteger) ' 筆'; //********資料A-2(Access)********
DBGrid2.DataSource := TransData.BprdDataSource; TransData.BprdQUERY.SQL.Clear;
TransData.BprdQUERY.SQL.Add('SELECT * FROM BPRD ');
TransData.BprdQUERY.SQL.Add('Order by sk_no ');
TransData.BprdQUERY.CLOSE;
TransData.BprdQUERY.OPEN; TransData.QUERYS.SQL.Clear;
TransData.QUERYS.SQL.Add('SELECT Count(*) FROM Bprd ');
TransData.QUERYS.CLOSE;
TransData.QUERYS.OPEN;
Panel_P2.Caption := '資料筆數：共 ' IntToStr(TransData.QueryS.Fields[0].AsInteger) ' 筆'; //********資料B-1(FoxPro)********
DBGrid3.DataSource := TransData.LYTpcustDataSource; //FoxPro TransData.LYTpcustQUERY.SQL.Clear;
TransData.LYTpcustQUERY.SQL.Add('Select * From pcust ');
TransData.LYTpcustQUERY.SQL.Add('where ct_class=''1'' ');
TransData.LYTpcustQUERY.SQL.Add('Order by ct_no');
TransData.LYTpcustQUERY.CLOSE;
TransData.LYTpcustQUERY.OPEN; TransData.cenoQUERY.SQL.Clear;
TransData.cenoQUERY.SQL.Add('SELECT Count(*) FROM pcust ');
TransData.cenoQUERY.SQL.Add('where ct_class=''1'' ');
TransData.cenoQUERY.CLOSE;
TransData.cenoQUERY.OPEN;
Panel_C1.Caption := '資料筆數：共 ' IntToStr(TransData.cenoQuery.Fields[0].AsInteger) ' 筆'; //********資料B-2(前台Access)********
DBGrid4.DataSource := TransData.BcustDataSource; //後台Access TransData.BcustQUERY.SQL.Clear;
TransData.BcustQUERY.SQL.Add('SELECT * FROM Bcust ');
TransData.BcustQUERY.SQL.Add('Order by ct_no ');
TransData.BcustQUERY.CLOSE;
TransData.BcustQUERY.OPEN; TransData.QUERYS.SQL.Clear;
TransData.QUERYS.SQL.Add('SELECT Count(*) FROM Bcust ');
TransData.QUERYS.CLOSE;
TransData.QUERYS.OPEN;
Panel_C2.Caption := '資料筆數：共 ' IntToStr(TransData.QueryS.Fields[0].AsInteger) ' 筆';
End; procedure TFMTransPOS.TransAllDATClick(Sender: TObject);
var
L_SKENO,.........以下略過 i: Integer;
GFORM : TFORM; //(進度表)需在users有 FORMS, Gauges
GGAUGE : TGAUGE; //(進度表)需在users有 FORMS, Gauges
GLabel : TLabel;
begin
Try
TransData.LYTsstockQuery.First; //FoxPro
While not TransData.LYTsstockQuery.Eof do //FoxPro
Begin
//======FoxPro======
L_SKENO := Trim(TransData.LYTsstockQUERY.FieldByName('sk_no').AsString);
.....略..... //開啟第二連結檔
TransData.LYTsstkdtQUERY.SQL.Clear;
TransData.LYTsstkdtQUERY.SQL.Add('SELECT * FROM SSTKDT ');
TransData.LYTsstkdtQUERY.SQL.Add('WHERE sk_no = ''' L_SKENO ''' ');
TransData.LYTsstkdtQUERY.SQL.Add('order by sk_no ');
TransData.LYTsstkdtQUERY.CLOSE;
TransData.LYTsstkdtQUERY.OPEN;
L_SKSUP := TransData.LYTsstkdtQUERY.FieldByName('s_supp').AsString;
.....略..... //開啟第三連結檔
.....略..... //開啟資料庫(Access)
TransData.BprdQUERY.SQL.Clear;
TransData.BprdQUERY.SQL.Add('SELECT * FROM BPRD ');
TransData.BprdQUERY.SQL.Add('WHERE sk_no = ''' L_SKENO ''' ');
TransData.BprdQUERY.SQL.Add('Order by sk_no ');
TransData.BprdQUERY.CLOSE;
TransData.BprdQUERY.OPEN; If TransData.BprdQuery.Eof = False then //----------------------------------------
Begin
Update_to_Bprd_ALL(L_SKENO, .....略..... );
End Else Begin //if BprdQuery.Eof
Insert_to_Bprd(L_SKENO, .....略..... );
END; //else (BprdQuery.Eof)------------------------------------------------------- TransData.LYTsstockQuery.Next; //While not ** do //FoxPro
END; //While
TransData.BprdQUERY.SQL.Clear;
TransData.BprdQUERY.SQL.Add('SELECT * FROM BPRD ');
TransData.BprdQUERY.SQL.Add('Order by sk_no ');
TransData.BprdQuery.Close;
TransData.BprdQuery.Open; Finally
TransData.QUERYS.SQL.Clear;
TransData.QUERYS.SQL.Add('SELECT Count(*) FROM Bprd ');
TransData.QUERYS.CLOSE;
TransData.QUERYS.OPEN; end; //end try
end; //--------------------------------------------------------------------------
procedure TFMTransPOS.TransAllCustClick(Sender: TObject);
var
L_ctno,L_ctname, .....略.....
Begin
Try
TransData.LYTpcustQuery.First; //FoxPro
While not TransData.LYTpcustQuery.Eof do //FoxPro
Begin
//======FoxPro======
L_ctno := Trim(TransData.LYTpcustQUERY.FieldByName('ct_no').AsString);
.....略..... //開啟第二連結檔
.....略..... //開啟資料庫(Access)
TransData.BcustQUERY.SQL.Clear;
TransData.BcustQUERY.SQL.Add('SELECT * FROM Bcust ');
TransData.BcustQUERY.SQL.Add('WHERE ct_no = ''' L_ctno ''' ');
TransData.BcustQUERY.SQL.Add('Order by ct_no ');
TransData.BcustQUERY.CLOSE;
TransData.BcustQUERY.OPEN; If TransData.BcustQuery.Eof = False then
Begin
Update_to_BMEM(L_ctno, .....略.....);
End else begin //If
Insert_to_BMEM(L_ctno, .....略.....);
END; //else TransData.LYTpcustQuery.Next; //While not ** do //FoxPro
END; //While TransData.BcustQUERY.SQL.Clear;
TransData.BcustQUERY.SQL.Add('SELECT * FROM Bcust ');
TransData.BcustQUERY.SQL.Add('Order by ct_no ');
TransData.BcustQuery.Close;
TransData.BcustQuery.Open; Finally
TransData.QUERYS.SQL.Clear;
TransData.QUERYS.SQL.Add('SELECT Count(*) FROM Bcust ');
TransData.QUERYS.CLOSE;
TransData.QUERYS.OPEN;
end; //end try
end; //-----------------------------------------------------------------------------------
/Inset 新增資料之副程式
Procedure TFMTransPOS.Insert_to_BMEM(L_ctno, .....略.....);
var SQL : String;
Begin
TransData.QueryP.SQL.Clear;
SQL := 'INSERT INTO BCUST ';
SQL := SQL '( ct_no , .....略..... )';
SQL := SQL ' Values ';
SQL := SQL '( :ct_no ,:ct_name , .....略..... )';
TransData.QueryP.SQL.Text := SQL; TransData.QueryP.ParamByName('ct_no').AsString := L_ctno;
.....略..... try TransData.QueryP.ExecSQL; except ShowMessage('轉入失敗!'); end; END; //Update 更新資料之副程式
Procedure TFMTransPOS.Update_to_BMEM(L_ctno, .....略.....);
var SQL : String;
Begin
TransData.QueryP.SQL.Clear;
SQL := 'Update BCUST SET ';
SQL := SQL ' ct_name =:ct_name , .....略..... ';
SQL := SQL 'Where ct_no = ''' L_ctno ''' ';
TransData.QueryP.SQL.Text := SQL; TransData.QueryP.ParamByName('ct_name').AsString := L_ctname;
.....略..... try TransData.QueryP.ExecSQL; except ShowMessage('轉入失敗!'); end;
END;
|
|
領航天使
站長 發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
|
|
Paicaso
中階會員 發表：140 回覆：124 積分：52 註冊：2002-09-04 發送簡訊給我 |
|
|
領航天使
站長 發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
|
|
Paicaso
中階會員 發表：140 回覆：124 積分：52 註冊：2002-09-04 發送簡訊給我 |
|
|
領航天使
站長 發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
發表時間：2003-05-07 01:57:05
IP:61.59.xxx.xxx 未訂閱
系統時間：2024-07-03 17:20:40
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |