Na gut dann hiermal noch diese Daten
Zugreifen tu ich mit
mySQL direkt von
http://www.dsdt.info/tutorials/mysqldirect/
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var q:
string;
ex: boolean;
begin
//Verbindung zur Datenbank herstellen
FMysql.Host := '
localhost';
FMysql.port := 3306;
FMysql.user :='
root';
FMysql.password := '
ironhead31';
FMysql.UnixSocket := '
';
FMysql.Db := '
messenger';
// Datenbank auf dem Server
FMysql.UseNamedPipe := false;
FMysql.UseSSL := false;
FMysql.Compress := true;
FMysql.TrySockets := false;
if assigned(FResult)
then begin
if FMysql.Status<>MYSQL_STATUS_READY
then
FreeAndNil(FResult);
end;
//Datenbank abfragen
q:='
Select Name from username = '+ Edit1.Text +'
';
FResult := FMysql.query(q, true, ex);
if assigned(FResult)
then
begin
Form1.Hide;
Form3.Show;
end
else ShowMessage('
Benutzerdaten sind nicht korrekt');
Wie gesagt das verbinden klappt und auch das auslesen der Datenbank in eine listbox
funktioniert. Also gehe ich davon aus das alles soweit korrekt ist, nur halt mit den Namen hauts
nich hin, da Akzeptiert er alles was ins Edit geschrieben wird und nicht nur die Daten die auch in
der Tabelle drinstehen.