Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi wie kann man Table.TableName mit TQuery realisieren? (https://www.delphipraxis.net/39436-wie-kann-man-table-tablename-mit-tquery-realisieren.html)

eddy 2. Feb 2005 16:28


wie kann man Table.TableName mit TQuery realisieren?
 
Hallo Leute,

bei der näheren Betrachtung von TQuery komme ich nicht weiter.

Mit welchem Befehl bzw. welcher Befehlsfolge kann ich
Code:
var
  pn, fn : string;

//....
  pn := Table.DatabaseName;
  fn := Table.TableName;
realisieren?

Oder muß ich mir den Dateinamen aus den SQL-Anweisungen herausfiltern?

mfg
eddy

Schuster 2. Feb 2005 17:07

Re: wie kann man Table.TableName mit TQuery realisieren?
 
Warum willst du denn das machen :?:

Datenbankname und Tablename wirst du doch wissen oder :?: hast ja auch die DB erstellt.

Aber wenn es dir um Abfragen geht dann funkt das so:

Delphi-Quellcode:
with QueryX do
begin
    sql.clear;
    sql.add('Select * from Datenbankname.TableName where FeldName = ' + Quotedstring('WirdGesuchtText'));
    open;
end;

Albi 2. Feb 2005 17:09

Re: wie kann man Table.TableName mit TQuery realisieren?
 
Hallo,

die TQuery Kompo kennt ebenfalls die DatabaseName Eigenschaft. Aber da du in der Query mehrere Table/DB ansprechenden kann, wird es wohl schwer werden die einzelne - wie bei der Table Kompo - festzustellen.

eddy 2. Feb 2005 17:33

Re: wie kann man Table.TableName mit TQuery realisieren?
 
Hallo Schuster,

weil es Unterprogramme und Funktionen gibt, die eben genau das nicht wissen.
Hier ein Beispiel:

mit Datei öffnen wird einer TableX (TTable) ein Verzeichnis und Name zugewiesen.
Über eine DataSourceX (TDataSource) wird diese Tabelle an ein DBGridX (TDBGrid) gebunden.
Es kann jede beliebige Datei des entsprechend zulässigen Typs geöffnet werden, also ist der Dateinamen variabel. Mit nachfolgendem UP soll die Anzahl der Datensätze auf ein Panel gebracht werden und im Hint Verzeichnis und Name der tatsächlich geöffneten Datei angezeigt werden.
Code:
procedure UP_WrAnz(tab : TTable; pan : TPanel);
begin
  if tab.Active then begin
    pan.Caption := format('Anz=%d',[tab.RecordCount]);
    pan.Hint := tab.DatabaseName + tab.TableName;
  end
  else pan.Caption := '';
end;
Beim Ersatz von TTable durch TQuery ist diese Funktion also so nicht mehr verwendbar, weil es kein Query.TableName gibt.

mfg
eddy

Jasocul 2. Feb 2005 19:44

Re: wie kann man Table.TableName mit TQuery realisieren?
 
Außerdem kannst du in einem SQL-Statement mehrere Tabellen einer Datenbank einbinden. Da gibt es dann keinen eindeutigen Tabellennamen, den man irgendwo eintragen könnte.


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:52 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz