Thema: Delphi SQL LogIn

Einzelnen Beitrag anzeigen

MaToBe

Registriert seit: 2. Aug 2008
162 Beiträge
 
#9

Re: SQL LogIn

  Alt 9. Jun 2009, 11:51
Seltsam. 2 mal hat es geklappt. Dann beim 3ten mal kam diese Meldung:

"Die Verbindung konnte nicht hergestellt werden. Ursache: Access denied for user 'root'@ 'localhost' (using password YES)

Dabei habe ich das Passwort und den zugang bei XAMPP nicht verändert. Host: localhost, Benutzer : root, PW: Keins

Delphi-Quellcode:
SQLServer := PAnsiChar(AnsiString(edtServernameSQL.Text));
SQLBenutzer := PAnsiChar(AnsiString(edtBenutzernameSQL.Text));
SQLPasswort := PAnsiChar(AnsiString(edtPasswortSQL.Text));
SQLDatenbank := PAnsiChar(AnsiString(edtDatenbankSQL.Text));

procedure TfrmSQL.SqlVerbindung;
var
  myConnect: PMySQL; //Verbindungsdeskriptor
begin
  //jetzt wird _myCon initialisiert
  libmysql_load(nil);
  myConnect := mysql_init(nil);
  if myConnect = nil then
  begin
    ShowMessage('Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren');
    Exit;
  end;

  //anschließend wird die Verbindung hergestellt
  if mysql_real_connect(myConnect, SQLServer, SQLBenutzer, SQLPasswort, SQLDatenbank, 3306, nil, 0) = nil then
  begin
    ShowMessage('Die Verbindung konnte nicht hergestellt werden. Ursache: ' + mysql_error(myConnect));
    Exit;
  end;

  ShowMessage('Verbindung hergestellt');

  //zum Schluss wird die Verbindung wieder geschlossen
  mysql_close(myConnect);
end;
Bei SQLPasswort trage ich Nil ein und bei SQLDatenbank auch.
  Mit Zitat antworten Zitat