Demon521

Troubleshooting. Good luck to me 2009! 人生中没有Ctrl+Z!
  博客园  :: 首页  :: 联系 :: 订阅 订阅  :: 管理

快速找到并输入连接数据源的字符串

Posted on 2009-01-13 10:35  Demon521  阅读(201)  评论(0编辑  收藏  举报

快速找到并输入连接数据源的字符串

通常,在Excel VBA中要与外部数据库连接前,必须先建立与该数据源的连接,即要设置连接字符串,如下面的代码:
Dim strConnectString As String
strConnectString=” Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\FW\桌面\Northwind.mdb;Persist Security Info=False”
如果直接输入,将很麻烦且易出错。我们可以使用下面的方法:
步骤1 在桌面建立一个文本文件,并将其扩展名改为“udl”,如下图。
udlfile1
步骤2 双击该文件,出现“数据链接属性”对话框,如下图。
Datalinkpropertydia
在“提供程序”选项卡的列表中选择希望连接的数据源,本例为“Microsoft Jet 4.0 OLE DB Provider”。
步骤3 然后,单击“下一步”按钮,如图所示,转到“连接”选项卡(不同的数据源此选项卡中的内容会有所不同)。
Datalinkpropertydia1
步骤4 单击“选择或输入数据库名称”文本框右侧的选择按钮,选择相应的数据库文件。单击“确定”按钮。
步骤5 在记事本中打开该文件,如下图。
resulttxt2
其中,以Provider开头的两行即为连接字符串。我们可以将其直接复制到程序代码中。