5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

jet.oledb.4.0って3.51に比べておそいの。

1 :おやぢ:02/05/18 13:41
mdbをAccess2000で変換し、connection string をjet.oledb.3.51から4.0にかえて、activex
とか変えて、プログラムに結合しなおしたが処理が3.51に比べて
10倍以上かかるようになってしまった。そんなに4.0って遅いの。
ちなみに自分はAcess95をAccess2000にアップして使ってます。
ソースは以下のようですがとくに問題無いとおもうんだけど。
だれか教えてください。

Private Sub subTransCostDwn()
Dim SP(12)
filenum = FreeFile
Open gListpath & "\rxalltrncost.csv" For Input As #filenum

SQL = "delete * from TransCost "

ADO_Connection.Execute SQL, , adCmdText

Do Until EOF(filenum) = True
Input #filenum, d0, d1, d2, _
, SP(1), SP(2), SP(3), SP(4), SP(5), SP(6), SP(7), SP(8), SP(9), SP(10), SP(11), SP(12)

SQL = "select * from TransCost where dealyear = " & Format(wAcntYear)
SQL = SQL & " and transcd = '" & d2 & "' and lensnm = '" & d4 & "'"

Set rs = New ADODB.Recordset
rs.Open SQL, ADO_Connection, adOpenStatic, adLockOptimistic

If rs.RecordCount = 0 Then
rs.AddNew
rs!dealyear = d1
rs!transCd = d2

End If

For i = 1 To 12
j = i + 3
If j > 12 Then
j = j - 12
End If
rs.Fields("shpqty" & Format(j)).Value = SP(i) + rs.Fields("shpqty" & Format(j)).Value

Next
rs.Update
rs.Close
Loop


Close #filenum


End Sub


2 :デフォルトの名無しさん:02/05/18 13:42
2げと。


3 :デフォルトの名無しさん:02/05/18 13:43

|    今だ!
  ̄ ̄ ̄ ̄ ̄∨ ̄ ̄ ̄
 ヒョイ ,  ∧∧
   ( _(,,゚Д゚)     ミ  ___
  ⊂___,.つつ      て.  ) クルリ
彡               ⊂  .ノ
               ("  )           ∧∧     / ̄ ̄ ̄ ̄ ̄ ̄ ̄
.               ∨∨ 彡       (,,゚Д゚)  <  2ゲットォォォ!
                           /  ,つ    \_______
                          〜、 ノつ  スタッ !
                           .(/
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄

4 :デフォルトの名無しさん:02/05/18 13:43
ずさー

5 :デフォルトの名無しさん:02/05/18 13:43
うんちがしたくなってきた

6 :デフォルトの名無しさん:02/05/18 13:44
>>5
ここのスレでしてください。

7 :デフォルトの名無しさん:02/05/18 13:44
  ∧_∧   / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
  ( ・∀・) < 10円あげるから >>1 は頑張ってね。
  (    つI \_________________
  | | |
  (__)_)
 

8 :デフォルトの名無しさん:02/05/18 13:45
    ∧ ∧         / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| ̄ ̄( ゚Д゚) ̄ ̄|   <  2ゲット失敗したから寝る!
|\⌒⌒⌒⌒⌒⌒\   \
|  \           \    ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
\  |⌒⌒⌒⌒⌒⌒|
  \ |_______|

9 :5:02/05/18 13:45
           ∬⌒⌒⌒\
          ,lllllll      \
          .llllllll    彡 ミ 
          .llllll|    (o) (o)
         .llllll!       ω   / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
        ノリlll    ∴∵3  <  顔を変更して、色んな人にさせて下さい
     ,r‐''''^¨^⌒πσー-ヽ了     \_________________
    ,ノ`,            \
   ノ/             ヽ
  ι.}           λ    )
   ヽ(,.          ノ!   r'
    (           l  .,/
     ノ,,,,,,,,,,,,,,,,,,,,,,,,,,,,丿へ
    ノ              ,)
   (  ∵ ∧∵    /,,丿
   \,,,,/人\__ノ   /
  (  ) (__)    (   )
  《  l (___)   《 ̄ ̄》
 《__(____)  《____》

10 :2:02/05/18 13:46
>>8
おいら、デフォルトの名無しの3倍の速度だからな。

11 :5:02/05/18 13:47
       _____   
      ///////////ヽ,,
     f メー-----ー弋メヽ
     ト| ___ ____ ____ .|ミミ|     __________
     ト|_,,,,,,__メ __,,,,,,_ |ミミ|   /
     f|.-=・=H-=・=~iー6}リ <  1のせいで
      'ヒ______ノハ、_____ノ !!|   |  うんこ出てくる
      f  _, ,ム、、_   ./    \
      ヽ ィ-==ー-i, ,ノ        ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
       \,____/,,,,,,
      ,r‐''''^¨^⌒    \
    ,ノ`,            \
   ノ/             ヽ
  ι.}           λ    )
   ヽ(,.          ノ!   r'
    (           l  .,/
    ノ              ,)
   (  ∵ ∧∵    /,,丿
   \,,,,/人\__ノ   /
  (  ) (__)    (   )
  《  l (___)   《 ̄ ̄》
 《__(____)  《____》

12 :デフォルトの名無しさん:02/05/18 13:49
  ∧_∧   / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
  ( ・∀・) < 1円あげるから >>1 はI円返してね。
  (    つ@ \_________________
  | | |
  (__)_)

13 :7:02/05/18 13:50
  ∧_∧   / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
  ( ・∀・) <>>1 10円から1円引くといくらになる?
  (    つI \_________________
  | | |
  (__)_)

14 :デフォルトの名無しさん:02/05/18 13:52
    (           l  .,/
    ノ              ,)
   (  ∵ ∧∵    /,,丿
   \,,,,/人\__ノ   /
  (  ) (__)    (   )
  《  l (___)   《 ̄ ̄》
 《__(_>>1__)  《____》

15 :デフォルトの名無しさん :02/05/18 14:09
>>11
便秘の奴はこのスレに書け!

16 :デフォルトの名無しさん:02/05/18 14:37
http://www.ss.iij4u.or.jp/~club/main.html
(゚д゚)ンコー

17 :デフォルトの名無しさん:02/05/18 16:15
単発質問スレを立てるのは止めてください。

MS-Access に関する質問はこのスレにお願します。
Access使い集合!
http://pc.2ch.net/test/read.cgi/tech/1005078204/

Visual Basic に関する質問はこのスレ。
★★VB初心者質問スレ Part9(´・ω・`)★★
http://pc.2ch.net/test/read.cgi/tech/1020830472/

18 :デフォルトの名無しさん:02/07/05 21:22


19 :デフォルトの名無しさん:02/07/07 01:02
練習

8 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)