如何用VB代码创建一个ACCESS的MDB文件

阿土伯伯 2003-02-28 02:57:40
望有人能告诉我详细实现步骤,谢谢!
...全文
446 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
阿土伯伯 2003-03-02
  • 打赏
  • 举报
回复
谢谢各位了,谢谢!
ll_angel 2003-02-28
  • 打赏
  • 举报
回复
up!
northwolves 2003-02-28
  • 打赏
  • 举报
回复
引用Microsoft ADO Ext. 2.1 for DDL and Security

Sub creatmdb() '创建数据库
If Dir("d:\new.mdb") <> "" Then Kill "d:\new.mdb"
Dim mycat As New ADOX.Catalog
mycat.Create "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=d:\new.mdb"
MsgBox "创建数据库 e:\new.mdb 成功!"
End Sub
Sub createtable() '创建数据库的表
On Error Resume Next
Dim mycat As New ADOX.Catalog
Dim mytable As New ADOX.Table
mycat.ActiveConnection = "Provider=MicroSoft.Jet.OLEDB.3.51;Data Source=d:\new.MDB"
For i = 1 To 9
mytable.Name = "表" & i
mytable.Columns.Append "字段1", adDate
mytable.Columns.Append "字段2", adInteger
mytable.Columns.Append "字段3", adBoolean
mytable.Columns.Append "字段4", adVarChar
mycat.Tables.Append mytable
Set mytable = Nothing
Next
MsgBox "创建 表1----表9 成功!"
Set mycat.ActiveConnection = Nothing
End Sub


Private Sub Command1_Click()
creatmdb
createtable
End Sub
Zedee 2003-02-28
  • 打赏
  • 举报
回复
同意bdhh(Silent)
胖河马 2003-02-28
  • 打赏
  • 举报
回复
引用Microsoft ADO Ext. 2.x for DDL and Security

Dim cat As Catalog
Set cat = New Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\abc.mdb"
Set cat = Nothing
其它建表之类的操作你看adox的帮助吧
holydiablo 2003-02-28
  • 打赏
  • 举报
回复
用DAO
先引用MSDAO3.51或是3.6
Public Sub CreateDB(ByVal strDNname As String)
Dim dbNew As DAO.Database
Dim tdfNew As DAO.TableDef
Dim idxNew As DAO.Index
Dim relNew As DAO.Relation
Dim rstUpload As DAO.Recordset

'Me.MousePointer = vbHourglass
Set dbNew = CreateDatabase(strDNname, dbLangGeneral)

With dbNew
Set tdfNew = .CreateTableDef("Table")
With tdfNew
.Fields.Append .CreateField("ID", dbText, 10)
.Fields.Append .CreateField("Reserve1", dbText, 16)
.Fields.Append .CreateField("Reserve2", dbText, 16)
.Fields.Append .CreateField("Reserve3", dbText, 16)
'还可以加更多
Set idxNew = .CreateIndex("Primary")
With idxNew
.Fields.Append .CreateField("ID")
.Primary = True
End With
.Indexes.Append idxNew
End With
.TableDefs.Append tdfNew
.Close
End With
End Sub

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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