Interbasedeki Karsiligi

[hark]

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]

[mussimsek]

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:

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;

Kolay gelsin.

[mussimsek]

Merhaba,

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

Kolay gelsin.

[hark]

merhaba,
1-bende IBbackupservice componenti yok
2-demos un icinde bahsettiginiz ornekleri bulamadim
bu arada ben delphi 5 kullaniyorum
bide "DatabaseName := DM.IBDatabase1.DatabaseName;
" satirindaki DM neyi temsil ediyor anlayamadim
alakaniz icin tesekur ederim

[mussimsek]

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.