1,216
社区成员
发帖
与我相关
我的任务
分享新手等待…… 如何建立access数据库
如何建立access数据库：我做了一个计数器，如何将输入的内容创建到access中？？？还是不能这么做，改用其他方法？？？
...全文
请发表友善的回复…
发表回复
northwolves 2003-03-22
- 打赏
- 举报
肯定可以 ，参考以前的帖子
chenyu5188 2003-03-22
- 打赏
- 举报
就在ACCESS内建，建好了再用VB来操作它
xinshou1979330 2003-03-22
- 打赏
- 举报
同意楼上说的
为什么不用SQL呢？？？
建议用SQL SERVER2000
为什么不用SQL呢？？？
建议用SQL SERVER2000
qbilbo 2003-03-22
- 打赏
- 举报
引用 Microsoft DAO 3.51 Object Library。
Public Sub CreateTestDB()
Dim Db As Database, TB As TableDef, FLD(2) As Field
Dim i As Integer
Set Db = DBEngine.CreateDatabase("c:\test.mdb", dbLangGeneral)
Set TB = Db.CreateTableDef("test")
Set FLD(0) = TB.CreateField("String", dbText, 7)
Set FLD(1) = TB.CreateField("Int1", dbInteger, 2)
Set FLD(2) = TB.CreateField("Int2", dbInteger, 2)
For i = 0 To 2
TB.Fields.Append FLD(i)
Next
Db.TableDefs.Append TB
Db.Close
Set TB = Nothing
Set Db = Nothing
End Sub
上面的代码是在C盘根目录建立一个名为test.mdb的数据库，该数据库中有一个名为test的表，里面有三个字段：String,Int1,Int2,分别是String型和Integer型。
Public Sub CreateTestDB()
Dim Db As Database, TB As TableDef, FLD(2) As Field
Dim i As Integer
Set Db = DBEngine.CreateDatabase("c:\test.mdb", dbLangGeneral)
Set TB = Db.CreateTableDef("test")
Set FLD(0) = TB.CreateField("String", dbText, 7)
Set FLD(1) = TB.CreateField("Int1", dbInteger, 2)
Set FLD(2) = TB.CreateField("Int2", dbInteger, 2)
For i = 0 To 2
TB.Fields.Append FLD(i)
Next
Db.TableDefs.Append TB
Db.Close
Set TB = Nothing
Set Db = Nothing
End Sub
上面的代码是在C盘根目录建立一个名为test.mdb的数据库，该数据库中有一个名为test的表，里面有三个字段：String,Int1,Int2,分别是String型和Integer型。
zhoujianfengren 2003-03-22
- 打赏
- 举报
建议你看看access的帮助。那里面比较详细！
leixuejun 2003-03-22
- 打赏
- 举报
初学者嘛,就在ACCESS里建比较好.建好了再用就是了.
lin131420cn 2003-03-22
- 打赏
- 举报
干吗用DAO呢，用ADO2.0不是更好吗
yjplus 2003-03-22
- 打赏
- 举报
create table XXXX XXXX
bensonlc 2003-03-22
- 打赏
- 举报
谢谢大家，请继续给意见
bensonlc 2003-03-21
- 打赏
- 举报
try
smartluwei 2003-03-19
- 打赏
- 举报
用SQL呀，insert语句添加到数据库表里
bluesanke 2003-03-19
- 打赏
- 举报
用vb菜单里的---》外接程序----》可视话程序管理器————》新建——》access——》7。0 mdb
或者在access中新建！
或者在access中新建！
饮水需思源 2003-03-19
- 打赏
- 举报
输入的内容？你难道连表结构也让用户创建？
bluemeteor 2003-03-19
- 打赏
- 举报
UP
litsnake1 2003-03-19
- 打赏
- 举报
？？？？
