引用DAO3.6建立ACCESS2000数据库,引用DAO3.5建立ACCESS97数据库
Dim db As Database
Set db = CreateDatabase("c:\new.mdb", dbLangChineseSimplified)
db.Close
Dim db As Database
Set db = CreateDatabase("c:\new.mdb", dbLangChineseSimplified)
db.Close
解决方案 »
- VB中Combox 如何不用鼠标点而用键盘操作(如回车)就自动下拉
- 用listview显示数据.怎么才能使数据按照单双行背景颜色不同.
- 跪求用Excel VBA实现按钮动态调整Enabled属性
- 狂送100分(35)
- 能够用ADO显示出当前连接的数据库中的所有表吗?
- 怎样获得用友,金蝶等公司财务软件数据库的数据词典进行分析??请教高手 UP有分!!!!
- LISTVIEW怎么将内容写入数据库
- 进来就给分,问题解决追加300分
- VB6 动态调用标准dll,返回乱码并转换为正确结果问题。
- 用Vb开发桌面数据库(不包含服务/客户模式),使用什么样的技术最好???
- 怎样才可以使窗体右上角的关闭键不可用
- VB怎么应用同样也是用VB制作的DLL库啊?
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
要用的时候,用FileCopy命令就可以获得一个新公司的数据库文件了。