VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2005/02/15(Tue) 11:08
投稿者やまめ
Eメール
URL
タイトルアクセスのファイルサイズ


アクセスのファイルにレコードの追加や削除をしています。
削除をしたときに、アクセス(アプリ)でみると該当のレコードが削除されているのが、
確認できるのですが、そのファイルのサイズが変わりません。
(テスト用に1万件ぐらのレコードを追加/削除すると、
10Mぐらいずつ、ファイルサイズが大きくなってしまいます。)

削除の仕方に何か問題があるのでしょうか?

それとも、アクセスそのもののテーブルのデータの管理の仕方の問題なのでしょうか?

どなたか詳しい方、ご教授願えれば助かります。
よろしくお願い致します。

なお、削除関係のコーディングは、下記のような感じです。


'データベース関係
Global g_db               As Database
Global g_rs               As Recordset

Set g_db = OpenDatabase(App.Path & "\" & "data.mdb")

***

Function 削除処理(ByVal 削除_flg As Integer, 受注NO As String, 納品先 As String, 型式口径 A
s
String)
    Dim SQL As String

     If 受注NO <> "" And 納品先 <> "" And 型式口径 <>
"" Then
         Select Case 削除_flg
             Case 0
                 SQL = ""
                 SQL = SQL & " DELETE"
                 SQL = SQL & " FROM 自動打刻"
                 SQL = SQL & " WHERE 自動打刻.受注NO = '" & 受注 NO &
"'"
                 SQL = SQL & " AND 自動打刻.納品先 = '" & 納品先 & &q
uot;'"
                 SQL = SQL & " AND 自動打刻.型式口径 = '" & 型式口径  &am
p;
                 g_db.Execute SQL

        :
        :


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -