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:

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 von LingNeu:

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
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 ;