VB中如何创建Access数据库??

[cjwcyc]

VB中如何创建Access数据库??

[山顶洞人-平]

引用Microsoft DAO 2.51 Library
'*************************************************
'建立数据库
'*************************************************
Public Function CreateDeviceRecordDatabase(DatabasePathName As String)

'建立数据库所必须的变量
Dim m_Database As dao.Database
Dim m_TableDef As dao.TableDef
Dim m_Field As dao.Field
Dim m_RecordSet As dao.Recordset
Dim m_Index As dao.Index

On Error GoTo ErrDescription:
Set m_Database = Workspaces(0).CreateDatabase(DatabasePathName, dbLangGeneral)

On Error Resume Next

'建立设备保养信息表-----------------------------------------------
Set m_TableDef = m_Database.CreateTableDef("表名")

'建立表的域
Set m_Field = m_TableDef.CreateField("SerialNumber", dbText) '设备编号
m_TableDef.Fields.Append m_Field
Set m_Field = m_TableDef.CreateField("Type", dbText) '型号规格
m_TableDef.Fields.Append m_Field


m_Database.TableDefs.Append m_TableDef
'使用Append方法把表添加到数据库中

'添加索引
Set m_Index = m_TableDef.CreateIndex("SerialNumberIndex")
m_Index.Primary = True
Set m_Field = m_Index.CreateField("SerialNumber")
m_Index.Fields.Append m_Field
m_TableDef.Indexes.Append m_Index

m_Database.Close '关闭数据库

Exit Function
ErrDescription:
MsgBox "建立数据库" + DatabasePathName + "失败!", vbCritical, "错误提示"

End Function

[cjwcyc]

如何修改Access中字段属性"允许空字符串""必填字段"等

[piaocl]

用ADOX类库，可以建立数据库

[huang168]

关注中