Anasayfa > Kodlar > VB6 ile Access veritabanını onarmak

VB6 ile Access veritabanını onarmak


Public Sub CompactDB(DBName As String)
Dim jr As JRO.JetEngine
Dim strOld As String, strNew As String
Dim x As Integer

Set jr = New JRO.JetEngine

strOld = DBName
x = InStrRev(strOld, "\")
strNew = Left(strOld, x)
strNew = strNew & "chngMe.mdb"

'  Access 97 için  Engine Type = 4
'  Access 2000 için Engine Type = 5
jr.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=q; Data Source=" & strOld, _
"Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=q;Data Source=" & strNew & ";Jet OLEDB:Engine Type=5"

Kill strOld
DoEvents
Name strNew As strOld

Set jr = Nothing

End Sub

Erçin ÖZTUNCEL
eoztuncel@hotmail.com

 

Reklamlar
  1. 05/07/2011, 13:52

    Teşekkürler açıklamalar için

    Beğen

  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: