06/07/2011, 10:34
Arkadaşlar şöyle bir kodum var fakat bu Access onarma yapmıyor. Sadece sıkıştırıyor. Sizce neyden kaynaklanıyor bi yardımcı olabilirmisinz. Çok ihtiyacım var.
Kod:
Sub onarma()
Dim jro As New JRO.JetEngine
jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=***lım;Data Source='" + Form1.TextBox1.Text + "'", _
"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB Database Password=***lım;Data Source='" + Form1.TextBox2.Text + "';Jet OLEDB:Engine Type=")
MsgBox("Sıkıştırma Başarıyla Tamamlandı!", MsgBoxStyle.Information, "Sıkıştırma Başarıyla Tamamlandı")
End Sub