merhaba
projeme bir yedek alma modulu koymak istiyorum istenildigi anda databasenin bir yedekini alacak
bu konuda sybase icin hazirlanmis bir SP kodu var fakat haliyle burdaki fonksiyonlar interbasede calismiyor
bu fonksiyonlarin muadili olarak ne yapmaliyim
fonksiyonlar
'execute immediate' ve 'cast'
yalniz cast in bile interbasede calismamasi benim icin hayal kirikligi ldu belirtmeden edemiycem [/i]
Interbasedeki Karsiligi
Merhaba,
Delphi\Demos klasöründeki IBAdmin'in demosuna bakarsan Backup-Restore vs. hepsinin örneği var. İşte benim yedekleme için kullandığım kod:
Kolay gelsin.
Delphi\Demos klasöründeki IBAdmin'in demosuna bakarsan Backup-Restore vs. hepsinin örneği var. İşte benim yedekleme için kullandığım kod:
Kod: Tümünü seç
procedure TFrm_Yedekleme.Btn_YedekleClick(Sender: TObject);
var
gun, ay, yil : Word;
gun_ay_yil : string;
begin
DecodeDate(Date, yil, ay, gun);
gun_ay_yil := IntToStr(gun) + '_' + IntToStr(ay) + '_' + IntToStr(yil);
Memo1.Lines.Clear;
// fmSqlMonitor.btClearClick(nil);
with IBBackupService1 do begin
Active := True;
Screen.Cursor := crHourGlass;
try
// CloseAllTables;
DatabaseName := DM.IBDatabase1.DatabaseName;
BackupFile.Clear;
BackupFile.Add(ExtractFilePath(Application.ExeName) + '\Yedek\petrol_' + gun_ay_yil +'.gbk');
ServiceStart;
While not Eof do
Memo1.Lines.Add(GetNextLine);
MessageDlg('Yedekleme başarıyla tamamlandı!', mtInformation, [mbOK], 0);
finally
Active := False;
// OpenAllTables;
Screen.Cursor := crDefault;
end;
end;
end;
Merhaba,
bazı ayarları TIBBackupService üzerinde yapmıştım. Onun ayarlarını da gönderiyorum.
Kolay gelsin.
bazı ayarları TIBBackupService üzerinde yapmıştım. Onun ayarlarını da gönderiyorum.
Kod: Tümünü seç
object IBBackupService1: TIBBackupService
ServerName = 'localhost'
Params.Strings = (
'user_name=SYSDBA'
'password=masterkey')
LoginPrompt = False
TraceFlags = []
Verbose = True
BlockingFactor = 0
DatabaseName = 'D:\xxxxx\aaaaaa.gdb'
Options = [IgnoreLimbo, NonTransportable]
Left = 104
Top = 104
end
Merhaba,
1. Bunlar Interbase Admin tabında bulunuyor. Delphi 6 ve Delphi 7'de var ama Delphi 5'te olmayabilir. Ben hiç Delphi 5 kullanmadım bilemiyorum.
2. Delphi 5 içinde bu bileşenler yoksa demosunun olmaması da normal.
3. DM - Data modülümün ismi. Bileşen datamodülün içinde olduğu için öyle yazmışım. Önemli değil o kadar.
Aşağıdaki adresten IBX paketlerinin güncellenmiş sürümleri var. Belki ordaki paketler içinde bu bileşenler olabilir. Bir bakmanı öneririm.
http://codecentral.borland.com/codecent ... thorid=102
Kolay gelsin.
1. Bunlar Interbase Admin tabında bulunuyor. Delphi 6 ve Delphi 7'de var ama Delphi 5'te olmayabilir. Ben hiç Delphi 5 kullanmadım bilemiyorum.
2. Delphi 5 içinde bu bileşenler yoksa demosunun olmaması da normal.
3. DM - Data modülümün ismi. Bileşen datamodülün içinde olduğu için öyle yazmışım. Önemli değil o kadar.
Aşağıdaki adresten IBX paketlerinin güncellenmiş sürümleri var. Belki ordaki paketler içinde bu bileşenler olabilir. Bir bakmanı öneririm.
http://codecentral.borland.com/codecent ... thorid=102
Kolay gelsin.