Einzelnen Beitrag anzeigen

youu

Registriert seit: 10. Mär 2008
29 Beiträge
 
Delphi 2007 Enterprise
 
#1

MYSQL Webserver connecten.

  Alt 28. Apr 2008, 19:09
Datenbank: MYSQL • Version: 5. • Zugriff über: ...
Hallo erstmal,

Ich möchte gerne auf eine MYSQL Datenbank connecten die auf einem Webserver ist. (Mein eiegenen)
Nur weiß ich ehrlich gesagt noch überhaupt nicht wie.

Ich habe diesen Code per Suche gefunden, wenn ich dies allerdings teste sagt er mir immer:

Cannot load LIBMYSQL.DLL liabary (error code 126).


Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  SQLConnection : TSQLConnection;
  SQLQuery : TSQLQuery;

begin
  SQLConnection := TSQLConnection.Create(Self);
  SQLConnection.ConnectionName := 'SQLCon';
  SQLConnection.DriverName := 'MYSQL';
  SQLConnection.GetDriverFunc := 'getSQLDriverMYSQL';
  SQLConnection.LibraryName := 'dbxmys30.dll';
  SQLConnection.VendorLib := 'LIBMYSQL.dll';

  SQLConnection.Params.Values['BlobSize'] := '-1';
  SQLConnection.Params.Values['Database'] := 'Kunden';
  SQLConnection.Params.Values['ErrorRessourceFile'] := '';
  SQLConnection.Params.Values['HostName'] := 'localhost';
  SQLConnection.Params.Values['LocaleCode'] := '0000';
  SQLConnection.Params.Values['User_Name'] := 'root';
  SQLConnection.Params.Values['Password'] := 'password';
  SQLConnection.Params.Values['Compressed'] := 'False';
  SQLConnection.Params.Values['Encrypted'] := 'False';

  SQLConnection.LoginPrompt := False;
  SQLConnection.ParamsLoaded := True;
  SQLConnection.KeepConnection := True;
  SQLConnection.Connected := True;

  SQLConnection.Open;
  Memo1.Lines.Add('Verbindung hergestellt ...!');

  SQLQuery := TSQLQuery.Create(Self);
  SQLQuery.SQLConnection := SQLConnection;
  SQLQuery.SQL.Text := 'Select * from Kunde';
  SQLQuery.Active := True;

  SQLConnection.Close;
  SQLConnection.Free;
  Memo1.Lines.Add('Verbindung beendet ...!');

end;

Ich hoffe jemand kann mir da weiterhelfen bzw ein bespiel zeigen wie man drauf connectet, ausließt und speichert.

MFG
  Mit Zitat antworten Zitat