＋设为首页 ＋添加到收藏夹
如何在vb程序中创建Access数据库
谢了
Dim MyTable As TableDef, MyField As Field
Dim MyDatabase As Database
Set MyDatabase = CreateDatabase(cProgramPath + "\Trade.mdb", dbLangGeneral, dbEncrypt)
Set MyTable = MyDatabase.CreateTableDef("System")
Set MyField = MyTable.CreateField("APPLNAME", dbText, 100) 项目名称
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("SERVERNAME", dbText, 15) 服务器名称
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("LOGONNAME", dbText, 15) 数据库用户
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("PASSWORD", dbText, 15) 数据库口令
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("DATANAME", dbText, 15) 数据库名称
MyTable.Fields.Append MyField
MyDatabase.TableDefs.Append MyTable
MyDatabase.NewPassword "", "allway"
MyDatabase.Close
