TDatabase.DatabaseName und der ganze Rest

[delphino]

Gab ja schon viele Fragen zu Datenbanken. Vllt ist dies hier mal was neues...

Habe mir eine Klasse geschrieben für Datenbankzugriffe, d.h. wenn ein Frame(Form) was aus ner Datenbank braucht, oder inserten möchte, dann instanziiert es einfach eine DBConnection. Nun möchte ich das alles so frei wie möglich halten und somit während der Entwurfszeit keinerlei Angaben darüber machen wie zur Datenbank verbunden werden soll... Hier ein Beispiel wie es gemeint ist. Das ist natürlich nicht die endgültige DB-Zugriffsklasse, aber bringt das Problem auf den Punkt... Hoffe ich zumindest...

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;

type
  TForm3 = class(TForm)
    Database1: TDatabase;
    Session1: TSession;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Database1Login(Database: TDatabase; LoginParams: TStrings);
    
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
 Form3: TForm3;

implementation

{$R *.dfm}

{ MyClass }



procedure TForm3.Database1Login(Database: TDatabase; LoginParams: TStrings);
begin
    with Database do
     begin
      LoginParams.Values['USER NAME'] := 'root';
      LoginParams.Values['Password'] := 'root';
     end;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin

  Database1.DatabaseName := 'owv';
  Database1.AliasName := 'myodbc';
  Query1.DatabaseName := Database1.DatabaseName;
  Session1.SessionName := 'S1';
  Query1.SessionName := Session1.SessionName;
  Query1.Open;
end;

end.

Funktioniert nicht !!! Wenn im Entwurfsmodus Databasename und AliasName nicht angegeben werden.

Fehlermeldung ist, dass der Datenbank Alias 'owv' nicht existiert.



Ich versteh einfach nicht wo Delphi den Unterschied macht. Sobald ich zur Entwurfszeit die Angaben DatabaseName und AliasName mache, funktioniert das ganz toll.

Fürs Helfen im Voraus vielen Dank !!

delphino

[Sharky]

Hai delphino,

kann es sein das zur Entwurszeit irgenwelche Datenbankverbindung aktiv sind?
Um solche "versehen" zu vermeiden schliesse ich grundsätzlich im .OnCreate immer als erstes die Datenbankverbindung:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Database1.Close;
  // Parameter für die Verbidung setzen
  Database1.Open
end;

[eddy]

Hallo delphino,

Zitat:

Database1.DatabaseName := 'owv';

Hat Deine Datei keine Erweiterung?

owv.DB
owv.ADT
owv.DBF
owv.<Erweiterung>

mfg
eddy

[delphino]

Nee, iss eine MySQL-Datenbank, die über BDE über MyODBC angesprochen wird.

Gruß delphino

[marabu]

Hallo Delphino,

wenn du in deiner Query eine eigene Session-Komponente verwendest, dann sollte Query.SessionName gleich Database.SessionName sein.

Grüße vom marabu

[delphino]

Hallo !

marabu, das war der entscheidenede Tip !! Allerdings muß man noch aufpassen in welcher Reihenfolge man das alles macht. Hum, also eigentlich versteht sich die Reihenfolge von selbst, aber ich habs natürlich erstmal falsch gemacht... o0

Also de facto habe in meinem Beispiel oben vergessen der Database den SessionName mitzuteilen.

Delphi-Quellcode:

  Database1.DatabaseName := 'owv';
  Database1.AliasName := 'myodbc';
  Session1.SessionName := 'S1';
  Database1.SessionName := Session1.SessionName;
  Query1.DatabaseName := Database1.DatabaseName;
  Query1.SessionName := Session1.SessionName;
  Query1.Open;

Thx a lot !!

Viele Grüße

delphino