Acces Veritabanı Dosyasını Onarmak

[Firarist]

Arkadaşlar kullandığım access veritabanlarını onarmak için şöyle bir kod kullanıyorum.
Veritabanına atanmış şifre ile burada yazılan uyuşuyorsa Accessteki "Veritabanı bakım ve onarımı" sihirbazının yaptığı işi gerçekleştiriy

Kod: Tümünü seç

Function CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean;
const
  sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;Jet OLEDB:Database Password=123456;';
var
  oJetEng   : JetEngine;
begin
  sOldMDB := sProvider + 'Data Source=' + sOldMDB;
  sNewMDB := sProvider + 'Data Source=' + sNewMDB;
    try
      oJetEng := CoJetEngine.Create;
      oJetEng.CompactDatabase(sOldMDB, sNewMDB);
      oJetEng := Nil;
      Result  := True;
    except
      oJetEng := Nil;
      Result  := False;
  end;
end;

Bu fonksiyondaki "Database Password=123456" satırı veritabanında kullandığım şifre olsun. Fakat ben bunu bütün access veritabanlarının onarımında kullanmak istiyorum. Bunun içinde Form'a bir edit koyup kullanıcı atadığı veritabanı şifresini kendisi girsin istiyorum. Çalıştım beceremedim.
Yardımcı olabilir misiniz ?
Başarılar.

[mussimsek]

Merhaba,

burda yapmanız gereken string birleştirme sadece. Kod şuna benzer olmalı.

Kod: Tümünü seç

Function CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean;  
var
  oJetEng   : JetEngine;
  sProvider : string;
begin
  sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;Jet OLEDB:Database Password=' + Edit1.Text +';';
  sOldMDB := sProvider + 'Data Source=' + sOldMDB;
  sNewMDB := sProvider + 'Data Source=' + sNewMDB;
  ...

Kolay gelsin.

[Firarist]

Teşekkürler sayın hocam. Deneyeceğim. Bu saatte bile hızınızdan hiçbirşey kaybaolmamış
Tebrikler. Çalışmalarınızda başarılar diliyorum.