请问如何用ADO创建一个access 的数据库并生成表

2001-11-14 12:02:47 309 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

永磁同步电机FOC控制实战：如何用线性死区补偿解决低速抖动问题（附Matlab仿真代码）本文详细介绍了永磁同步电机FOC控制中线性死区补偿技术的工程实现方法，有效解决低速抖动问题。通过Matlab/Simulink仿真验证，该方案可将转矩脉动降低70%以上，显著提升系统稳定性。文章包含完整的数学模型构建、Simulink实现步骤及参数整定技巧，为工程师提供实用解决方案。阅读详情

请问如何用ADO创建一个access 的数据库并生成表、索引等
要求能创建一个空的数据库文件，过程全部用代码解决。

...全文

AI脸部替换Roop-Unleashed，一键整合包教程 Roop-Unleashed是一个无须训练模型的深度伪造工具，专为图像和视频的面部替换而设计。它通过简洁的浏览器界面提供用户友好且跨平台的使用体验，无论用户是业余爱好者还是专业人士，都能快速上手。它无需复杂的设置即可实现高效的处理和转换，使图像和视频的编辑变得更加轻松和便捷。阅读详情

htu

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

icyer 2001-11-14

打赏
举报

还是用DAO比较好。
这里有个例子：

Dim db As Database
Dim tb As TableDef

Set db = CreateDatabase("G:\test.mdb", dbLangGeneral) '建立数据库
Set tb = db.CreateTableDef("table1") '建立表

tb.Fields.Append tb.CreateField("Field1", dbText) '添加字段
db.TableDefs.Append tb '添加表

一切OK。当然，别忘了“引用”“Microsoft DAO 3.6 Object Library”。

feihong0233 2001-11-14

打赏
举报

可以用DAO建库啊，
再用SQL CREATE TABLE 建一个表。
为什么一定要用ADO建？

Wesely 2001-11-14

打赏
举报

用ADOX或是JRO。
以前有这论题的贴子，你找找。

headwind 2001-11-14

打赏
举报

‘来’字的位置错了~
用ADO扩展来建数据库

headwind 2001-11-14

打赏
举报

用ADO来扩展建数据库~~
首先要引用：Microsoft ADO Ext.27 for DLL and securiy
Dim strDB As New ADOX.Catalog
Dim strTab01 As New ADOX.Table
dim DBPATH_Name as string
DBPath_Name = App.Path & "\" & Num_Dig_J & ".mdb"
strDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath_Name
strTab01.Name = "yh" '表名
strTab01.Columns.Append "YHXM", adVarWChar, 14 '字段名
strTab01.Columns.Append "YHDH", adVarWChar, 14 '同上
strDB.Tables.Append strTab01
Mircosoft.jet.oledb.4.0代表office 2000
Mircosoft.jet.oledb.3.51代表office 97

icyer 2001-11-14

打赏
举报

我只用过ADO建立SQL Server数据库。

htu 2001-11-14

打赏
举报

谢谢大家的例子，不过我还是想问一下有没有ado的例子

sagewjx 2001-11-14

打赏
举报

Option Explicit

Dim mydb As Database, myws As Workspace
Dim autd As TableDef, tittd As TableDef, pubtd As TableDef
Dim auflds(2) As Field, titflds(5) As Field, pubflds(10) As Field, ixflds(0) As Field
Dim auidx As Index, titidx(3) As Index, pubidx As Index

Private Sub Command1_Click()
Dim dbversion25 As Variant
'使用workspace对象的CreateDatabase方法创建新的数据库
Set myws = DBEngine.Workspaces(0)
Set mydb = myws.CreateDatabase(App.Path + "\test.mdb", dbLangGeneral, dbversion25)
'使用Database对象的CreateTableDef方法为数据库中的所有表创建新的TableDef对象
Set autd = mydb.CreateTableDef("authors")
'使用TableDef对象的CreateField方法,为表中每个字段创建Field域,然后设置每一个字段的字段 _
长度,数据类型和其他所需的属性
Set auflds(0) = autd.CreateField("au_id", dbLong)
'使其成为记数字段
auflds(0).Attributes = dbAutoIncrField
Set auflds(1) = autd.CreateField("author", dbText)
auflds(1).Size = 50
'用Append方法把每个字段添加到表中,并把每个表添加到数据库中
autd.Fields.Append auflds(0)
autd.Fields.Append auflds(1)
Set auidx = autd.CreateIndex("au_id")
auidx.Primary = True
auidx.Unique = True
Set ixflds(0) = auidx.CreateField("au_id")
auidx.Fields.Append ixflds(0) '在index对象的fields集合中追加字段
autd.Indexes.Append auidx '在indexs集合中追加索引
mydb.TableDefs.Append autd '在tabledefs集合中追加tabledef
End Sub

火鸟李国平 2001-11-14

打赏
举报

GZZ

请问如何用ADO创建一个access 的数据库并生成表

相关推荐