Ich habe jetzt folgendes gemacht...
Delphi-Quellcode:
function TDataBaseModule.CreateDatabase(strDatabaseName : String) : Boolean;
begin
if DataBaseModule.Connected then
begin
Result := True;
try
//ExecuteQuery('CREATE DATABASE ' + strDataBaseName);
ShowMessage(IntToStr(mysql_create_db(DataBaseModule.DataBaseSocket, PAnsiChar(strDataBaseName))));
except
Result := False;
ShowMessage('Fehler bei CreateDataBase!' + mysql_error(DataBaseModule.DataBaseSocket));
end
end
else
begin
ShowMessage('Um eine Datanbankanfrage auszuführen muss eine Verbindung zur Datenbank bestehen!');
Result := False
end
end;
aber ich bekomme keine Meldung... welchen Wert die Funktion mysql_create_db zurückliefert...