添加记录问题
如何用语句添加一条记录进access中,并且添加的记录按时间进行升序排序!Dim strSQL As String
strSQL = "select * from Tableqxcjsj where dayrq >=#" & TxtTime.Text & "# order by dayrq asc "
Dim Brs As New ADODB.Recordset
Brs.CursorLocation = adUseClient
Brs.Open strSQL, Aconn, adOpenDynamic, adLockOptimistic
If Brs.RecordCount > 0 Then
MsgBox "记录已经存在!"
Exit Sub
Else
Ars.AddNew
Ars.Fields("ldtd") = TxtLd.Text
Ars.Fields("wdtm") = TxtWd.Text
Ars.Fields("dayrq") = TxtTime.Text
Ars.Fields("bc10fz") = TxtFx.Text & "/" & TxtFs.Text
Ars.Fields("cylp") = TxtQy.Text
Ars.Fields("xzqyp") = TxtHy.Text
Ars.Fields("xdwdrh") = TxtSd.Text
Ars.Fields("wdmaxtm") = TxtZg.Text
Ars.Fields("wdmintm") = TxtZd.Text
Ars.Fields("rjsrain") = TxtJs.Text
Ars.Fields("tqxxsky") = TxtXx.Text
Ars.Fields("lblsee1") = TxtNjd.Text
Ars.Update
MsgBox "添加成功!"
Brs.Close
End If
麻烦看下怎么不对! --------------------编程问答-------------------- 添加记录还排序啊
补充:VB , 数据库(包含打印,安装,报表)