作者：绿色风
分类：
时间：2022-08-17
浏览：106
楼主
wise |
Q:如何在ACCESS的student文件中创建期末成绩数据库?
需要用到Excel+ADO+VBA+ACCESS等方面的知识
A:ALT+F11→插入模块→输入以下代码:
- Sub CreateData()
- Dim myCat As New ADOX.Catalog '需要引用：微软 ADO Ext.6.0 for dll
- '注意该处引用
- Dim myTbl As New Table
- Dim myData As String
- Dim myTable As String
- myData = ThisWorkbook.Path & "\student.accdb"
- myTable = "期末成绩"
- On Error Resume Next
- Kill myData
- On Error GoTo 0
- myCat.Create "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myData
- '该处是关键
- With myTbl
- .Name = myTable
- '期末成绩的列名
- .Columns.Append "学号", adVarWChar, 10
- .Columns.Append "姓名", adVarWChar, 6
- .Columns.Append "性别", adVarWChar, 1
- .Columns.Append "班级", adVarWChar, 10
- .Columns.Append "数学", adSingle
- .Columns.Append "语文", adSingle
- .Columns.Append "物理", adSingle
- .Columns.Append "化学", adSingle
- .Columns.Append "英语", adSingle
- .Columns.Append "总分", adSingle
- End With
- myCat.Tables.Append myTbl
- '将表头名称Append到期末成绩数据库中去
- Set myCat = Nothing
- Set myTbl = Nothing
- MsgBox "创建数据库成功！" & vbCrLf _
- & "数据库文件名为：" & myData & vbCrLf _
- & "数据表名称为：" & myTable & vbCrLf _
- & "保存位置：" & ThisWorkbook.Path, _
- vbOKOnly + vbInformation, "创建数据库"
- End Sub
 VBA+ADO+Access.rar
|
2楼
水星钓鱼 |
学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一