Pfad zur Datenbank?

[BackYard]

Hi, wie geb ich im Opjectinspektor den Pfad zur meiner Datenbank an.

Ich hab im ORdner der *.exe einen unterordner der Datenbanken heißt.
Ich will jetzt aber nich: C:\blal.....\...\Datenbanken\AUser.db

geht das das ich einfach Datenbanken\AUser.db
angebe?
Also ohne festes Laufwerk?

[bundy]

Hy !

JA sicher funktioniert das.
Schau dir mal folgendes an.

Delphi-Quellcode:

ExtractFilePath(Application.ExeName);

mfg
Bundy

[BackYard]

ja, der pfad zur exe, ok aber ich kann die zeile ja nicht in objectinspektor einfügen.
oder kann ich den pfad zur datenbank auch im code angeben?

[Luckie]

Sollte man auch zur Laufzeit angeben können.

Und hättest du gleich in der richtigen Sparte gepostet, hättest du Datenbank und Zugriffsart geilch angeben können, dann hätte man dir bestimmt direkt sagen können wir du das machen musst. ;)

[DP-Maintenance]

Dieses Thema wurde von "Luckie" von "Sonstige Fragen zu Delphi" nach "Datenbanken" verschoben.
Dantenbankfrage.

[BackYard]

hehe sorry, den nächsten post stell ich richtig rein.

aber du kannst mir doch bestimmt auch sagen, wie ich den pfad zur datenbank angeben kann?

[Luckie]

Zitat:

Zitat von BackYard

aber du kannst mir doch bestimmt auch sagen, wie ich den pfad zur datenbank angeben kann?

Eben nicht, so lange wir nicht wissen um welche Datenbank es sich handelt und wie du draufzugreifst.

[buyden]

Hi

versuchs mal damit:

Delphi-Quellcode:

.\db

In dem Fall liegt die Datenbank im Programmverzeichnis im Ordner DB. Du kannst natürlich auch den kompletten Pfad angeben aber das macht sich nicht so gut, wenn das Programm mal woanders hin verschoben wird.

Ach ja, den Tabellennamen natürlich nicht mit, der muss dann unter TableName angegeben werden.

[BackYard]

Ne das will auch nicht ganz so :>

Paradox 7 Datenbank
ICh greif mit nem noemalen DataSource drauf zu und mit nem BDE Table
:)

[Luckie]

Zitat:

Zitat von buyden

In dem Fall liegt die Datenbank im Programmverzeichnis im Ordner DB.

Nein. Sie wird im aktuellen Arbeitsverzeichnis gesucht, was aber nicht zwingenderweise das Verzeichnis der Anwendung sein muss.

[buyden]

Zitat:

Zitat von Luckie

Nein. Sie wird im aktuellen Arbeitsverzeichnis gesucht, was aber nicht zwingenderweise das Verzeichnis der Anwendung sein muss.

:gruebel:
Da komm ich jetzt nicht ganz mit.
Ich hab ein Programm, in dessen Verzeichnis gibt's nen Ordner DB, in dem die Paradox-Tabellen liegen und den DatabaseName hab ich mit ".\db" abgegeben, woraufhin mir Delphi unter TableName die Tabellen anbietet.

[BackYard]

wenn ich das mit .\Datenbanken\ mache, dann zeigt er mir nen fehler an wenn ich bei table name was wählen möchste.

Er zeigt an: C:.\Datenbanken

[Matze]

@buyden: Ein TOpenDialog zum Beispiel, ist in der Lage, das Arbeitsverzeichnis zu ändern, aus diesem Grund sollte man relative Pfadangaben vermeiden. Falls es dich interessieren sollte, mit ChDir() könnte man das Arbeitsverzeichnis manuell setzen.

Nachtrag:
@BackYrad: Hast du denn einmal versucht, den Pfad zur Laufzeit zuzuweisen?

[BackYard]

hmm, nein wie mach ich das?
dann muss das ja in code rein oder?

[buyden]

@Matze
OK OK ich geb mich geschlagen. :zwinker:


@Backyard
Dann sollte es zur Laufzeit so funktionieren:

Delphi-Quellcode:

table1.databasename:=ExtractFilePath(Application.ExeName)+'\Datenbanken';

[Luckie]

Zitat:

Zitat von BackYard

hmm, nein wie mach ich das?
dann muss das ja in code rein oder?

Exakt. Und wenn du uns weiterhin beharlich verschweigst mit welchen Komponenten du auf was für eine Datenbank zugreifst, kannst du hier auf eine Antwort warten bis du schwarz wirst.

[BackYard]

gut, das geht leider auch nicht, da kommt database error...
hmm. :pale:

[BackYard]

hab ich doch, steht da irgendwo... auf seite 1. :>

[buyden]

Poste doch mal deinen Code, dann findet man den Fehler vielleicht eher mal

[BackYard]

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Table1.Locate('Anmeldename', Edit1.Text, [loCaseInsensitive]) = true then
  begin
    if Table1.Locate('Passwort', Edit2.Text, [loCaseInsensitive]) = true then
    begin
      MessageDlg('OK. Login erfolgreich!', mtInformation,[mbOk], 0);
    end
    else
    begin
      MessageDlg('Fehler. Falsche Daten!', mtError,[mbOk], 0);
    end;
  end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
  table1.databasename:=ExtractFilePath(Application.ExeName)+'\Datenbanken';
end;

Naja viel code is das noch nicht aber :)

- Paradox 7 Tabelle
- BDE Table
- DataSoruce

Gruß BY

[buyden]

Wann kommt denn dein Fehler??

[Pump3r]

dann wenn ich den login button drück.

sei nicht irritiert wegen dem namen, bin jetzti n nem anderen raum :p

[bundy]

Du solltes den Table öffnen bevor du auf seine Daten zugreifst :idea:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  table1.databasename:=ExtractFilePath(Application.ExeName)+'\Datenbanken';
  table1.active := true;   //Öffnen des Tables
end;

[Khabarakh]

Zitat:

Zitat von buyden

Delphi-Quellcode:

table1.databasename:=ExtractFilePath(Application.ExeName)+'\Datenbanken';

So kann das nicht funktionieren.

Delphi-Quellcode:

Table1.DatabaseName := ExtractFilePath(Application.ExeName) + 'Datenbanken';

ExtractFilePath
ExtractFileDir

[Pump3r]

Ich danke euch!!!
Es klappt :>