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;