Einzelnen Beitrag anzeigen

Benutzerbild von Deltachaos
Deltachaos

Registriert seit: 20. Feb 2008
Ort: Berlin
195 Beiträge
 
Delphi 7 Personal
 
#1

MySQL Direct abfrage. Daten in String Speichern

  Alt 13. Mai 2008, 19:13
Datenbank: MySQL • Version: k.p. • Zugriff über: MySQL direct Unit Delphi
Ich muss für mein Programm In einer MySQl Datenbank ein paar sachen Abfragen.
Ich hab hier auch ein Tutorial gefunden aber irgendwie blick ich den text net.

Delphi-Quellcode:
procedure TableContent;
var i, j: integer;
    af: TMysql_FieldDef;
    cr: integer;
begin
  if assigned(FResult) then begin
    if FResult.ResultType=rtStored then begin
      cr := FResult.RecNo;
      StringGrid2.RowCount := FResult.RowsCount+1;
      StringGrid2.ColCount := FResult.FieldsCount+1;
      for i:=0 to FResult.FieldsCount-1 do begin
        af := FResult.FieldDef(i)^;
        StringGrid2.cells[i+1,0] := af.Name;
      end;
      FResult.First;
      for i:=0 to FResult.RowsCount-1 do begin
        if FResult.RecNo=cr then
          StringGrid2.Cells[0,i+1] := '*'
        else
          StringGrid2.Cells[0,i+1] := '';
        for j:=0 to FResult.FieldsCount-1 do
          StringGrid2.Cells[j+1,i+1] := FResult.FieldValue(j);
        FResult.Next;
      end;
      FResult.RecNo := cr;
    end
    else begin
      StringGrid2.RowCount := 2;
      StringGrid2.ColCount := FResult.FieldsCount+1;
      for i:=0 to FResult.FieldsCount-1 do begin
        af := FResult.FieldDef(i)^;
        StringGrid2.cells[i+1,0] := af.Name;
      end;
      for j:=0 to FResult.FieldsCount-1 do
        StringGrid2.Cells[j+1,1] := FResult.FieldValue(j);
    end;
  end;
end;
Ich weis nich wie ich in einem string speichere was z.b. in dem rot markirtem feld steht.

http://www.fos-clan.com/max/sql2.jpg
bzw die dazugehörige id herausfinde.

und wie ich das rot markirte ändere.
Maximilian Ruta
  Mit Zitat antworten Zitat