菜鸟提问,各位大虾帮忙啊.

Question

这个是我的一段代码:
Private Sub Form_Load()
'创建对象
Dim mydatabase As Database'创建数据库
Set mydatabase = Workspaces(0).CreateDatabase("c:\mydata1.mdb", dbLangGeneral, dbversion70)'创建表
Dim mytabledef As TableDef
Set mytabledef = mydatabase.CreateTableDef("mytable1")'创建字段
Dim myfield As Field
Set myfield = mytabledef.CreateField("序列号", dbText, 20)
mytabledef.Fields.Append myfieldSet myfield = mytabledef.CreateField("产品型号", dbText, 30)
mytabledef.Fields.Append myfieldSet myfield = mytabledef.CreateField("生产日期", dbDate)
mytabledef.Fields.Append myfieldSet myfield = mytabledef.CreateField("客户名称", dbText, 40)
mytabledef.Fields.Append myfieldSet myfield = mytabledef.CreateField("注释", dbText, 200)
mytabledef.Fields.Append myfieldDim myindex As Index
Set myindex = mytabledef.CreateIndex("序列号索引")
myindex.Primary = True
Set myfield = myindex.CreateField("序列号")
myindex.Fields.Append myfield
mytabledef.Indexes.Append myindexEnd Sub这样可以在程序开始建立数据库,但如果已经存在数据库,就会提示错误.我想让它在不存在的时候建立,如果存在就针对已经存在的数据库进行操作,应该怎么修改呢?还有,如果我想让这个数据库建立到程序当前目录下,应该怎么写呢?

Answer 1

用Dir函数查找数据文件Set mydatabase = Workspaces(0).CreateDatabase(app.path &"\mydata1.mdb", dbLangGeneral, dbversion70)

Answer 2

谢谢楼上的兄弟.我自己想了一下,现在改成了这样的.请各位看看.Private Sub Form_Load()
Dim mydatabase As DatabaseOn Error GoTo creatdatabase
Set mydatabase = OpenDatabase(App.Path & "\mydata1.mdb")
Exit Subcreatdatabase:
'创建对象
''创建数据库
Set mydatabase = Workspaces(0).CreateDatabase(App.Path & "\mydata1.mdb", dbLangGeneral, dbversion70)'创建表
Dim mytabledef As TableDef
Set mytabledef = mydatabase.CreateTableDef("mytable1")'创建字段
Dim myfield As Field
Set myfield = mytabledef.CreateField("序列号", dbText, 20)
mytabledef.Fields.Append myfieldSet myfield = mytabledef.CreateField("产品型号", dbText, 30)
mytabledef.Fields.Append myfieldSet myfield = mytabledef.CreateField("生产日期", dbDate)
mytabledef.Fields.Append myfieldSet myfield = mytabledef.CreateField("客户名称", dbText, 40)
mytabledef.Fields.Append myfieldSet myfield = mytabledef.CreateField("注释", dbText, 200)
mytabledef.Fields.Append myfieldDim myindex As Index
Set myindex = mytabledef.CreateIndex("序列号索引")
myindex.Primary = True
Set myfield = myindex.CreateField("序列号")
myindex.Fields.Append myfield
mytabledef.Indexes.Append myindexResumeEnd Sub