SQL findet die Tabelle nicht

[LingNeu]

hallo zusammen,
bin gerade am probieren der sql-möglichkeiten in delphi7 pro
habe zwei dbs die über einen link verbunden sind und die ausgabe geht über zwei grids. Alles ist bestens. Kann die mastertabelle bewegen und es bewegen sich die detaildaten mit. nun möchte ich über eine sqlanweisung eine filterung machen
z.B.

Delphi-Quellcode:

// masterdb; mID: autofeld; mtyp: string; 
// 1 auto
// 2 bus
// detaildb; dtyp: link auf masterdb; mname: string;
// vw (1)
// opel (1)
// audi (1)
// man (2)
// fiat (2)
// mercedes (2)
//
// die dbs sind bereits geöffnet,verlinkt und die beiden grids zeigen die daten an
// die Query TDBQ ist vorhanden
// will nur autos anzeigen
TDBQ.Close ;
TDBQ.SQL.Clear ;
TDBQ.SQL.Add('select *');
TDBQ.SQL.Add('from masterdb');
TDBQ.SQL.Add('WHERE mtyp ');
TDBQ.SQL.Add('= "auto"');
TDBQ.Open ;

Nun kriege ich folgende Fehlermeldung:
"Es ist eine Exception der Klasse ETurboDBError aufgetreten. Meldung: Preparing SQL Statement: SQL Command could not be prepared. File not found or access denied: "masterdb"...
Was ich nicht versehe, die DBs sind doch offen und die Datenbank ist auch verhanden.
Vielleicht hat jemand von Euch eine Idee. Wahrscheinlich sehe ich vor lauter Bäumen den Wald nicht mehr
danke für eine Info.
Gruss
Lingneu

[p80286]

Versuch es doch einmal so

Delphi-Quellcode:

TDBQ.Close ;
TDBQ.SQL.Clear ;
TDBQ.SQL.Text:='select * from Masterdb where mtyp="auto" ');
TDBQ.Open ;

ggf mußt Du schema.Masterdb nutzen.

Gruß
K-H

[LingNeu]

Hi K-H,
leider kein Erfolg. Hier nochmals der gesamte Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
MD.Close ;  //Datenbankname
MD.Connected             := true;
//MASTER
TBM.DatabaseName         := 'MD';
TBM.TableName            := 'masterdb';
TBM.Active               := true;
DSM.DataSet              := TBM;  //für Tabelle Masterdb
//DETAIL
TBD.DatabaseName         := 'MD';
TBD.TableName            := 'detaildb'; //über Link mit masterdb verbunden
TBD.Active               := true;
DSD.DataSet              := TBD;  //für Tabelle Detaildb
{
TDBQ.Close ;
TDBQ.SQL.Clear ;
TDBQ.SQL.Add('select *');
TDBQ.SQL.Add('from masterdb');
TDBQ.SQL.Add('WHERE mtyp ');
TDBQ.SQL.Add('= "auto"');
TDBQ.Open ;
}
TDBQ.Close ;
TDBQ.SQL.Clear ;
TDBQ.SQL.Text:='select * from masterdb where mtyp="auto" ';
TDBQ.Open ;
end;

Wenn ich die SQL-Anweisungen weglasse, kommt kein Error:... File not found or access denied: "masterdb"
Uff.
Gruss
Lingneu

[FBrust]

Hallo,

was passiert, wenn Du die where-Bedingung weglässt? Also nur ein "select * from masterdb" absetzt?


Gruß
Frank

[Lemmy]

Hallo,

mir fehlt beim COde das hier:

Delphi-Quellcode:

TDBQ.DatabaseName := 'MD';

also die Angabe der DB in der Query. Oder machst Du das wo anders?

Grüße

[LingNeu]

Danke für Eure Hilfe!

@Frank
dann wird die Master und die Detailtabelle mit Ihren Daten angezeigt - ohne Fehlermeldung!

Die Anweisung
TDBQ.DatabaseName := 'MD' wird direkt in den ComponentenProperties eingetragen

Gruss
LingNeu

[FBrust]

Hallo,

Zitat:

Zitat von LingNeu (Beitrag 1178482)

Danke für Eure Hilfe!

dann wird die Master und die Detailtabelle mit Ihren Daten angezeigt - ohne Fehlermeldung!

Dann könnte es evtl. ein Problem mit der where-Klausel sein, versuch doch mal

Code:

TDBQ.SQL.Text := 'select * from masterdb where mtyp = ' + QuotedStr('auto');

Gruß
Frank

[mkinzler]

Oder noch besser

Delphi-Quellcode:

TDBQ.SQL.Text := 'select * from masterdb where mtyp = :typ;';

[LingNeu]

hallo,
@mkinzler,danke für die Info. Es kommt keine Fehlermeldung mehr, aber es wird auch kein gewünschtes Ergebnis zurückgegeben.

@FBrust, auch bei Deiner SQL-Zeile kommt keine Fehlermeldung mehr, aber es wird kein gewünschtes Ergebnis zurückgegeben.

Gruss
LingNeu

Habe die kleine Routine nochmals aufgesplitet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
// masterdb
// mID autoInc; mtyp string(50)
// detaildb
// dtyp Link; mname string(50)
MD.Close ;  //Datenbankname
MD.Connected             := true;

//MASTER
TBM.DatabaseName         := 'MD';
TBM.TableName            := 'masterdb';
TBM.Active               := true;
DSM.DataSet              := TBM;  //für Tabelle Masterdb
//DETAIL
TBD.DatabaseName         := 'MD';
TBD.TableName            := 'detaildb'; //über Link mit masterdb verbunden
TBD.Active               := true;
DSD.DataSet              := TBD;  //für Tabelle Detaildb
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//autos ausgeben
TDBQ.Close ;
TDBQ.SQL.Clear ;
//TDBQ.SQL.Text := 'select * from masterdb where mtyp = "auto"';
//TDBQ.SQL.Text := 'select * from masterdb where mtyp = '+ QuotedStr('auto') ;
TDBQ.SQL.Text := 'select * from masterdb where mtyp = :typ;';
TDBQ.Open ;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
//busse ausgeben
TDBQ.Close ;
TDBQ.SQL.Clear ;
TDBQ.SQL.Text := 'select * from masterdb where mtyp = '+ QuotedStr('bus') ;
TDBQ.Open ;
end;

[DeddyH]

Und bei

Delphi-Quellcode:

TDBQ.SQL.Text := 'select * from masterdb where mtyp = :typ';
TDBQ.{Parameters.}ParamByName('typ').Value := 'auto';
TDBQ.Open ;

:?:

[vagtler]

Ist denn TDBQ überhaupt mit dem Grid verbunden?

[LingNeu]

@ vagter
danke dir!
mensch bin ich blöd - das ist wahrscheinlich die lösung.
man sieht halt, das ich wenig ahnung vom handling her habe. die sql anweisungen sind weniger die schwierigkeiten.
ich habe die TDBQ mit einem Grid verbunden und siehe da -> es kommt zumindestens die mastertabelle richtig sql-gefiltert.
was ich noch nicht fertigbringe ist das 2. Grid für die detailtabelle - da klappt es noch nicht. ich erhalte immer die inhalte von der mastertabelle.

viele grüße
LingNeu

[LingNeu]

hallo,
noch eine frage, die mir vielleicht jemand beantworten könnte.
ich hab ja die TDBQ (Query) welche jetzt mit MD (Datenbank) verbunden ist und die Query ist über eine Datasource mit dem Grid verbunden. Es wird nun bei einem entsprechenden SQL-Statement der gewünschte Datensatz der Mastertabelle angezeigt.
Muss ich für die Detailtabelle nochmals eine Query zur Verfügung stellen und nochmals eine Datasource, welche dann mit dem zweiten Grid (Detailtabelle) angezeigt wird und wie kann ich dann die Relation herstellen.
Bei den normalen bisherigen Grids habe ich mich auf die vorherigen Datasources bezogen, welche über die Tabellen verlinkt waren. Dort war auch in der Detailtabell in den Properties als Mastersource DSM (DatasourceMaster) eingetragen.


Danke für eine Info
LingNeu

[LingNeu]

hallo,
nun habe ich herumprobiert. Mit einer zweiten Query kann ich zumindestens die Detailtabelle anzeigen lassen. Leider kommen immer alle Datensätze.
Könnte mir bitte noch jemand dabei helfen, die SQL-Anweisung zu korrigieren, damit nur die zum Mastersatz gehörigen Daten angezeigt werden.
Besten Dank
LingNeu

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
// autos ausgeben
// TDBQ  für das Master-Grid
// TDBQ2 für das Detail-Grid

TDBQ.Close ;
TDBQ.SQL.Clear ;
TDBQ.SQL.Text := 'select * from masterdb where mtyp = '+ QuotedStr('auto') ;
TDBQ.Open ;

TDBQ2.Close ;
TDBQ2.SQL.Clear ;
// Das funktioniert - es werden allerdings alle daten angezeigt
// TDBQ2.SQL.Text := 'select * from detaildb';

// Nachfolgendes funktioniert leider nicht wie gewünscht
TDBQ2.SQL.Text := 'select * from detaildb where dtyp in (select mID from masterdb)' ;
TDBQ2.Open;
end;

[p80286]

Wenn man die Tabelleninhalte kennen würde wäre es etwas einfacher, so tippe ich auf

Code:

TDBQ.Close ;
TDBQ.SQL.Clear ;
TDBQ.SQL.Text := 'select detaildb.* from masterdb,detaildb '+
                 'where masterdb.mtyp = '+ QuotedStr('auto')+' '+
                 '  and detaildb.dtyp = masterdb.mid';
TDBQ.Open ;

Gruß
K-H

[Sir Rufo]

Ich fasse mal kurz zusammen:

Du hast 2 Äpfel (Tabellen) miteinander verknotet (Link) und das Ergebnis ist wie erwartet.
Jetzt nimmst du eine Birne (Query) und wunderst dich, das beide Äpfel noch verknotet sind und nicht der eine Apfel mit der Birne. Woher soll der Apfel wissen, dass er sich jetzt mit der Birne verknoten soll? ;)

[LingNeu]

@K-H
VIELEN DANK - es funktioniert bestens!

Gruss LingNeu

[Bummi]

suchst Du das ?

Delphi-Quellcode:

TDBQ2.SQL.Text := 'select * from detaildb where dtyp =:mID)' ;
//bei
TDBQ2.Datasource:=TDBQ_src;
TDBQ2.MasterFields:='mID';
TDBQ2.IndexFieldNames := 'dtyp';