保存时是不是写到数据库里后在排。 Dim rs2 As Recordset dim strsql as string Set rs2 = New ADODB.Recordset strsql = "select * from data where id='" & Trim(T_jh) & " ' " rs2.Open strsql, dbcn, adOpenStatic, adLockOptimistic With rs2 .AddNew .Fields(0) = data1 .Fields(1) = data2 .Update End With strsql = "select * from WJM order by data1,data2" rs2.Open strsql, dbcn, adOpenStatic, adLockOptimistic
select * from 表 where 条件 order by 需要排序的字段 ASC 'ASC 表示升序
select * from 表 where 条件 order by 需要排序的字段 ASC 'ASC 表示升序
select * from table order by 字段1,字段2
先按字段1排序,如果字段1相同再按字段2排序。
order by column desc
说明:desc是指从大到小排列,若没有指明,则是从小到大排列
我用的ADO的方式,Access数据库
Dim rs2 As Recordset
dim strsql as string
Set rs2 = New ADODB.Recordset
strsql = "select * from data where id='" & Trim(T_jh) & " ' "
rs2.Open strsql, dbcn, adOpenStatic, adLockOptimistic
With rs2
.AddNew
.Fields(0) = data1
.Fields(1) = data2
.Update
End With
strsql = "select * from WJM order by data1,data2"
rs2.Open strsql, dbcn, adOpenStatic, adLockOptimistic