データグリッド内の情報の並べ替え

Question

私はVB6のアクセスデータベースにリンクされたデータグリッドを持っています。ユーザーがコマンドボタンをクリックすると、データを昇順で並べ替える方法を教えてください。

マイコード：

Private Sub Form_Load() 
    connSearch.Open connstr 
    Adodc1.ConnectionString = Conn.connstr 
    Set StudentTable.DataSource = Adodc1 
    Adodc1.Visible = False 
End Sub 

Private Sub cmdSort_Click() 
    Dim LNsql As String 
    connSearch.Close 
    connSearch.Open connstr 
    LNsql = "select * from Table1 order By LastName" & " " & StudentTable.Columns(2).Caption & "Asc" 
    StudentTable.Refresh 
End Sub 

Answer 1

レコードセットのCursorLocationプロパティがadUseClientのために設定されている場合は、レコードセットを閉じて再度開く必要はありません。ちょうどRecordset.Sortメソッドを使用してください。

Private Sub cmdSort_Click() 
    Adodc1.Recordset.Sort = "LastName" 'data field name 
End Sub