使用VB用户输入打开数据库文件

Question

您好，我想按照选择的组合框打开文件。下面的代码不起作用。

Set mydb1 = DBEngine.Workspaces(0).OpenDatabase("\\172.22.30.41\Training-Data\Training\Gaus\Vertical Updates & "\" & Combo1.Text & ".mdb")

有人能给我指出代码中的错误之处吗？

Answer 1

当斜杠位于Updates和Combo1.Text之间时，字符串连接中存在语法错误。我在这个页面上添加了db变量，以便更容易阅读：

Dim db as string
db = "\\172.22.30.41\Training-Data\Training\Gaus\Vertical Updates\" & Combo1.Text & ".mdb"  
Set mydb1 = DBEngine.Workspaces(0).OpenDatabase(db)