急,怎样用ADO建立access数据库及,在access数据库中新建表格

hotmeteor 2001-11-14 03:17:07
...全文
111 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
headwind 2001-11-14
  • 打赏
  • 举报
回复

dim Num_Dig_J as integer
headwind 2001-11-14
  • 打赏
  • 举报
回复
不好意思,漏了一句:
dim DBPATH_Name as string
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
DBPath_Name = App.Path & "\" & Num_Dig_J & ".mdb"
strDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath_Name
strTab01.Name = "yh" & Num_Dig_J '表名
strTab01.Columns.Append "YHXM", adVarWChar, 14 '字段名
strTab01.Columns.Append "YHDH", adVarWChar, 14 '同上
strDB.Tables.Append strTab01
81083 2001-11-14
  • 打赏
  • 举报
回复
先引用“Microsoft DAO 3.6 Object Library”

Dim db As Database '数据库对象定义
Dim dbName As String '数据库文件名
dbName = "NewDB.mdb"
Set db = CreateDatabase(dbName, dbLangChineseSimplified, dbEncrypt) '建立数据库
db.Execute "create table 表名 (field1 long,field2 text(8))" '添加表
db.Close
Set db = Nothing
sonicdater 2001-11-14
  • 打赏
  • 举报
回复
我一般用dao 建数据库, 要用 ado的话,就必须用 adox . 在 "工程"-"引用" 里,添加 它.

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, 10) '添加字段
db.TableDefs.Append tb '添加表

一切OK。当然,别忘了“引用”“Microsoft DAO 3.6 Object Library”。
baoxiang 2001-11-14
  • 打赏
  • 举报
回复
http://www.csdn.net/expert/topic/369/369996.shtm

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧