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

Delphi-Quellcode:

 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:

Zitat von alex-91 (Beitrag 1026886)

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.

[alex-91]

so weit hob is ah verstaundn, is si hoid vorher ausgunga :S
wos soi i jz mochn ??

[DeddyH]

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;

[alex-91]

habs jz wieder umgeändert auf .clear .add und .active=true und die anweisung ein bisschen verkürzt.
leider noch imma zu kurz - obwohls vorher geklappt hat :(

hab dass jz wieder augf nur 1 bedinungg umgeändert .. jz klappts wieder ...
kann man di anweisung vll auf 2 aufteilen ???

lg

[DeddyH]

Ist Deine Tastatur kaputt oder was soll das Kauderwelsch? Wenn das Literal zu lang ist, versuche es z.B. mal mit Tabellenaliasen, damit lassen sich auch eine Menge Zeichen einsparen. Außerdem kannst Du auf die Klammerung eigentlich verzichten.

[mkinzler]

Das Staement wäre ohne die vielen unnötigen Klammern viel übersichtlicher

[alex-91]

Zitat:

Zitat von DeddyH (Beitrag 1026902)

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;

so lässt es sich ausführen - leider existiert dann noch das problem mid typ mismatch :(

[DeddyH]

Und Du bist ganz sicher, dass es sich um ein alphanumerisches Feld handelt?

[alex-91]

Zitat:

Zitat von DeddyH (Beitrag 1026928)

Und Du bist ganz sicher, dass es sich um ein alphanumerisches Feld handelt?

hab gerade extra noch einmal nachgesehen und ja das ist ein alpha feld :)
allerdings sind halt die ID's integer - aber das dürfet doch nicht stören oder ? lg

[DeddyH]

Wenn alle IDs integer sind, ist das ja auch in Ordnung. Beschränk Dich doch erstmal auf eine Bedingung, füge dann die nächste hinzu usw., bis der Fehler auftritt. Dort kontrollierst Du dann noch einmal die Datenypen.

[alex-91]

Zitat:

Zitat von DeddyH (Beitrag 1026970)

Wenn alle IDs integer sind, ist das ja auch in Ordnung. Beschränk Dich doch erstmal auf eine Bedingung, füge dann die nächste hinzu usw., bis der Fehler auftritt. Dort kontrollierst Du dann noch einmal die Datenypen.

also ich habe jz :
Query1.SQL.Add('SELECT Inventarnummern.Inventarnummer, Geratetyp.Typ FROM Inventarnummern, Geratetyp WHERE Inventarnummer = "'+(nummer)+'" AND Geratetyp.ID = Inventarnummern.Geratetyp');

und da kommt die mismatch-fehlermeldung :(

lg

[DeddyH]

Kommt die Meldung auch, wenn Du die Anführungszeichen weglässt? Ich weiß, das Feld ist alphanumerisch, aber vlt. ist da etwas ganz anderes verhuddelt.

[alex-91]

Zitat:

Zitat von DeddyH (Beitrag 1028021)

Kommt die Meldung auch, wenn Du die Anführungszeichen weglässt? Ich weiß, das Feld ist alphanumerisch, aber vlt. ist da etwas ganz anderes verhuddelt.

also ohne den anführungszeichen ( " ) funktionierst auch nicht -> trotzdem type mismatch
hab das jz mal mit der raumnummer anstatt der geräte-art versucht und so klappts:

procedure TForm1.Button8Click(Sender: TObject);

Delphi-Quellcode:

var nummer: string;
begin
 nummer:=Edit1.Text;
 Query1.Active:=false;
 Query1.SQL.Clear;
 Query1.SQL.Add('SELECT Inventarnummern.Inventarnummer, Raume.Raumnummer FROM Inventarnummern, Raume WHERE Inventarnummer = "'+(nummer)+'" AND Raume.ID = Inventarnummern.ID_Raum');
 Query1.Active:=true;

leider weiß ich noch immer nicht was delphi da für ein problem mit dem gerätetyp hat :(

trotzdem danke lg

[mkinzler]

Was für ein Typ hat nummer?
BTW. Ich würde (SQL-)Parameter verwenden

[alex-91]

hmm hab jz noch die raumbezeichnung dazu genommen und soweit klappts auch noch :)
doch dann kommt der gerätetyp und die fehlermeldung ist wieder da :(

Delphi-Quellcode:

nummer:=Edit1.Text;
 Query1.Active:=false;
 Query1.SQL.Clear;
 Query1.SQL.Add('SELECT Inventarnummern.Inventarnummer, Raume.Raumnummer, Raume.Raumbezeichnung, Geratetyp.Typ FROM Inventarnummern, Raume, Geratetyp WHERE Inventarnummer = "'+(nummer)+'" AND Raume.ID = Inventarnummern.ID_Raum AND Geratetyp.ID = Inventarnummern.Geratetyp');
 Query1.Active:=true;

lg

[haentschman]

:gruebel: warum nutzt du immer noch nicht Parameter wie vorgeschlagen ? Gibt´s bei dir Copy / Paste nicht ? :zwinker:

[omata]

Versuch es mal so...

SQL-Code:

SELECT Inventarnummern.Inventarnummer, Raume.Raumnummer, Raume.Raumbezeichnung, Geratetyp.Typ 
FROM Inventarnummern, Raume, Geratetyp 
WHERE Inventarnummer = ''' + nummer + '' '
  AND Raume.ID = Inventarnummern.ID_Raum 
  AND Geratetyp.ID = Inventarnummern.Geratetyp

Anführungszeichen = Doppelte Hochkommatas (innerhalb eines Delphistrings) sonst natürlich Anführungszeichen = Hochkommata

[alex-91]

Zitat:

Zitat von haentschman (Beitrag 1028542)

:gruebel: warum nutzt du immer noch nicht Parameter wie vorgeschlagen ? Gibt´s bei dir Copy / Paste nicht ? :zwinker:

habs probiert mit strg+C --> strg+V, hat leider auch keine funktion zur folge gehabt, zudem kenn ich mich mit dem nicht aus.

habs jz umgeändert auf:

Delphi-Quellcode:

 nummer:=Edit1.Text;
 Query1.Active:=false;
 Query1.SQL.Clear;
 Query1.SQL.Add('SELECT Inventarnummern.Inventarnummer, Raume.Raumnummer, Raume.Raumbezeichnung, Geratetyp.Typ FROM Inventarnummern, Raume, Geratetyp WHERE Inventarnummer = '' ' + (nummer) + ' '' AND Raume.ID = Inventarnummern.ID_Raum AND Geratetyp.ID = Inventarnummern.Geratetyp');
 Query1.Active:=true;

leider kommt jz : missing operator or semicolon .. sieht werd das missing-teil ?

[mkinzler]

Delphi-Quellcode:

Query1.SQL.Text := 'SELECT Inventarnummern.Inventarnummer, Raume.Raumnummer, Raume.Raumbezeichnung, Geratetyp.Typ FROM Inventarnummern, Raume, Geratetyp WHERE Inventarnummer = :nummer AND Raume.ID = Inventarnummern.ID_Raum AND Geratetyp.ID = Inventarnummern.Geratetyp;';
Query.ParamByName('nummer').Value = Nummer;

[alex-91]

Zitat:

Zitat von mkinzler (Beitrag 1028553)

Delphi-Quellcode:

Query1.SQL.Text := 'SELECT Inventarnummern.Inventarnummer, Raume.Raumnummer, Raume.Raumbezeichnung, Geratetyp.Typ FROM Inventarnummern, Raume, Geratetyp WHERE Inventarnummer = :nummer AND Raume.ID = Inventarnummern.ID_Raum AND Geratetyp.ID = Inventarnummern.Geratetyp;';
Query.ParamByName('nummer').Value = Nummer;

parameter zeugs bringt mir leider garnichts.
is mein maturaprojekt (matura = abi), das habn wir so nicht gelernt ich könnts nicht mal erklären ...
trotzdem danke

[omata]

Delphi-Quellcode:

Query1.SQL.Add(
  'SELECT Inventarnummern.Inventarnummer,'#13 +
  '       Raume.Raumnummer, Raume.Raumbezeichnung,'#13 +
  '       Geratetyp.Typ'#13 +
  'FROM Inventarnummern, Raume, Geratetyp'#13 +
  'WHERE Inventarnummer = ''' + nummer + ''''#13 +
  '  AND Raume.ID = Inventarnummern.ID_Raum'#13 +
  '  AND Geratetyp.ID = Inventarnummern.Geratetyp'
);

[haentschman]

Zitat:

parameter zeugs bringt mir leider garnichts.
is mein maturaprojekt (matura = abi), das habn wir so nicht gelernt ich könnts nicht mal erklären ...

um es mal einfach auszudrücken:
- ein Parameter wird im SQL String mit : eingeleitet
- der Name des Parameters ist frei wählbar (reservierte Worte sollte man trotzdem vermeiden)
- der Wert des Parameters wird seperat übertragen (Stichwort SQL Injection verhindern)

Vorteile:
- der ganze Hochkomma Kram fällt weg
- keine SQL Injection
- übersichtlicher im Quelltext

...und noch mehr :zwinker:

PS:

Zitat:

parameter zeugs bringt mir leider garnichts.

...was bedeutet das genau ?:gruebel:

[alex-91]

Zitat:

Zitat von omata (Beitrag 1028557)

Delphi-Quellcode:

Query1.SQL.Add(
  'SELECT Inventarnummern.Inventarnummer,'#13 +
  '       Raume.Raumnummer, Raume.Raumbezeichnung,'#13 +
  '       Geratetyp.Typ'#13 +
  'FROM Inventarnummern, Raume, Geratetyp'#13 +
  'WHERE Inventarnummer = ''' + nummer + ''''#13 +
  '  AND Raume.ID = Inventarnummern.ID_Raum'#13 +
  '  AND Geratetyp.ID = Inventarnummern.Geratetyp'
);

was heißt das " #13" ?? lg

[alex-91]

PS:

Zitat:

parameter zeugs bringt mir leider garnichts.

...was bedeutet das genau ?:gruebel:[/QUOTE]


das bedeutet dass ich mit der parameterform/parameterdarstellung nicht viel anfangen kann, weil ich es nicht verstehe bzw. nie gelernt habe. somit schlage ich daraus keinen vorteil.

war das vorhin schon zu österreichisch oder wie ? ;)

lg

[haentschman]

Herr Doktor, alle ignorieren mich..... Der nächste Bitte ! :stupid:

Edit:
... nehme ich zurück mangels rotem Kasten !

[mkinzler]

Ich hoffe nicht, dass der Verzicht auf die Verwendung einer Technik, die viele Probleme aus der Welt schafft österreichisch ist

[haentschman]

Zitat:

das bedeutet dass ich mit der parameterform/parameterdarstellung nicht viel anfangen kann, weil ich es nicht verstehe bzw. nie gelernt habe. somit schlage ich daraus keinen vorteil.

hast du es wenigstens probiert ?

[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

Delphi-Quellcode:

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:

Zitat von haentschman (Beitrag 1028591)

Zitat:

das bedeutet dass ich mit der parameterform/parameterdarstellung nicht viel anfangen kann, weil ich es nicht verstehe bzw. nie gelernt habe. somit schlage ich daraus keinen vorteil.

hast du es wenigstens probiert ?

ja habs versucht, hat leider mein problem auch nicht gelöst :(

[alex-91]

Zitat:

Zitat von c4rtm4n (Beitrag 1028593)

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

Delphi-Quellcode:

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.

[DeddyH]

Ich habe bestimmt schon 3 mal in diesem Thread nach dem Datentyp gefragt. Sollte das jetzt plötzlich doch integer sein, beiße ich ein Loch in meine Tischkante.

[c4rtm4n]

Zitat:

Zitat von alex-91 (Beitrag 1028598)

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

Und das ID Feld in Geratetyp ist auch Alpha?
Wenn nicht, dann liegt hier der Type mismatch. Wenn du in einem SQL-Statement Felder vergleichst müssen diese immer vom gleichen Typ sein.

Also ein Alpha = Integer wird nicht funktionieren.

Probier doch mal in deine Inventarnummern-Tabelle das Feld "ID_Geratetyp", entsprechend mit der ID des Gerätetyps, einzufügen. Dann sollte es klappen...

//EDIT:
Oh, da war ich wohl zu langsam =)

[alex-91]

Zitat:

Zitat von DeddyH (Beitrag 1028601)

Ich habe bestimmt schon 3 mal in diesem Thread nach dem Datentyp gefragt. Sollte das jetzt plötzlich doch integer sein, beiße ich ein Loch in meine Tischkante.

jaaaaa ich weiß, aber an der "stelle" der abfrage hab ich nie di feldtypen miteinander verglichen :oops:

ich hab jz den typ von Inventarnummern.Geratetyp auf Integer umgeändert und es funktioniert wunderbar :)

sry dass ich so auf der leitung gstanden bin bzw. so blind war - das müssen die blonden strähnen sein ;)

lg