mySQL-Datenbankzugriff über C-API: mysql_create_db(...)

[Chewie]

Hast du bei meinem Testprojekt die Zugangsdaten durch deine ersetzt?

[Steffen]

ja, habe ich.

[Chewie]

Wo hast du denn die DLL liegen?

[Steffen]

Sie lieg da, wo auch die Anwendung liegt, beide im gleichen Verzeichnis

[Chewie]

Zitat:

Zitat von Steffen

Immerhin bekomme ich jetzt keine AccessViolation mehr, sondern es wird der except-Teil ausgeführt...

Und welche Fehlermeldung wird ausgegeben?

[Steffen]

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...)

[Chewie]

Dann überprüf mal den Rückgabewert. Hier findest du eine Auflistng der möglichen Rückgabewerte.

Leider finde ich in der MySQL-Unit keine numerischen Entsprechungen der Konstanten, aber vielleicht hast du in den Original-C-Header mehr Glück.

[Steffen]

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...

[Chewie]

Geh doch im Einzelschrittverfahren durch deinen Code durch, dann siehst du genau, welche Anweisungen ausgeführt werden.

[Steffen]

mache ich ja, wenn ich beim Befehl mysql_create_db ankomme habe ich wieder 'ne AccessViolation. Deshalt liefert die Funktion auch keinen Integer zurück.