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?