Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
AW: SQL error : type mismatch
8. Jun 2010, 14:51
Delphi-Quellcode:
procedure TForm1.Button8Click(Sender: TObject);
var nummer: string;
begin
nummer:=Edit1.Text;
Query1.Close;
Query1.SQL.Text := 'SELECT Inventarnummern.Inventarnummer, Geratetyp.Typ, Raume.Raumnummer, Raume.Raumbezeichnung, Details.Modell, Details.Baujahr, Inventarnummern.Status ';
Query1.SQL.Add('FROM Inventarnummern, Raume, Geratetyp, Details ');
Query1.SQL.Add('WHERE (Inventarnummern.Inventarnummer = :nummer) ');
Query1.SQL.Add('AND (Raume.ID = Inventarnummern.ID_Raum) ');
Query1.SQL.Add('AND (Geratetyp.ID = Inventarnummern.Geratetyp) ');
Query1.SQL.Add('AND (Details.ID = Inventarnummern.ID_Details)');
Query1.ParamByName('nummer').Value := nummer;
Query1.Open;
end;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|
|
Zitat
|