Discussion :

[kase74]

desole de recopier ma question, mais je me rends compte qu'elle ne sera pas lue si je n'ouvre pas un nouveau sujet.

Je n'arrive pas a sauvegarder depuis un poste client une BDD qui est sur un serveur distant.
J'utilise TIBBackupService, je renseigne bien les proprietes Mon serveur s'appelle MAITRE, et ma BDD a pour alias BASE)
TIBBackupService.ServerName := MAITRE et
TIBBackupService.DataBaseName := 'BASE' et j'obtient un message d'erreur Code:
EIBInterbaseError : 'I/O error for file "BASE". Error while trying to open file, fichier introuvable.

Alors que ce sont les memes renseignements qui me permettent la connexion et que ca marche !

J'ai aussi essaye de renseigner les proprietes de cette maniere :
TIBBackupService.ServerName := 'MAITRE'
TIBBackupService.DataBaseName := 'MAITRE:BASE'
J'ai le message d'erreur
Code:
Error reading data from the connection


(Le probleme est le meme si j'utilise le chemin en dur a la place d'un alias)

Qu'est ce que je fais mal ??? Ou est mon erreur ?
Merci d'avance pour votre aide.

[kase74]

Je viens de trouver ceci dans la doc interbase :

When backing up a database under normal circumstances, the backup file will always be
on the local server since the backup service cannot open a file over a network connection.
However, TIBBackupService can create a remote file in one of the following is true:


The server is running on Windows NT, the path to the backup file is specified as an UNC
name, and the destination for the file is another Windows NT machine (or a machine
which can be connected to via UNC naming conventions).


The destination drive is mounted via NFS (or some equivalent) on the machine running
the InterBase server.

En gros, il n'est pas possible de faire un backup d'une base distante ! Sauf si ... Et c'est la que je ne comprends pas !

Pourtant, on peut le faire avec IBExpert !!!!!!
Quelqu'un peut il m'aider en me donnant un exemple concret, merci.

[VLDG]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
  IBBackup := TIBBackupService.Create(Self);
  try
    with IBBackup do
    begin
      LoginPrompt := False;
      Params.Add('user_name=titi');
      Params.Add('password=toto');
      try
        Verbose := False;
        Options := IgnoreLimbo];
        DatabaseName := dmdMain.GetFullPathDataBaseName;
        bname := copy(ExtractFileName(DatabaseName), 0, pos('.', ExtractFileName(DatabaseName))-1);
        Protocol := Local;
        ServerName := '';
        gbkname := ExtractFilePath(Application.ExeName) + bname;
        BackupFile.Add(gbkname+ '_backup.gbk');
        Active := True;
        ServiceStart;
        While not Eof do
          GetNextChunk;
      finally
        Active := False;
      end;
    end;
 
  finally
    IBBackup.Free;
  end;

Firebird est installé en serveur sur les 2 postes