Problem bei Insertbefehl

[Chrissi91]

Hi,

erstmal: Mit was ich auf die DB zugreife, kann ich nicht so genau sagen. Die Komponente hab ich mal aus meinen alten CDs hervorgekramt. Aber ich bin mir sicher, ihr werdet sie wiedererkennen.

Ich binde die 2 angehängten Dateien ein. Eine Pas und eine DLL (wird in der Pas eingebunden). Ich hoffe ihr könnt damit was anfangen.

Jetzt habe ich folgenden funktionierenden Code:

Delphi-Quellcode:

var
  frmMain: TfrmMain;
  Query: String;
  _myCon: PMySQL;

begin
  _myCon := MySQL_Init(nil);
  MySQL_Real_Connect(_myCon, 'www.*********.de', 'root', '******', '******', 3306, nil, 0);
  mysql_select_db(_myCon, '*******');
  query := 'SELECT * FROM shop_kategorien ORDER BY id';
  mysql_real_query(_myCon, PChar(query), Length(query));

Soweit so gut. Daraus habe ich jetzt Folgendes abgeleitet:

Delphi-Quellcode:

mmoBeschreibung.Text := StringReplace(mmoBeschreibung.Text, #13#10, '
', [rfReplaceAll]);
query := 'INSERT INTO shop_artikel(id, michel, name, beschreibung, kategorie, ppreis, mpreis) VALUES (' + edtID.Text + ', ' + edtMichel.Text + ', ' + edtName.Text + ', ' + mmoBeschreibung.Text + ', ' + IntToStr(Number) + ', ' + edtPPreis.Text + ', ' + edtMPreis.Text + ')';
ShowMessage(query);
mysql_real_query(_myCon, PChar(query), Length(PChar(query)));

Er gibt den Befehl als ShowMessage zwar richtig aus, führt ihn aber nicht aus. D.h. in der MySQL-DB wird nichts eingetragen, obwohl eine Verbindung besteht, die Tabelle existiert mit den jeweiligen Spalten.

Jemand eine Idee?

[DeddyH]

Eine Idee habe ich: schließe doch mal alle Werte, die alphanumerische Felder befüllen sollen, in QuotedStr ein (Name und Beschreibung könnten da Kandidaten sein).query := 'INSERT INTO shop_artikel(id, michel, name, beschreibung, kategorie, ppreis, mpreis) VALUES (' + edtID.Text + ', ' + edtMichel.Text + ', ' + QuotedStr(edtName.Text) + ', ' + QuotedStr(mmoBeschreibung.Text) + ', ' + IntToStr(Number) + ', ' + edtPPreis.Text + ', ' + edtMPreis.Text + ')';

[marabu]

Hi,

auch die beiden Preis-Felder verursachen Probleme - wenn die Beträge ein Komma enthalten.

Grüße vom marabu