一.对数据库所打开的记录集排序,本身并没有排序
DataControlSequence为data控件的名称
1.DataControlSequence.RecordSource = "SELECT * FROM ControlSequence_NY_1 ORDER BY Sequence" '对记录集进行排序
2.DataControlSequence.Refresh 排序后的内容反映到绑定控件上
3.DBGControlSequence.Refresh
二.对数据库排序,但前提是数据库必须是关闭的相当于复制了数据库
'创建原始数据表2
sSQL = "CREATE TABLE PrimalData2" & "(" & vbCrLf & _
"Pressure FLOAT," & vbCrLf & _
"TTime FLOAT," & vbCrLf & _
"Temperature FLOAT," & vbCrLf
sSQL = Left(sSQL, Len(sSQL) - 3)
sSQL = sSQL & ")"
TempOrderDb.Execute sSQL
'排序
sSQL = "INSERT INTO PrimalData2 SELECT * FROM PrimalData ORDER BY TTime"
TempOrderDb.Execute sSQL
'删除原表
sSQL = "drop table PrimalData"
TempOrderDb.Execute sSQL
'新表重命名
TempOrderDb.TableDefs("PrimalData2").Name = "PrimalData
TempOrderDb.Close
Set TempOrderDb = Nothing
三.对数据库本身进行排序,可以是打开的
Set RS = DataControlSequence.Recordset直接对数据库进行操作
RS.Fields(j)为对第j列操作,可以用冒泡排序之类的方法来做,很麻烦
数据库基础没看过,感觉像空中楼阁,哎,木办法...