1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| procedure TfDND.TMSFMXGrid1RowDragged(Sender: TObject; FromRow, ToRow: Integer);
var
i : integer;
sREQ, sREQdeb, sREQfin : String;
begin
sREQdeb := 'INSERT INTO teTEST (teid, teINDEX) VALUES ';
sReqfin := ' ON DUPLICATE KEY UPDATE teINDEX=VALUES(teINDEX);';
with UniQueryUID do try
for i := min(FromRow, ToRow) to max(FromRow, ToRow) do begin
TMSFMXGrid1.Cells[2, i] := intToStr(i);
if (sREQ = '') then sREQ := sREQdeb else sREQ := sREQ +', ';
sREQ := sREQ + '(' + quotedstr(TMSFMXGrid1.Cells[1, i]) + ',' + intToStr(i) +')' ;
end;
sREQ := sREQ + sREQfin;
SQL.Clear;
SQL.Add(sREQ);
Execute;
Close;
except
{$IFDEF DEBUG}
on E: EDatabaseError do
showmessage(E.Message);
{$ELSE}
Close;
with UniConnection1 do
if Connected then Connected := False;
MessageDlg( 'Erreur critique', 'La liaison internet avec la base est impossible. ' +
'Le programme va s''arrêter.',
mtError, [mbOK], 0);
Application.Terminate;
{$ENDIF}
end;
end; |
Partager