Hi Leute,
undzwar es ist folgendes:
ich nutze die DIRECTMYSQL-UNITS um auf eine
SQL-
DB zuzugreifen.
Verbinden und Datenbank auswählen klappt alles.
Meine Ergebnisse (Userliste, username usw)
lasse ich mir in einem StringGrid ausgeben.
Ich kann aber nichts daraus löschen? also aus der
DB. SO habe ich es Probiert:
Delphi-Quellcode:
procedure TForm2.Button6Click(Sender: TObject);
begin
idx := InputBox('User löschen', 'Bitte UserID eingeben', '');
FResult := FMysql.query(idx, true, ex);
if idx = '' then // wenn nix eingegeben, abbrechen
begin
showmessage('Keine UserID eingegeben');
exit;
end else
begin // ansonsten weiter
s := 'DELETE FROM ' + ComboBox1.Text + ' WHERE userid = "'+idx+'"';
FResult := FMysql.query(s, true, ex);
if assigned(FResult) then
begin
TableContent; // neue ergebnisse anzeigen
end;
end;
end;