ADOQuery、SQL文とデータベース内の行の並び替え

Question

P_Columnsというデータベース表があります。このテーブルには列が含まれます

ID 
Column_Name 
Column_Type 
Column_Visible 
Column_Order 

このデータテーブルには、dbgridを表示するアプリケーションが作成され、更新されます。 このアプリケーションにはボタンがあります。クリックすると、選択した行が取り込まれます。 1行上に移動します（これは私が助けが必要なところです）。

私の最初のSQL文（SELECT * FROM P_Columns Order by Column_Order asc）は正しい順序を設定します。最初は

選択したレコードのColumn_Orderを交換できるようにする更新SQL文があるかどうかを調べる必要があります。その直前の記録と一致している。

希望はこれが理にかなっています。

Answer 1

ここでは、TADOCommandを使用してupdate文を2回呼び出すDelphiコードを示します。これは、MS SQL Serverに対してテストされています。 TADO *コンポーネントを使用しない場合、使用するデータベースコンポーネントに変換できるはずです。 ADODataSet1は、グリッドに表示されるデータです。

var 
    CurrentID: Integer; 
    CurrentOrder: Integer; 
    PrevID: Integer; 
    PrevOrder: Integer; 
begin 
    if ADODataSet1.RecNo > 1 then // Do not move the first row 
    begin 
     CurrentID := ADODataSet1['ID']; 
     CurrentOrder := ADODataSet1['Column_Order']; 

     ADODataSet1.Prior; 
     PrevID := ADODataSet1['ID']; 
     PrevOrder := ADODataSet1['Column_Order']; 

     ADOCommand1.CommandText := 'update P_Columns set Column_Order = :Column_Order where ID = :ID'; 

     ADOCommand1.Parameters.ParamByName('Column_Order').Value := PrevOrder; 
     ADOCommand1.Parameters.ParamByName('ID').Value := CurrentID; 
     ADOCommand1.Execute; 

     ADOCommand1.Parameters.ParamByName('Column_Order').Value := CurrentOrder; 
     ADOCommand1.Parameters.ParamByName('ID').Value := PrevID; 
     ADOCommand1.Execute; 

     ADODataSet1.Requery([]); 
    end; 
end; 

Answer 2

私はちょうど2つのポジションのスワップ

update P_Columns 
set Column_Order = ((select count(*) from P_Columns) + 1) - Column_Order 

Answer 3

...これはあなたのためにそれを行うだろうと信じています。その位置1、位置0と交換することはできませんので、最後のAND :order > 1が

update datatable 
set column_order = case 
         when column_order = :order then column_order-1 
         else column_order+1 
        end 
where column_order in (:order, :order-1) 
    and :order > 1 

（実在しない）に使用されCASE文はほとんどの主要なDBMSに存在する必要があります。

注：（在庫）TADOQueryには、パラメータall 4 :orderを一度に設定しないバグがあります。 DBMSが特定のDBMSに対してクエリを最適化することがわかっていない限り、4つのパラメータはすべて同じ値を保持する必要があります。

Answer 4

私は間違っているかもしれませんが、この場合は1つのステートメントのみの解決策を持つ必要はありません。 UPDATEのステートメントだけを話していたので、あなたはそれを意味するものではありません。しかし、もしあなたがそれを念頭に置いてくれたら、私を許してください。でも、私は進んでいくつもりです。 :)

まず、Column_Orderに実際にギャップがないかどうかを知りたいと思います。値は1から開始はギャップとがない場合、あなたはこれだけの変更でcyberkiwiの溶液で逃げることができるので（まだすべてのクレジットは、その人に行く必要があります）：

ある

declare @order int; 
set @order = :order; 

update P_Columns 
set Column_Order = 
    case 
    when Column_Order = @order then Column_Order - 1 
    else Column_Order + 1 
    end 
where Column_Order in (@order, @order - 1) and @order > 1 

、必要に@varを宣言すると、スクリプトごとに一度だけ:orderが使用されます。 （あなたは既にそれを知っているかもしれません）そしてそこにあなたがいます。

しかし、その解決策をそのまま適用することができない場合、基本的には、スワップされた後に他の順序値を事前に計算して更新する必要があります。

は、ここでは同様のものとすることができるものです。

declare @order int, @prev_order int; 
set @order = :order; 

/* here goes looking up for the other Column_Order */ 
select @prev_order = max(Column_Order) 
from P_Columns 
where Column_Order < @order; 

/* and now update, which is basically the same, 
    only adapted for use with @prevorder, 
    and also we check if @prevorder has a value */ 
if @prevorder is not null 
    update P_Columns 
    set Column_Order = 
    case Column_Order 
     when @order then @prevorder 
     else @order 
    end 
    where Column_Order in (@order, @prevorder) 

ご質問があれば、彼らは歓迎されています。