eintrag zur db hinzufügen und auslesen

[ph0]

Delphi-Quellcode:

if assigned(FResult) then
    begin
      if FMysql.Status<>MYSQL_STATUS_READY then
      begin
      ShowMessage('Ein Ergebnis wurde unvollständig gelesen!');
      FreeAndNil(FResult);
      end;
    end;
  q:='INSERT INTO `user` '+'(`nname`)'+' VALUES '+'(' + #39 + edit1.Text + #39')';
  FResult:= FMysql.query(q, true, ex);
  if assigned(FResult) then
    ShowMessage('Query: OK - Ergebnis gespeichert')
    else
    if ex then
      ShowMessage('Query: OK - ausgeführt')
      else
      ShowMessage('Query fehlgeschlagen: '+FMysql.LastError);
  end;