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.