投稿日 | : 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
:
: