Hallo mkinzler,
Habe mir deinen Rat zu Herzen genommen und in die Tabelle jetz mit ID eingegeben.
Und habe es jetzt geschaft die Abfrage zu Formulieren und den Inhalt kann ich jetzt in eine Listbox anzeigen lassen.
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var q:
string;
ex: boolean;
i:integer;
begin
//Verbindung zur Datenbank
FMysql.Host := '
http://localhost/ssfmessenger.ss.funpic.de';
FMysql.port := 3306;
FMysql.user :='
ssfmessenger_02';
FMysql.password := '
saschascholz';
FMysql.UnixSocket := '
';
FMysql.Db := '
ssfmessenger_02';
// 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;
q:='
SELECT Name FROM username WHERE ID';
FResult := FMysql.query(q, true, ex);
if assigned(FResult)
then begin
Form3.Listbox1.Items.Clear;
i:=-1;
FResult.First;
while not FResult.Eof
do begin
i:=i+1;
Form3.Listbox1.items[i] :=FResult.FieldValueByName('
Name');
FResult.Next;
stellt sich mir nur noch die Frage, wie kann ich jetzt den eingegebenen Namen im Edit
mit der Datenbank vergleichen ob er vorhanden ist.
Kannst du mir da eventuell helfen?