投稿日	： 2006/08/08(Tue) 13:31
投稿者	： 上村
Ｅメール	：
ＵＲＬ	：
タイトル	： Accessの最適化させるには？

こんにちわ。いつも拝見している上村と申します。
今回、VBを使ってAccessにデータ保存させるシステムを作成したところ、
ファイルサイズが莫大に増えてしまいました。
Accessのファイルを開いて、該当のテーブルを選択した状態でデータベースの最適化／修復と
いう機能を使用するとファイルサイズがかなり小さくなります。
そこで、VBのシステム上に最適化処理を盛り込もうと考えているのですが、どうすれば
最適化出来るのでしょうか？
下記にプログラムの一部を記載しますので、どなたか分かる人がいたら、よきアドバイスの程
お願いします。

Option Explicit
'
Private Sub Command1_Click()
    Dim DB          As DAO.Database
    Dim rs          As DAO.Recordset
    Dim xlFileName As String
    Dim xlSheetName As String
    Dim MyData      As String
    dim hs As New ADODB.Recordset
    dim ks As New ADODB.Connection

    xlFileName = "D:\vb_6\sample\1.xls"
    xlSheetName = "記録書" & "$"

    Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=YES;IMEX=1;")
    Set rs = DB.OpenRecordset(xlSheetName)
    ks.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\sample.mdb"
    hs.Open "結果", ks, adOpenKeyset, adLockBatchOptimistic
    
    Do Until rs.EOF
        With rs
             :
            hs.UpdateBatch
            .MoveNext
             :
        End With
    Loop
    rs.Close
    hs.Close
    DB.Close
    Set rs = Nothing
    Set DB = Nothing
    Set hs = Nothing
End sub

★ - Accessの最適化させるには？ - 上村 08/08-13:31No.7000
• Re: Accessの最適化させるには？ - LESIA 08/08-16:00 No.7002
  • 更に質問です。。。 - 上村 08/08-16:33 No.7003
    • Re: 更に質問です。。。 - LESIA 08/08-16:50 No.7004
      • 了解しましたが、DAOでは無理でしょうか？ - 上村 08/08-17:05 No.7005
        • Re: 了解しましたが、DAOでは無理でしょう.. - LESIA 08/08-17:23 No.7006
          • 色々とありがとうございました - 上村 08/08-17:54 No.7007