SQL error : type mismatch

[alex-91]

Hallo!

Also ich habe eine SQL Abfrage und möchte das Ergebnis in einem DBGrid anzeigen lassen. Als ich nur  WHERE Inventarnummer = "'+(nummer)+'" hatte, hat es wunderbar funktioniert :S
jz hab ich die Abfrage erweitert und bekomme folgende fehlermeldung:

Project Kustodius.exe raised exeption class EDBEngineError with message 'Type mismatch in expression.'. Process stopped. Use Step or Run to continue.

Hier der Quellcode:

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
var nummer: string;
begin
 nummer:=Edit1.Text;
 Query1.Active:=false;
 Query1.SQL.Clear;
 Query1.SQL.Add('SELECT Inventarnummern.Inventarnummer, Geratetyp.Typ, Raume.Raumnummer, Raume.Raumbezeichnung, Details.Modell, Details.Baujahr, Inventarnummern.Status FROM Inventarnummern, Raume, Geratetyp, Details WHERE (Inventarnummern.Inventarnummer = "'+(nummer)+'") AND (Raume.ID = Inventarnummern.ID_Raum) AND (Geratetyp.ID = Inventarnummern.Geratetyp) AND (Details.ID = Inventarnummern.ID_Details)');
 Query1.Active:=true;
end;

Hat jemand eine Idee wo der Fehler liegt ?
Danke , alex-91

[DeddyH]

Von welchem Typ ist denn Inventarnummer?

[alex-91]

alpha

[DeddyH]

Versuch es einmal mit SQL-Parametern.

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 FROM Inventarnummern, Raume, Geratetyp, Details WHERE (Inventarnummern.Inventarnummer = :nummer) AND (Raume.ID = Inventarnummern.ID_Raum) AND (Geratetyp.ID = Inventarnummern.Geratetyp) AND (Details.ID = Inventarnummern.ID_Details)');
 Query1.ParamByName('nummer').Value := nummer;
 Query1.Open;
end;

[alex-91]

dann kommt : [Error] Unit1.pas(260): String literals may have at most 255 elements

[mkinzler]

Du kansnt Text auf einmal nur 255 Zeichen übergeben.

[khh]

Zitat von alex-91:

dann kommt : [Error] Unit1.pas(260): String literals may have at most 255 elements

dann versuchs mal mit sql.clear, sql.add anstatt SQL.text.

[c4rtm4n]

Hi,

hab mir deine SQL-Query mal angeguckt...

Sieht an sich ganz richtig aus...
Du kannst auch gerne Query1.SQL.Text verwenden. Query1.SQL ist ja auch nur eine TStringList und mit der kannst du umgehen, wie mit jeder anderen StringList auch.

Ich vermute den Fehler an einer anderen Stelle als bei WHERE (Inventarnummern.Inventarnummer = "'+(nummer)+'") .

Welchen Typ hat denn Inventarnummern.Geratetyp? Ist das Feld auch ein Integer?

Probiers mal so:

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
var nummer: string;
begin
 nummer:=Edit1.Text;
 Query1.Active:=false;

 Query1.SQL.Text := 'SELECT ' +
                    '  inv.Inventarnummer, ' + 
                    '  typ.Typ, ' + 
                    '  raum.Raumnummer, ' + 
                    '  raum.Raumbezeichnung, ' +
                    '  det.Modell, ' + 
                    '  det.Baujahr, ' + 
                    '  Inv.Status ' + 
                    'FROM Inventarnummern inv ' +
                    '  INNER JOIN Raume raum ON raum.id = inv.ID_Raum ' + 
                    '  INNER JOIN Geratetyp typ ON typ.id = inv.Geratetyp ' +
                    '  LEFT JOIN Details det ON det.id = inv.ID_Details ' +
                    'WHERE inv.Inventarnummer = ' + QuotedStr(nummer);

 Query1.Active:=true;
end;

Kurze Anmerkung:
- Die Aufteilung der einzelnen Felder in einzelne Zeilen dienen zum einen der Übersichtlichkeit, als auch dass sie dem Problem mit den 255 Zeichen in der Text-Eigenschaft vorbeugt.

- Die JOINS helfen dir beim einfachen Zusammenführen der Tabellen. Ein INNER JOIN setzt vorraus, das ein entsprechender Datensatz (wie in dem ON-Teil definiert) vorhanden ist. Wenn ein Feld kein Mussfeld ist, dann bietet sich hier ein LEFT JOIN (s. Details) an.

- Die Funktion QuotedStr(s: String) erzeugt einen Pascal String, in dem auch ' (Hochkomma) vorkommen dürfen. Diese werden von der Funktion durch '' (doppeltes Hochkomma) ersetzt. Dann brauchst du dir um die Formatierung des Strings keine Sorgen mehr machen.

OK, ich gebs ja zu, die Anmerkung ist doch etwas länger geworden

[alex-91]

Zitat von c4rtm4n:

Hi,

hab mir deine SQL-Query mal angeguckt...

Sieht an sich ganz richtig aus...
Du kannst auch gerne Query1.SQL.Text verwenden. Query1.SQL ist ja auch nur eine TStringList und mit der kannst du umgehen, wie mit jeder anderen StringList auch.

Ich vermute den Fehler an einer anderen Stelle als bei WHERE (Inventarnummern.Inventarnummer = "'+(nummer)+'") .

Welchen Typ hat denn Inventarnummern.Geratetyp? Ist das Feld auch ein Integer?

Probiers mal so:

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
var nummer: string;
begin
 nummer:=Edit1.Text;
 Query1.Active:=false;

 Query1.SQL.Text := 'SELECT ' +
                    '  inv.Inventarnummer, ' + 
                    '  typ.Typ, ' + 
                    '  raum.Raumnummer, ' + 
                    '  raum.Raumbezeichnung, ' +
                    '  det.Modell, ' + 
                    '  det.Baujahr, ' + 
                    '  Inv.Status ' + 
                    'FROM Inventarnummern inv ' +
                    '  INNER JOIN Raume raum ON raum.id = inv.ID_Raum ' + 
                    '  INNER JOIN Geratetyp typ ON typ.id = inv.Geratetyp ' +
                    '  LEFT JOIN Details det ON det.id = inv.ID_Details ' +
                    'WHERE inv.Inventarnummer = ' + QuotedStr(nummer);

 Query1.Active:=true;
end;

also das Feld inventarnummern.geratetyp ist ein alphafeld
und leider kommt mit deinem Quellcode immer noch der typmismatch-blödsinn :'(

trotzdem danke lg

[haentschman]

Zitat:

also das Feld inventarnummern.geratetyp ist ein alphafeld
und leider kommt mit deinem Quellcode immer noch der typmismatch-blödsinn :'(

... ja logisch ! Weiter vorn spricht du davon, daß die ID Felder Integer sind.

Zitat:

Geratetyp.ID = Inventarnummern.Geratetyp

Hier vergleichst du einen Integer mit einem String.