简单问题。
Private Sub CmdNew_Click()
datapath$ = InputBox("请输入新建数据库名称", "数据库名称")
If datapath$ = "" Then
string1$ = MsgBox("未建数据库!", vbOKOnly + 48, "警告")
Else:
Set MyDatabase = Workspaces(0).CreateDatabase(datapath$, dbLangGeneral)
CmdAddTab.Enabled = True
CmdAddTab.SetFocus
End If
End Sub
-------------------------------------------------------------------
按钮三个cmdnew cmdaddtab cmdok
问题1:else 后面有无(:)有什么区别,我觉得应该没有区别吧。
问题2:对于新建数据库的代码 ,建的数据库datapath$出现在默认的路径中,即是vb的安装目录,我想让新建数据库的地址放在别的目录下,代码是什么呢?比如是d:\vb。