使用ADO对象比较好,菜单"工程"->"引用" 找 Microsoft ActiveX Data Object.... Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim SqlStr As String cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source。"‘你的连接串,可以从ADODC控件中拷贝出来 SqlStr = "Select * From 某个表 order by 字段名" rst.CursorLocation = adUseClient rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集 Set DataGrid1.DataSource = rst '给DataGrid修改数据源
order by 字段名 ASC order by 字段名 DESC 看看哪个合适,应该是后者吧
楼上大哥 我在 adodc1的属性》记录源 直接在命令文本(sql) 里面输入 Select * From 某个表 order by 字段名 desc 好像就可以了。 然后我在 每次查询的末尾 再加上 order by 字段名 desc 这样貌似也ok了 我这样做会不会有什么后遗症呢?
Adodc1.RecordSource = "Select * From 某个表 order by 字段名 desc" 用代码可以设置的
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source。"‘你的连接串,可以从ADODC控件中拷贝出来
SqlStr = "Select * From 某个表 order by 字段名"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst '给DataGrid修改数据源
order by 字段名 DESC
看看哪个合适,应该是后者吧
我在 adodc1的属性》记录源 直接在命令文本(sql) 里面输入 Select * From 某个表 order by 字段名 desc 好像就可以了。
然后我在 每次查询的末尾 再加上 order by 字段名 desc 这样貌似也ok了 我这样做会不会有什么后遗症呢?
用代码可以设置的