Question

求会做ACCESS的高人。要求做个数据库。留邮箱我会把文件发过去。T T我们的破课堂作业，东西不大

就是老师给一半的数据库完成就行了，还有点要求是用PPT和WORLD弄成的，。求高人谢谢

Answer 1

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

追问

会做么，会做留邮箱，我给你发做的那个说明和半成品