Bei dem Code:
Delphi-Quellcode:
uses
...
mySQL;
var
DataBaseSocket: PMySQL;
...
function TDataBaseModule.CreateDatabase(strDatabaseName :
String) : Boolean;
begin
if Connected
then
begin
Result := True;
try
mysql_create_db(DataBaseSocket, PAnsiChar(strDataBaseName))
// Hier entsteht der Fehler!
except
Result := False;
ShowMessage('
Fehler bei CreateDataBase!' + mysql_error(DataBaseSocket));
end
end
else
begin
ShowMessage('
Um eine Datanbankanfrage auszuführen muss eine Verbindung zur Datenbank bestehen!');
Result := False
end
end;
Bekomme ich "Fehler bei CreateDataBase! " (allerding gibt mysql_error(DataBaseSocket) nur '' zurück...)