Сортировка информации в Datagrid

Question

У меня есть datagrid, связанный с базой данных доступа в 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 свойство вашего RecordSet установлен в adUseClient вам не нужно, чтобы закрыть и повторно открыть набор записей. Просто используйте метод Recordset.Sort.

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