jet.oledb.4.0って3.51に比べておそいの。
■ このスレッドは過去ログ倉庫に格納されています
0001おやぢ
NGNGとか変えて、プログラムに結合しなおしたが処理が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
0002デフォルトの名無しさん
NGNG0003デフォルトの名無しさん
NGNG｜ 今だ！
￣￣￣￣￣∨￣￣￣
ﾋｮｲ , ∧∧
（ ＿(,,ﾟДﾟ) ミ _＿＿
⊂＿＿_,.つつ て. ） ｸﾙﾘ
彡 ⊂ .ﾉ
(" ) ∧∧ ／￣￣￣￣￣￣￣
. ∨∨ 彡 (,,ﾟДﾟ) ＜ 2ゲットォォォ！
/ ,つ ＼＿＿＿＿＿＿＿
～､ ﾉつ ｽﾀｯ !
.(/
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
0004デフォルトの名無しさん
NGNG0005デフォルトの名無しさん
NGNG0006デフォルトの名無しさん
NGNGここのスレでしてください。
0007デフォルトの名無しさん
NGNG（ ・∀・） ＜ １０円あげるから >>1 は頑張ってね。
（ つ⑩ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
｜ ｜ |
（_＿）＿）
0008デフォルトの名無しさん
NGNG|￣￣（ ﾟДﾟ)￣￣| ＜ 2ゲット失敗したから寝る！
|＼⌒⌒⌒⌒⌒⌒＼ ＼
| ＼ ＼ ￣￣￣￣￣￣￣￣￣
＼ ｜⌒⌒⌒⌒⌒⌒｜
＼ |＿＿＿＿＿＿＿|
00095
NGNG,lllllll ＼
.llllllll 彡 ミ
.llllll| (o) (o)
.llllll! ω ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
ノﾘlll ∴∵３ < 顔を変更して、色んな人にさせて下さい
,r‐''''^¨^⌒πσｰ-ヽ了 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
,ﾉ｀, ＼
ﾉ／ ヽ
ι.｝ λ ）
ヽ(,. ﾉ! r'
( l .,／
ﾉ,,,,,,,,,,,,,,,,,,,,,,,,,,,,丿へ
ノ ,）
( ∵ ∧∵ ／,,丿
＼,,,,／人＼＿＿ノ /
（ ) （＿_） （ )
《 l （＿＿_） 《￣￣》
《＿＿（＿＿＿_） 《＿＿__》
00115
NGNG／//////////ヽ,,
ｆ ﾒー-----ー弋メヽ
ﾄ| ___ ____ ____ .|ミﾐ| ＿＿＿＿＿＿＿＿＿＿
ﾄ|_,,,,,,__ﾒ __,,,,,,_ |ミﾐ| ／
ｆ|.-=・=Ｈ-=・=~iｰ6}ﾘ ＜ 1のせいで
'ﾋ______ﾉﾊ､_____ﾉ !!| | うんこ出てくる
ｆ _, ,ム、､_ ./ ＼
ヽ ｨ-==ｰ-i, ,ノ ￣￣￣￣￣￣￣￣￣￣
＼,_＿＿_／,,,,,,
,r‐''''^¨^⌒ ＼
,ﾉ｀, ＼
ﾉ／ ヽ
ι.｝ λ ）
ヽ(,. ﾉ! r'
( l .,／
ノ ,）
( ∵ ∧∵ ／,,丿
＼,,,,／人＼＿＿ノ /
（ ) （＿_） （ )
《 l （＿＿_） 《￣￣》
《＿＿（＿＿＿_） 《＿＿__》
0012デフォルトの名無しさん
NGNG（ ・∀・） ＜ １円あげるから >>1 は⑩円返してね。
（ つ① ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
｜ ｜ |
（_＿）＿）
0014デフォルトの名無しさん
NGNGノ ,）
( ∵ ∧∵ ／,,丿
＼,,,,／人＼＿＿ノ /
（ ) （＿_） （ )
《 l （＿＿_） 《￣￣》
《＿＿（＿>>1＿_） 《＿＿__》
0015デフォルトの名無しさん
NGNG便秘の奴はこのスレに書け！
0016デフォルトの名無しさん
NGNG(ﾟдﾟ)ﾝｺｰ
0017デフォルトの名無しさん
NGNGMS-Access に関する質問はこのスレにお願します。
Access使い集合！
http://pc.2ch.net/test/read.cgi/tech/1005078204/
Visual Basic に関する質問はこのスレ。
★★VB初心者質問スレ Part9(´･ω･`)★★
http://pc.2ch.net/test/read.cgi/tech/1020830472/
0018デフォルトの名無しさん
NGNG0019デフォルトの名無しさん
NGNG■ このスレッドは過去ログ倉庫に格納されています