喫茶XRAY [Mr.XRAY掲示板]

Syakeさんこんにちは

計測条件をもう少し詳しく教えていただけませんか。

そもそもTDBXReader自体を知らないじいさんですが
時間短縮したいと考えています。

私も色々と試す必要があって少し前に時間を計ってみました。

計測したＤＢは ORACLE と SQLite です。

10000件リード
SQLite １回目  4Sec 2回目 10sec ←ローカルマシン
SQLite １回目 17Sec 2回目 30sec ←ローカルマシンADO
Oracle １回目 17Sec 2回目110sec ←サーバーADO接続

時間は参考程度で見てください。

計測に利用したＳＱＬ文
----------------------
SELECT MHIN_HINCD,MHIN_JITSUCD,MHIN_HINMEI
,MHIN_CLASSSHIWA,MSWA_MEISYOU
,MHIN_CLASSHIN,MHBU_MEISYOU
,MHIN_CLASSTAN,MHIN_TANICD,MHIN_IRISU
,MHIN_TANKA,MHIN_CTANKA,MHIN_CTANKMI,MHIN_CTANFEN,MHIN_CTANKYOU
,MHIN_CTANKRI,MHIN_TANKAGEN,MHIN_TANKAURI,MHIN_TANKAHYOU,MHIN_ZAIKANYN
,MHIN_GENZAIKANYN,MHIN_HACHUTEN,MHIN_HACHUSU,MHIN_HACHU,MHIN_HHINBAN
,MHIN_STANCD,MHIN_RRANK,MHIN_MRANK,MHIN_BIKOU,MHIN_PASS
,MHIN_HAISHIYMD,MHIN_HAISHIYMDK,MHIN_SOZAI,MHIN_IRO,MHIN_SYOUSAI
,MSEI_MNO,MSEI_SERIES,MSEI_KIHONKEI,MSEI_GEN,MSEI_TOUROKU
,MSEI_SHOUNIN,MSEI_HAIFU,MSEI_OVERSEA,MSEI_INTER,MSEI_OEM
,MSEI_MIC,MSEI_NANI1,MSEI_NANI2,MSEI_OMOTEA
,MSEI_DOUSUN,MSEI_SAO,MSEI_BIKOU
,MBD_WU,MBD_WL,MBD_L,MBD_HU,MBD_HL,MBD_HA
,MBD_HS,MBD_BIKOU
,MSB_TYPE,MSB_GEN,MSB_HABA0,MSB_HABA12,MSB_NAGASA
,MSB_ATSUMI,MSB_HABA,MSB_FUKASA,MSB_PITCH,MSB_FSU
,MSB_BIKOU
FROM MHIN
LEFT JOIN MSEI ON MHIN_HINCD = MSEI_HINCD
LEFT JOIN MBD  ON MHIN_HINCD = MBD_HINCD
LEFT JOIN MSB  ON MHIN_HINCD = MSB_HINCD
LEFT JOIN MSWA ON MHIN_CLASSSHIWA = MSWA_CLASSSHIWA
LEFT JOIN MHBU ON MHIN_CLASSHIN = MHBU_CLASSHIN
order by  MHIN_HINCD

実際の取り出しコーディング(SQLite)
----------------------------------
  WrkSQLIteTable.MoveFirst;
  while WrkSQLIteTable.EOF = False do          // UTF8Encode(
  begin
    WrkListItem  := KELV1.LVO.Items.Add;             // ←行追加
    Inc( WrkIdx1 );
    WrkListItem.Caption := IntToStr( WrkIdx1 );      // 行タイトル

    WrkStr := WrkSQLIteTable.FieldAsString[1];// .FieldByName[ 'MHIN_HINCD'];

    WrkStr := WrkSQLIteTable.FieldByName[ 'MHIN_HINCD'];
    WrkListItem.SubItems.Add( WrkStr );         // 1列目に値設定
    WrkStr := UTF8Decode( WrkSQLIteTable.FieldByName[ 'MHBU_MEISYOU'] );
    WrkListItem.SubItems.Add( WrkStr );         // 2列目に値設定
    WrkStr := UTF8Decode( WrkSQLIteTable.FieldByName[ 'MSWA_MEISYOU'] );
    WrkListItem.SubItems.Add( WrkStr );         // 3列目に値設定
    WrkStr := UTF8Decode( WrkSQLIteTable.FieldByName[ 'MHIN_HINMEI'] );
    WrkListItem.SubItems.Add( WrkStr );         // 4列目に値設定

    WrkSQLIteTable.Next;
  end;

ちなみに取り出したデータを ListView にセットしない↓の場合は
SQLite ローカルの場合 0.7秒／1万件でした

  while WrkSQLIteTable.EOF = False do          // UTF8Encode(
  begin
    WrkStr := WrkSQLIteTable.FieldByName[ 'MHIN_HINCD'];
    Inc( WrkIdx1 );
    WrkSQLIteTable.Next;
  end;