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
