Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess ...

[delphifan2004]

Hallo,

Habe mir nun doch Firebird installiert, sowohl die Sever Version als auch die Embedded Version. Bei letzterer sagt mir die Dokumentation, das keine eigentliche Installation nötig ist, ich muss nur die Dateien aus dem Paket in mein Anwendungsverzeichnis kopieren. Einige Dateien, die in Unterordnern stecken, die aber laut Dokumentation ebensfalls benötigt werden, habe ich auch in das Anwendungsverzeichnis kopiert. Danach habe ich die Datei fbembed.dll sowohl in:

-fbclient.dll
-gds32.dll

kopiert, so das ja nach Anforderung durch das DBMS die richtige DLL vorliegt.

Nun habe ich mit den Zeos Komponenten eine Testanwendung gebaut und sogar die Datenbankverbindung geschafft. Aber die Datei kann dennoch nicht geöffnet werden.


ich erhalte die Fehlermeldung:

Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird. < I/O error during CreateFile(open)

Wie erreiche ich den Dateizugriff mit der Embedded Version von Firebird. Will mir die Geschichte mit den Zugriffsrechten gerne für später aufheben, jetzt besser erst mal exclusiven Zugriff auf meine Datenbank, die eh auf meinem lokalen Rechner gespeichert ist, auf den aus räumlichen Gründen eh nur ich zugreife. Benutzer-Rechtevergabe ist da gar nicht notwendig. Ich will nur mit meiner Testdatei rumspielen um erst mal das Zusammenspiel der Komponenten (UIB) kennen zu lernen. Da bin ich schon froh, überhaupt eine Verbindung zu meiner Datenbank aufbauen zu können. Für das Erlernen der Vergabe der Benutzerrechte brauche ich noch ein ganzes Stück länger.

Hier mein Quellcode, der die vom Firebird Team empfohlenen UIB Komponenten verwendet. Mit Zeos habe ich die Datenbakverbindung noch nicht geschafft.

Delphi-Quellcode:

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ZSqlUpdate, DB, ExtCtrls, DBCtrls, Grids, DBGrids, ZDataset,
  ZConnection, ZAbstractRODataset, ZAbstractDataset, uib, uibdataset;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    DataSource1: TDataSource;
    UIBConfig1: TUIBConfig;
    UIBServerInfo1: TUIBServerInfo;
    UIBDataSet1: TUIBDataSet;
    UIBDataBase1: TUIBDataBase;
    UIBScript1: TUIBScript;
    UIBTransaction1: TUIBTransaction;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.
//Hier noch die zugehörige .dfm Datei:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 286
  ClientWidth = 426
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 88
    Top = 136
    Width = 320
    Height = 120
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object DBNavigator1: TDBNavigator
    Left = 168
    Top = 105
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 1
  end
  object DataSource1: TDataSource
    DataSet = UIBDataSet1
    Left = 16
    Top = 24
  end
  object UIBConfig1: TUIBConfig
    UserName = 'sysdba'
    PassWord = 'masterkey'
    Host = 'localhost'
    LibraryName = 'gds32.dll'
    DatabaseName = '..\..\data\'
    Left = 16
    Top = 64
  end
  object UIBServerInfo1: TUIBServerInfo
    UserName = 'sysdba'
    PassWord = 'masterkey'
    Host = 'localhost'
    LibraryName = 'gds32.dll'
    Left = 16
    Top = 104
  end
  object UIBDataSet1: TUIBDataSet
    Left = 64
    Top = 24
  end
  object UIBDataBase1: TUIBDataBase
    Params.Strings = (
      'sql_dialect=3'
      'lc_ctype=WIN1252'
      'password=masterkey'
      'user_name=sysdba'
      'sql_role_name=2')
    DatabaseName = 'D:\Programme\Borland\BDS\4.0\Projects\Zeos\data\fbtest.fdb'
    CharacterSet = csWIN1252
    UserName = 'sysdba'
    PassWord = 'masterkey'
    LibraryName = 'gds32.dll'
    Role = '2'
    Left = 64
    Top = 64
  end
  object UIBScript1: TUIBScript
    Database = UIBDataBase1
    Left = 16
    Top = 168
  end
  object UIBTransaction1: TUIBTransaction
    DataBase = UIBDataBase1
    Left = 16
    Top = 208
  end
end

Wie erreiche ich den erfolgreichen Zugriff auf meine Datei und welche Seiten der Firebird Dokumentation muss ich mir zum besseren Verständnis anschauen. Ich könnte auch ein besser verständliches Demo gebrauchen. Gibt es sowas, vielleicht zuerst mal nur mit einer Datei oder mit einer Master Detail Beziehung zwischen nur 2 Dateien?

[DeddyH]

Was passiert, wenn Du den Hostnamen weglässt? Übrigens sollst Du die Dateien aus den Unterordnern nicht ins Programmverzeichnis kopieren, sondern die Verzeichnisstruktur, so wie sie ist, Genaueres dazu findest Du in der README_EMBEDDED.txt (oder so ähnlich).

[delphifan2004]

Zitat von DeddyH:

Was passiert, wenn Du den Hostnamen weglässt?

Wenn ich Username und Passwort weglasse, erhalte ich Fehlermeldung: "Username und Passwort nicht definiert".

Zitat von DeddyH:

Übrigens sollst Du die Dateien aus den Unterordnern nicht ins Programmverzeichnis kopieren, sondern die Verzeichnisstruktur, so wie sie ist, Genaueres dazu findest Du in der README_EMBEDDED.txt (oder so ähnlich).

Ok, danke! Hab ich berichtigt.

[pmoegenb]

Zitat von delphifan2004:

Aber die Datei kann dennoch nicht geöffnet werden.
Wie erreiche ich den erfolgreichen Zugriff auf meine Datei

Wenn Du zur Entwurfszeit eine Verbindung hergestellt (fbembed.dll) hast, musst Du diese Verbindung schließen, dann sollte es klappen. Wenn Du dann noch für die Embedded Version Mehrbenutzerfähigkeit benötigst, muss die Datei firebird.conf den Eintrag RemoteFileOpenAbility = 1 erhalten.

Bei der Embedded Version werden Username und Passwort benötigt, Server/Host und Port darf dagegen nichts enthalten.

[DeddyH]

Deswegen schrieb ich ja Hostname, von User und Passwort hatte ich nichts gesagt.

[Perlsau]

Zitat von pmoegenb:

Wenn Du zur Entwurfszeit eine Verbindung hergestellt (fbembed.dll) hast, musst Du diese Verbindung schließen, dann sollte es klappen.

Stimmt nicht: Ich habe eben genau das gemacht: Bei sämtlichen Queries im Datenmodul Active auf True gestellt, wobei die Connect-Komponente automatisch auf Connected = True steht. Dann die Embedded-Version gestartet und keinerlei Probleme festgestellt. Zuvor natürlich meine obligatorische Befehlszeile // IF ConMain.Connected THEN ConMain.Disconnect; auskommentiert. Dieses Problem bestand bei älteren Firebird-Embedded-Versionen, seit 2.0 ist das behoben.

Zitat von pmoegenb:

Wenn Du dann noch für die Embedded Version Mehrbenutzerfähigkeit benötigst, muss die Datei firebird.conf den Eintrag RemoteFileOpenAbility = 1 erhalten.

Stimmt auch nicht: Ich habe eben genau das ausprobiert. Es kommt auf jeden Fall die besagte Fehlermeldung, völlig egal, welcher Wert in RemoteFileOpenAbility steht. oder ob ein Host, Server oder Port angegeben wurde – wenn ich gleichzeitig dieselbe DB in einem DB-Manager offen halte.

Ich empfehle daher ausdrücklich, auch Embedded-Versionen einer Firebird-Datenbankanwwendung erst als Server-Version zu entwickeln. Ich verwende zur Unterscheidung einfach die Startparameter. Solange ich mit der Embedded-Version arbeite, steht bei mir in den Startparametern 1 E:\Datenbanken\Win7\Firebird\ drin. Bei Programmstart werden die ausgelesen und ausgewertet: 1 heißt Server, 0 oder gar nichts heißt Embedded. Steht 0 zusammen mit einem Pfad, liegt die DB in diesem Pfad, fehlt der Pfad, liegt die DB im Anwendungsordner (nur für Stickware, da ab Vista für das Schreiben in Program Files Admin-Rechte benötigt werden).

Ergänzung:
Der Eintrag RemoteFileOpenAbility in der Datei firebird.conf hat nichts mit der Anzahl der Clients zu tun, die auf die Datenbank zugreifen dürfen, sondern ist ein Boolean, der, wenn gesetzt, festlegt, daß auf die Datenbank nur zugegriffen werden kann, wenn sie sich auf einem von einem physikalisch mit dem Computer, der die Client-Anwendung ausführt, verbundenen Laufwerk befindet.

Unless this configuration option is changed from 0 to 1, Firebird can open a database only if the database is stored on a drive physically attached to the local computer - the computer running that copy of Firebird. Requests for connections to databases stored on NFS mounted drives are redirected to a Firebird server running on the computer that "owns" the disk.

Des Rätsels Lösung liegt ganz woanders: Wenn man den Firebird-Server installiert hat und mit einem DB-Manager wie z.B. IbExpert die Datenbank öffnet, läuft sie im IbExpert über den Firebird-Server und wird von diesem geöffnet, also quasi "vereinnahmt". Versucht man nun, dieselbe Datei über die Embedded-DLL zu öffnen, wird das selbstverständlich verweigert, weil die Datenbank-Datei nur durch einen einzigen DB-Server – die Embedded-DLL stellt quasi einen eigenen Server dar – gleichzeitig geöffnet sein darf. Hat also nichts mit Multiuser-Fähigkeiten oder eingeschränkter Userzahl zu tun.

Was ich jetzt noch nicht ausprobiert habe: Die Embedded-DLL in den Programmordner des DB-Managers zu kopieren mitsamt aller benötigten Dateien. Ich laß das hier lieber sein, da ich zwar Embedded-DB-Anwendungen entwickle, jedoch nie an der Embedded-DB direkt, sondern wie oben bereits beschrieben stets die Server-Variante bevorzuge. Die Funktionalität ist fast dieselbe bis auf die Client-DLL.

[delphifan2004]

Zitat von Perlsau:

Stimmt nicht: Ich habe eben genau das gemacht: Bei sämtlichen Queries im Datenmodul Active auf True gestellt, wobei die Connect-Komponente automatisch auf Connected = True steht.

Nun ja, ich verwende als Tabellenkomponente UIBDataSet und wenn ich das Projekt in Delphi lade, erhalte ich den Fehlerdialog, der auch erscheint, wenn ich ein Projekt lade, das eine in meinem Delphi nicht installierte Komponente voraussetzt.
Die Fehlermeldung lautet dann:

Ich habe jetzt auch das Feld Hostname leer gemacht aber eine Komponente UIBServerInfo mit drin, bei der ich die Eigenschaft Protocol mit "proLocalHost" belegt habe.
Das Problem mit der Zugriffssperre besteht weiter.

Wie aber kann ich nun den Zugriff auf meine Datenbank erreichen?

Ich habe die Datenbank tatsächlich mit IBExpert angelegt. Aber was kann ich jetzt tun, um die Datei zu entsperren?

Zitat von Perlsau:

Ich empfehle daher ausdrücklich, auch Embedded-Versionen einer Firebird-Datenbankanwwendung erst als Server-Version zu entwickeln.

Gefällt mit überhupt nicht. Wollte mir mit der Embedded Version das Zugriffsrechtemenagement erst mal sparen. Wollte wie beim guten alten DBase die Datei anlegen, die Felder definieren und dann mit der Datei arbeiten. Schade, das das hier nicht so simpel ist.

Zitat von Perlsau:

Ich verwende zur Unterscheidung einfach die Startparameter. Solange ich mit der Embedded-Version arbeite, steht bei mir in den Startparametern 1 E:\Datenbanken\Win7\Firebird\ drin. Bei Programmstart werden die ausgelesen und ausgewertet: 1 heißt Server, 0 oder gar nichts heißt Embedded. Steht 0 zusammen mit einem Pfad, liegt die DB in diesem Pfad, fehlt der Pfad, liegt die DB im Anwendungsordner (nur für Stickware, da ab Vista für das Schreiben in Program Files Admin-Rechte benötigt werden).

Hmmm. Mein Firebird Server liegt in C:\Programme\Firebird\, von da an voreingestellte Pfade.

Meine Embedded Version liegt einmal im Ordner meines Delphi Projektes und noch einmal in D:\Programme\Borland\BDS\4.0\Projects\Firebird-Embedded\

Aber in einer Kommandozeile zuerst eine Ziffer????

Oder sieht die wirkliche Kommandozeile dafür anders aus? Wenn ja, wie? Dann übernehme ich nämlich diese Vorgehensweise.

Habe jetzt bei den Komponenten UIBConfig, UIBDataBase und UIBServerInfo die Eigenschaft LibraryName, die vorher auf gds32.dll gesetzt war, auf den Pfad meiner fbclient.dll des Firebird Servers gesetzt und damit kann ich erst mal ohne die Fehlermeldung die Datenbank aufrufen, das heißt, meine Anwendung startet ohne die vorherige Fehlermeldung. Ich kann aber noch immer keine Daten in meine Tabelle eigeben. Was muß ich dazu noch machen?
Wenn ich meine Anwendung aber außerhalb der IDE starte, bekomme ich die GUI nicht zu sehen, nach ca 60 Sekunden sagt mir Windows, das meine Anwendung einen Fehler verursacht hat und beendet werden muß. Ich muß sie dann im Taskmanager suchen und dort beenden. Im Taskmanager sehe ich meine Anwendung also.

Außerdem hatte ich nach der SQL Anweisung:

CREATE TABLE meinetabelle(feld1 char(12),feld2 BIGINT, feld3 char(10));

bei Start nach dem Anlegen der Tabelle, die mittlerweile angelegt ist, die Fehlermeldung, das die Tabelle bereits existiert.

Nun weiß ich von MySql, das es da eine Klausel "IF NOT EXISTS" gibt (CREATE TABLE IF NOT EXISTS meinetabelle (Feld1 Typ,Feld2 Typ,...);. Die Klausel "IF NOT EXISTS" wird aber hier als Fehler angemeckert. Wie kann ich da das DB-System anweisen, die Tabelle nur dann zu erzeugen, wenn sie noch nicht existiert? Andernfalls soll besser ein SELECT * FROM meinetabelle erfolgen, damit ich meine Daten anzeigen kann.

in Pseudocode ausgedrückt also das hier:

if not(TableExists(MeineTabelle)) then Create Table MeineTabelle(...) else Select * from MeineTabelle
Wie erreiche ich das mit dem hier vorliegenden SQL Dialekt, der das "IF NOT EXISTS" nicht zu kennen scheint?




.

[tsteinmaurer]

Diese Fehlermeldung kann auftreten, wenn du dich mit 32-bit Embedded (deine Anwendung ist 32-bit oder?) verbinden möchtest und gleichzeitig eine Verbindung über einen regulären Firbird 64-bit Server besteht. 32/64-bit kann hier nicht gemischt werden.

[mkinzler]

Zitat:

Gefällt mit überhupt nicht. Wollte mir mit der Embedded Version das Zugriffsrechtemenagement erst mal sparen. Wollte wie beim guten alten DBase die Datei anlegen, die Felder definieren und dann mit der Datei arbeiten. Schade, das das hier nicht so simpel ist.

Da besteht kein Unterschied zwischen der Server und der embedded Version. Bei der embedded Version ist der Server nur in die (Client-)Dll eingebettet.
Wenn Du im Programm mit dem selber Benutzer wie bei der Anlage arbeitest, kannst Du die Rechteverwaltung erst einmal vernachlässigen. Auch bei der embedded gibt es ein Rechtemanagement, die Benutzer haben nur kein Passwort ( wird sich aber mit der 3er ändern).

Um zu sehen, ob eine Tabelle schon existiert, kannst du in den Systemtabellen nachschauen.

select * from Rdb$relations where upper(rdb$relation_name) = upper ( '<Tabellenname>'); Für andere Datenbankenobjekte gibt es ein CREATE OR ALTER für Tabellen leider (noch?) nicht.

[Perlsau]

Zitat von delphifan2004:

Nun ja, ich verwende als Tabellenkomponente UIBDataSet und wenn ich das Projekt in Delphi lade, erhalte ich den Fehlerdialog, der auch erscheint, wenn ich ein Projekt lade, das eine in meinem Delphi nicht installierte Komponente voraussetzt.

Das hat aber weder was mit Firebird noch überhaupt mit Datenbanken zu tun, sondern betrifft deine Entwicklungsumgebung.

Zitat von delphifan2004:

Die Fehlermeldung lautet dann:

Oh, eine geheime Fehlermeldung

Zitat von delphifan2004:

Ich habe jetzt auch das Feld Hostname leer gemacht aber eine Komponente UIBServerInfo mit drin, bei der ich die Eigenschaft Protocol mit "proLocalHost" belegt habe.

Das Protokoll ist nicht der Host. Du würdest doch sicher auch nicht in ein Property-Feld, das die Breite deines Fensters beschreibt, den Text "Grün" hineinschreiben, oder?

Zitat von delphifan2004:

Das Problem mit der Zugriffssperre besteht weiter.

Hast du meinen Beitrag überhaupt gelesen und verstanden? Hast du den Kommentar von Thomas Steinmaurer gelesen und verstanden?

Zitat von delphifan2004:

Wie aber kann ich nun den Zugriff auf meine Datenbank erreichen?

Das steht in meinem Beitrag ausführlich beschrieben.

Zitat von delphifan2004:

Ich habe die Datenbank tatsächlich mit IBExpert angelegt. Aber was kann ich jetzt tun, um die Datei zu entsperren?

Das steht in meinem Beitrag ausführlich beschrieben.

Zitat von delphifan2004:

Zitat von Perlsau:

Ich empfehle daher ausdrücklich, auch Embedded-Versionen einer Firebird-Datenbankanwwendung erst als Server-Version zu entwickeln.

Gefällt mit überhupt nicht. Wollte mir mit der Embedded Version das Zugriffsrechtemenagement erst mal sparen. Wollte wie beim guten alten DBase die Datei anlegen, die Felder definieren und dann mit der Datei arbeiten. Schade, das das hier nicht so simpel ist.

Wenn's dir nicht gefällt, läßt du's eben sein und beschäftigst dich mit etwas anderem ...

Zitat von delphifan2004:

Zitat von Perlsau:

Ich verwende zur Unterscheidung einfach die Startparameter. Solange ich mit der Embedded-Version arbeite, steht bei mir in den Startparametern 1 E:\Datenbanken\Win7\Firebird\ drin. Bei Programmstart werden die ausgelesen und ausgewertet: 1 heißt Server, 0 oder gar nichts heißt Embedded. Steht 0 zusammen mit einem Pfad, liegt die DB in diesem Pfad, fehlt der Pfad, liegt die DB im Anwendungsordner (nur für Stickware, da ab Vista für das Schreiben in Program Files Admin-Rechte benötigt werden).

Hmmm. Mein Firebird Server liegt in C:\Programme\Firebird\, von da an voreingestellte Pfade.
Meine Embedded Version liegt einmal im Ordner meines Delphi Projektes und noch einmal in D:\Programme\Borland\BDS\4.0\Projects\Firebird-Embedded\

Wo dein Firebird-Server installiert wurde, ist erstmal nebensächlich. Die Datenbank-Dateien können sonstwo liegen. Auch der Speicherort deiner Embedded-Version ist nur wichtig für deine Anwendung, um die Datenbank-Datei zu finden.

Zitat von delphifan2004:

Aber in einer Kommandozeile zuerst eine Ziffer????

Von einer Kommandozeile habe ich nichts geschrieben. Kennst du deine IDE überhaupt? Hast du schon einmal eine Anwendung mit Parametern gestartet? In deiner Delphi-Ide gibt es im Menü Start doch den Menüpunkt Parameter, nicht wahr? Und dort trägst du die gewünschten Parameter ein. Das hat denselben Effekt wie der Aufruf einer Exe-Datei mit Parametern, z.B. MeinProgramm.exe minimiert grün ... Was hast du gegen eine Ziffer am Anfang einzuwenden?

Zitat von delphifan2004:

Oder sieht die wirkliche Kommandozeile dafür anders aus? Wenn ja, wie? Dann übernehme ich nämlich diese Vorgehensweise.

Keine Ahnung, was du mit "wirkliche Kommandozeile" meinst.

Zitat von delphifan2004:

Habe jetzt bei den Komponenten UIBConfig, UIBDataBase und UIBServerInfo die Eigenschaft LibraryName, die vorher auf gds32.dll gesetzt war, auf den Pfad meiner fbclient.dll des Firebird Servers gesetzt und damit kann ich erst mal ohne die Fehlermeldung die Datenbank aufrufen, das heißt, meine Anwendung startet ohne die vorherige Fehlermeldung. Ich kann aber noch immer keine Daten in meine Tabelle eigeben. Was muß ich dazu noch machen?

Wie versuchst du denn Daten einzugeben? Ich kann dir hier doch nicht dein ganzes Programm schreiben ...

Zitat von delphifan2004:

Wenn ich meine Anwendung aber außerhalb der IDE starte, bekomme ich die GUI nicht zu sehen, nach ca 60 Sekunden sagt mir Windows, das meine Anwendung einen Fehler verursacht hat und beendet werden muß. Ich muß sie dann im Taskmanager suchen und dort beenden. Im Taskmanager sehe ich meine Anwendung also.

Tja, ich fürchte, ohne auch nur eine Zeile Code kann man dir nicht wirklich weiterhelfen.

Zitat von delphifan2004:

Außerdem hatte ich nach der SQL Anweisung:
CREATE TABLE meinetabelle(feld1 char(12),feld2 BIGINT, feld3 char(10));
bei Start nach dem Anlegen der Tabelle, die mittlerweile angelegt ist, die Fehlermeldung, das die Tabelle bereits existiert.

Ja, wenn sie bereits existiert, kannst du sie nicht nochmal unter demselben Namen anlegen. Mir war gerade so, als ob du oben geschrieben hättest, du würdest deine Datenbank mit IbExpert anlegen und einrichten ...

Zitat von delphifan2004:

Nun weiß ich von MySql, das es da eine Klausel "IF NOT EXISTS" gibt (CREATE TABLE IF NOT EXISTS meinetabelle (Feld1 Typ,Feld2 Typ,...);. Die Klausel "IF NOT EXISTS" wird aber hier als Fehler angemeckert. Wie kann ich da das DB-System anweisen, die Tabelle nur dann zu erzeugen, wenn sie noch nicht existiert? Andernfalls soll besser ein SELECT * FROM meinetabelle erfolgen, damit ich meine Daten anzeigen kann.

Wieso willst du denn die Tabelle bei jedem Start anlegen? Lege sie doch einmalig im IbExpert an und gut ist!