简单问题。

Question

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。

Answer 1

Private Sub CmdNew_Click()
     datapath$ = InputBox("请输入新建数据库名称", "数据库名称")
  If datapath$ = "d:\vb" Then
     string1$ = MsgBox("未建数据库！", vbOKOnly + 48, "警告")
  Else
     Set MyDatabase = Workspaces(0).CreateDatabase(datapath$, dbLangGeneral)
     CmdAddTab.Enabled = True
     CmdAddTab.SetFocus
  End If
End Sub1.没有
2.是的

Answer 2

问题1
加“：”后可写成这样
if XXX then 
   msgbox "bb"
else: msgbox "aa"问题2
你的程序改为:Private Sub CmdNew_Click()
ChDir "c:\"   '写你的目录或 写 app.path 当前应用程序目录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

Answer 3

若还有问题可  mailto : [email protected]

Answer 4

2：你放daillog就可以了实现你所要的保存了