SQL findet die Tabelle nicht

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

[vagtler]

Ist denn TDBQ überhaupt mit dem Grid verbunden?