Ich fange gerade an, mich mit Datenbanken auseinanderzusetzen. Genauer gesagt mit
MySQL!!
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, umysqlvio, uMysqlCT, uMysqlClient, uMysqlHelpers, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
FMysql: TMysqlClient;
FResult: TMysqlResult;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$I mysqlinc.inc}
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
FMysql := TMysqlClient.create;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
// Eigenschaften setzen
FMysql.Host := '
localhost';
FMysql.port := 3306;
FMysql.user :='
user1';
FMysql.password := '
1234';
FMysql.UnixSocket := '
';
FMysql.Db := '
test';
// Datenbank auf dem Server
FMysql.UseNamedPipe := false;
FMysql.UseSSL := false;
FMysql.Compress := true;
FMysql.TrySockets := false;
if FMysql.Connect
then
ShowMessage('
Verbindung aufgebaut')
else
ShowMessage('
Fehler beim Verbinden: '+FMysql.LastError);
end;
end.
Ich bekomme einfach nicht die Meldun, dass die Verbindung aufgebaut wurde. Der hängt sozusagen bei FMysql.Connect!!
Kann mir jemand helfen??
Max
*Edit: Mist im falschen forum!!!
Tschuldigung!!