Syntax SQL Update

[akio87]

Hallo,

er gibt mir zwar keine Fehlermeldung aus, aber es passiert auch kein Update in der Datenbank... ?!

Woran könnte es liegen?

Code:

  MainModule.UniMainModule.mySQLQuery1.SQL.Clear;
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('update `' + UniMainModule.SQLTabelle + '`');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('set');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Vorname = :Vorname,');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Name = :Name,');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('user = :user,');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Firma = :Firma,');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Adress1 = :Adress1,');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Adress2 = :Adress2,');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Straße = :Straße,');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('PLZ = :PLZ,');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Ort = :Ort,');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Land = :Land,');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Telefonnummer = :Telefonnummer');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('where');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Vorname = :OLD_Vorname and');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Name = :OLD_Name');

  MainModule.UniMainModule.mySQLQuery1.ParamByName('Vorname').AsString := UniEdit8.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Name').AsString := UniEdit12.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('user').AsString := lowercase(UniEdit13.Text);
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Firma').AsString := UniEdit1.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Adress1').AsString := UniEdit2.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Adress2').AsString := UniEdit3.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Straße').AsString := UniEdit4.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('PLZ').AsString := UniEdit5.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Ort').AsString := UniEdit6.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Land').AsString := UniEdit7.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Telefonnummer').AsString := UniEdit14.Text;

 MainModule.UniMainModule.mySQLQuery1.ExecSQL;

[mkinzler]

Hier fehlte schon mal das Leerzeichen am Ende:
MainModule.UniMainModule.mySQLQuery1.SQL.Add('Vorname = :OLD_Vorname and '); Und hier der Strichpunkt (wenn dies meist tleriert wird):
MainModule.UniMainModule.mySQLQuery1.SQL.Add('Name = :OLD_Name;');

[akio87]

Hey,

leider wird immernoch nichts in der DB akualisiert:/

Code:

  MainModule.UniMainModule.mySQLQuery1.SQL.Clear;
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('update ' + UniMainModule.SQLTabelle);
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('set ');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Vorname = :Vorname, ');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Name = :Name, ');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('user = :user, ');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Firma = :Firma, ');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Adress1 = :Adress1, ');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Adress2 = :Adress2, ');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Straße = :Straße, ');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('PLZ = :PLZ, ');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Ort = :Ort, ');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Land = :Land, ');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Telefonnummer = :Telefonnummer ');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('where ');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Vorname = :OLD_Vorname and ');
  MainModule.UniMainModule.mySQLQuery1.SQL.Add('Name = :OLD_Name;');

  MainModule.UniMainModule.mySQLQuery1.ParamByName('Vorname').AsString := UniEdit8.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Name').AsString := UniEdit12.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('user').AsString := lowercase(UniEdit13.Text);
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Firma').AsString := UniEdit1.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Adress1').AsString := UniEdit2.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Adress2').AsString := UniEdit3.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Straße').AsString := UniEdit4.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('PLZ').AsString := UniEdit5.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Ort').AsString := UniEdit6.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Land').AsString := UniEdit7.Text;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Telefonnummer').AsString := UniEdit14.Text;

  MainModule.UniMainModule.mySQLQuery1.ExecSQL;

[Captnemo]

Logisch. Du läßt ja Old_Vorname und Old_Name leer. Somit wird auch kein Datensatz gefunden, auf den die Where-Bedingung zutrifft. Aber nochmal siehe meinen Post vorher.

Füg man diese Zeilen hinzu:

Code:

  MainModule.UniMainModule.mySQLQuery1.ParamByName('Old_Vorname).AsString := ichmussmirdenvornamenirgendwiemerken;
  MainModule.UniMainModule.mySQLQuery1.ParamByName('Old_Name).AsString := jetztmussichmirdennachnamenauchnochirgendwiemerken;

[Captnemo]

Zitat von mkinzler:

Hier fehlte schon mal das Leerzeichen am Ende:
MainModule.UniMainModule.mySQLQuery1.SQL.Add('Vorname = :OLD_Vorname and '); Und hier der Strichpunkt (wenn dies meist tleriert wird):
MainModule.UniMainModule.mySQLQuery1.SQL.Add('Name = :OLD_Name;');

Ich weiß nicht, was der TE bei der "Zugriff über" mit ka meint, aber bei den Zugriffskomponenten, die ich benutze hat ein fehlendes ; im SQL-String noch nie zu einem Fehler geführt. Und wenn ich mich nicht irre, wenn ich mit .add arbeiten auch kein fehlendes Leerzeichen (aber da bin ich mir jetzt nicht ganz sicher).

[akio87]

@Captnemo

nun geht es! Vielen Dank.

Das mit der ID in der Tabelle, um eine eindeutige Zuordnung des Datensatzes zubekommen, ist bei mir auf der Uhr, dazu muss ich später dann die Tabellen alle anpassen und brauche dann nur WHERE ID=XX eintragen im Code (is natürlich einfacher^^), dann sollte das erledigt sein...

Erst einmal vielen Dank!

Gerne Abschluss.

[mkinzler]

Zitat von Captnemo:

Ich weiß nicht, was der TE bei der "Zugriff über" mit ka meint, aber bei den Zugriffskomponenten, die ich benutze hat ein fehlendes ; im SQL-String noch nie zu einem Fehler geführt. Und wenn ich mich nicht irre, wenn ich mit .add arbeiten auch kein fehlendes Leerzeichen (aber da bin ich mir jetzt nicht ganz sicher).

Sorry, dass ich Helfen wollte. Diesen Fehler werde ich nicht mehr machen.

[hoika]

Hallo,
zumindestens der SQL-Server hatte mal Probleme mit fehlendem Semikolon,
also mkinzler immer mit anführen.


Heiko

[Dejan Vu]

Zitat von hoika:

Hallo,
zumindestens der SQL-Server hatte mal Probleme mit fehlendem Semikolon,

Aber auch nur, wenn Du mehrere Befehle in einer Zeile unterbringen willst. Sonst nicht.

[p80286]

Zitat von mkinzler:

Zitat von Captnemo:

Ich weiß nicht, was der TE bei der "Zugriff über" mit ka meint, aber bei den Zugriffskomponenten, die ich benutze hat ein fehlendes ; im SQL-String noch nie zu einem Fehler geführt. Und wenn ich mich nicht irre, wenn ich mit .add arbeiten auch kein fehlendes Leerzeichen (aber da bin ich mir jetzt nicht ganz sicher).

Sorry, dass ich Helfen wollte. Diesen Fehler werde ich nicht mehr machen.

Zitat von hoika:

Hallo,
zumindestens der SQL-Server hatte mal Probleme mit fehlendem Semikolon,
also mkinzler immer mit anführen.


Heiko

Oracle meckert das Semikolon am Ende "select..... order by 2;" immer als ungültiges Zeichen an.
Jedes .Add schreibt gleichzeitig auch einen Zeilentrenner in den .Text, von daher kann man sich die "TrennerBlanks" am Zeilenende sparen.

Gruß
K-H