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

在Datagrid中对信息进行排序

1 个答案: