Question

急！怎样用VB调用access数据库进行自定义排序，比如用学生学号进行排序，请给出一段代码

能详细的给一段代码吗？select * from 表 order by 学号 这语句我理解但不会用啊!

Answer 1

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\tmp\学生.mdb"
rs.Open "select * From 学生情况 order by 学号", cn
'这样rs中就得到了“学生情况”这个表中所有按学号由小到大排序后的数据，
'在这里你就可以作进一步的处理了
'........
rs.Close
cn.Close

'注意，要在工程中引用ADO才能使用

Answer 2

每个窗体都要连接数据库才可以的
Private Sub Command3_Click()
Adodc1.RecordSource = "select * from stuchenji order by 学号 desc"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Form_Load()
Dim mlink$
mpath = App.Path
If Right(mpath, 1) <> "\" Then mpath = mpath + "\"
mlink = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" + mpath + "stuchenji.mdb;Persist Security Info=False; " '无密码
Adodc1.ConnectionString = mlink
Adodc1.CommandType = adCmdUnknown
End Sub

Answer 3

select * from 表 order by 学号