Compact & Repair DataBase

[yavari]

سلام

چه جوری میتونم تو برنامم Compact & Repair DataBase رو ایجاد کنم ؟؟؟
ممنون میشم راهنمائیم کنید
:تشویق: :تشویق:

[S_VB.max]

http://www.vb-helper.com/HowTo/howto_dao_compact_database.zip

[yavari]

سلام S_VB.max جان

ممنونم از بابت کمکتون :تشویق:
میشه یه کمک دیگه ای هم بکنید
من با DAO کار نکردم و نمی دونم چه طور باید پسورد بانکمو بهش بگم :متفکر:
ممنون از توجه تون

[S_VB.max]

http://support.microsoft.com/?kbid=209953

[yavari]

سلام
من برا پارامتر Locate پسوردمو تعریف می کنم ، ولی بازم نمیتونه کاری بکنه
ممنون میشم راهنمائی کنید

[S_VB.max]

Option Explicit

Dim db_name, temp_name, txt As String
Dim db As DAO.Database
Dim num_values, i As Long

Private Sub cmdCompact_Click()

temp_name = db_name & ".temp"
DAO.DBEngine.CompactDatabase db_name, temp_name, False, False, "MS Access;PWD=123"
Kill db_name
Name temp_name As db_name

MsgBox "File size: " & FileLen(db_name)
End Sub

Private Sub cmdDeleteValues_Click()

Set db = DBEngine(0).OpenDatabase(txtDatabase.Text, False, False, "MS Access;PWD=123")
db.Execute "DELETE FROM ValueTable"
db.Close

MsgBox "File size: " & FileLen(txtDatabase.Text)
End Sub

Private Sub cmdMakeValues_Click()
num_values = CLng(txtNumValues.Text)
Set db = DBEngine(0).OpenDatabase(txtDatabase.Text, False, False, "MS Access;PWD=123")
txt = "'" & String$(254, "x") & "'"
For i = 1 To num_values
db.Execute "INSERT INTO ValueTable VALUES(" & i & ", " & txt & ")"
If i Mod 10 = 0 Then Me.Caption = i
Next i
db.Close

MsgBox "File size: " & FileLen(txtDatabase.Text)
End Sub

Private Sub Form_Load()
db_name = App.Path
If Right$(db_name, 1) <> "\" Then db_name = db_name & "\"
txtDatabase.Text = db_name & "db1.mdb"
db_name = txtDatabase.Text
End Sub

[yavari]

سلام
ممنون S_VB.max جان
دستتون درد نکنه :تشویق: :تشویق: :تشویق: