delphi排序降

Question

我想排序的記錄（降序），並顯示在網格中通過數據源連接到數據集的數據Vw_EmpVacations 這裏是代碼，請告訴我我做錯了什麼 由這樣，視圖排序降序根據起始日期，當我在數據庫中執行它

Vw_EmpVacations.Active:=false; 
Vw_EmpVacations.SQL.Text:='select * from Vw_EmpVacations where Branch_ID=:x and emp_id=:y and vac_id=:z order by Start_Date Desc '; 
Vw_EmpVacations.Parameters[0].Value:=branch_ID; 
Vw_EmpVacations.Parameters[1].Value:=emp_Id; 
Vw_EmpVacations.Parameters[2].Value:=Vac_ID; 
Vw_EmpVacations.Active:=true; 

謝謝

Answer 1

我會盡力幫助你，儘管事實是，你在你的問題的細節非常稀疏; - ）

請創建一個新的VCL Forms應用程序 - Delphi For Win32項目。 然後，該代碼替換項目的來源：

program SortTest; 

uses 
    Forms, ADODB, DB, DBGrids; 

var 
    qrySortTest: TADOQuery; 
    conSQL2005: TADOConnection; 
    dsSortTest: TDataSource; 
    grdTest: TDBGrid; 
    MainForm: TForm; 
begin 

    Application.Initialize; 

    conSQL2005 := TADOConnection.Create(Application); 
    with conSQL2005 do 
    begin 
    Name := 'conSQL2005'; 
    //Do not forget to change the connection string 
    ConnectionString := 
     'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' + 
     'fo=False;Data Source=WODZU-LAPTOP\SQL2005S'; 
    LoginPrompt := False; 
    Provider := 'SQLOLEDB.1'; 
    Connected := True; 
    end; 

    qrySortTest := TADOQuery.Create(Application); 
    with qrySortTest do 
    begin 
    Name := 'qrySortTest'; 
    Connection := conSQL2005; 
    CursorType := ctStatic; 
    SQL.Clear; 
    SQL.Add('SELECT '#39'Kowalsky'#39' as Surname, 25 as Age'); 
    SQL.Add('UNION'); 
    SQL.Add('SELECT '#39'Smith'#39', 38'); 
    SQL.Add('UNION'); 
    SQL.Add('SELECT '#39'Jensen'#39', 11'); 
    SQL.Add('UNION'); 
    SQL.Add('SELECT '#39'Doe'#39', 26'); 
    SQL.Add('UNION'); 
    SQL.Add('SELECT '#39'Clarke'#39', 45'); 
    SQL.Add('ORDER BY AGE DESC'); 
    Active := True; 
    end; 

    dsSortTest := TDataSource.Create(Application); 
    with dsSortTest do 
    begin 
    Name := 'dsSortTest'; 
    DataSet := qrySortTest; 
    end; 

    MainForm := TForm.Create(Application); 
    MainForm.Position := poScreenCenter; 

    grdTest := TDBGrid.Create(Application); 

    with grdTest do 
    begin 
    Name := 'grdTest'; 
    Parent := MainForm; 
    Left := 8; 
    Top := 8; 
    Width := 320; 
    Height := 120; 
    DataSource := dsSortTest; 
    TabOrder := 0; 
    end; 


    MainForm.ShowModal; 

    Application.Run; 
end. 

記得把正確的連接字符串到您的SQL Server，否則將無法正常工作。 運行測試，它是否顯示按Age列降序排列的行？如果是，那麼這是你開始的地方。

將qrySortTest.SQL替換爲您的無參數查詢並檢查它是否有效。如果沒有，那麼問題在於你的查詢不在組件設置中。

希望這會有所幫助。