MySQLDB lesen

[Tommy1988]

Also ich habs jetzt so gemacht, weis nicht anders wie:

für vorname/nachname in 2 labels anzuzeigen:

Delphi-Quellcode:

  if assigned(FResult) then begin
    if FMysql.Status<>MYSQL_STATUS_READY then
      ShowMessage('Ein Ergebnis wurde unvollständig gelesen!');
      FreeAndNil(FResult);
  end;
  q := InputBox('Geben Sie eine Abfrage ein',
  'Welche Abfrage durchgeführt werden soll','SELECT dj FROM play');
  FResult := FMysql.query(q, true, ex);
  if assigned(FResult) then
  begin
    ShowMessage('Query: OK - Ergebnis gespeichert');
    TableContentVorname;
    end
  else
  begin
    if ex then
    begin
      ShowMessage('Query: OK - ausgeführt')
    end
    else
    begin
      ShowMessage('Query fehlgeschlagen: '+FMysql.LastError);
    end;
    end;

Prozedur:

Delphi-Quellcode:

procedure TForm1.TableContentOnOff;
var
    i, j: integer;
    af: TMysql_FieldDef;
    cr: integer;
begin
  if assigned(FResult) then begin
    if FResult.ResultType=rtStored then begin
      cr := FResult.RecNo;
      FResult.First;
        for j:=0 to FResult.FieldsCount-1 do
          Label5.Caption := FResult.FieldValue(j)+'BBB';
        FResult.Next;
      end;
      FResult.RecNo := cr;
    end;
end;

und so habeich das mit beiden labels gemacht..

anders weis ich nicht wie