数据库排序

一．对数据库所打开的记录集排序，本身并没有排序

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列操作，可以用冒泡排序之类的方法来做，很麻烦

数据库基础没看过，感觉像空中楼阁，哎，木办法...