Daten in StringGrid einlesen und in DB abspeichern

**muenchner**

Hallo ich bins schon wieder!

Vielleicht kann mir jemand sagen, was ich bei diesem code verkehrt habe, dass 5x hintereinander nur die 1. Zeile geschrieben wird.
Auuserdem bräuchte ich noch Hilfe, um die StringGrid in eine Tabelle abzuspeichern.

Ich möchte die Daten von einer Tabelle auslesen, in die StringGrid eintragen und anschliesend in eine andere DB abspeichern.

Vielleicht kann mir jemand helfen.

zusammenfalten · markieren

SQL-Code:

			var

sSQL, s1SQL: String;

 i: Integer;

begin

try

Query1.Close;

Query1.SQL.Clear;

sSQL :=  'SELECT VertragNr, KundenNr, Bezeichnung  FROM Vertrag where AbrechPartner = "' + DBLookupComboBox1.KeyValue + ';

Query1.sql.add(sSQL);

Query1.Active:=True;

except

end;

stringgrid1.Cells[0,0] := 'id';

i := 1;

try

        stringgrid1.Cells[1,0] := 'Vertrag:';

        stringgrid1.Cells[2,0] := 'KundenNr:';

        stringgrid1.Cells[3,0] := 'Vertrag:';

        while not query1.Eof do begin

        stringgrid1.Cells[3,i] := tblVertrag1.FieldByName('KundenNr').AsString;

        stringgrid1.Cells[2,i] := tblVertrag1.FieldByName('VertragNr').AsString;

        query1.Next;

    i := i+1;

    end;

Danke im Voraus

Rene

Daten in StringGrid einlesen und in DB abspeichern

Daten in StringGrid einlesen und in DB abspeichern

Forumregeln