关于你这个计算机毕业设计相关的代码我还是比较精通的,我可以给你写一些你参考一下
组卷过程:在这里先给出窗体加载时的代码,主要是完成一些数据库的绑定:
Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path & "\zj.gif")
For i = 0 To 4
Adodc1(i).ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" + App.Path + "\datadb.mdb;"
Next
Adodc1(0).RecordSource = "选择题"
Adodc1(1).RecordSource = "书面表达"
Adodc1(2).RecordSource = "短文改错"
Adodc1(3).RecordSource = "阅读理解"
Adodc1(4).RecordSource = "完型填空"
For i = 0 To 4
Adodc1(i).Refresh
Adodc1(i).Recordset.Filter = adFilterNone
Next
Data1.DatabaseName = App.Path & "\tempdb.mdb"
Data1.RecordSource = "temp"
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\tempdb.mdb"
Adodc2.RecordSource = "temp"
Adodc2.Refresh
Data1.DatabaseName = App.Path & "\tempdb.mdb"
Data1.RecordSource = "temp"
End Sub
参考资料:www.lw328.com