Hallo zusammen,
mal wieder ein wahrscheinlich simple aber für mich zur Zeit nicht ganz klare frage.
Bei der Firebird
DB arbeitet man ja mit Alias Adressen, die in der aliases.conf unter...
Code:
C:\Programme\Firebird\Firebird_2_1\aliases.conf'
Standartmäßig abgespeichert sind.
Wenn ich jetzt dem Kunden über z.B. folgenden Code (Öffnen eines OpenDialog und Standort wählen)
Delphi-Quellcode:
procedure TForm1.USERDB1Click(Sender: TObject);
var
Speicherort : String;
f : TextFile;
begin
if DatenbankUserOpenDialog.Execute then
begin
Speicherort := DatenbankUserOpenDialog.FileName;
end;
if DM_PS.SpeicherOrtDBUser(Speicherort) = true then
begin
AssignFile(f,'C:\Programme\Firebird\Firebird_2_1\aliases.conf');
{$i-} Append(f); {$i+}
if IOResult <> 0 then
begin
ShowMessage('Fehler beim schreiben der Alias');
Exit;
end;
Writeln(f,'PSUser = '+Speicherort);
CloseFile(f);
MessageDlg('Datenbankverbindung erfolgreich geändert!',mtInformation,[mbOK],0);
end
else
begin
MessageDlg('Datenbankverbindung nicht geändert!',mtInformation,[mbOK],0);
end;
end;
die Möglichkeit geben will, den Alias zu ändern, kommen wir mal wieder zu dem Thema Speicherorte. Ich kann ohne Adminrechte auf
C:\Programme ja nicht schreiben. Wie muss man sowas machen.
Also, schon mal danke bis dann.
Gruß Jens