使用UDL获取连接字符串

有时候,用户需要经常更换数据源获取数据,那么我们做的固定的连接字符串就不能满足需要,这时候,可以让用户自行选择所需要的数据源,程序可根据用户所选择的数据源生成连接字符串,这样就能实现用户所需的自定义数据源.
以下步骤设置 VB.Net 示例演示如何使用 DataLinks 对象来编辑连接字符串属性的 ADO 连接对象:
1. VisualBasic 中新建一个新的标准 EXE 项目。 默认情况下创建 Form 1。
2. 在 项目 菜单, 设置对 Microsoft ActiveX Data Objects 2 和 OLE OLEDB 服务组件 1.0 类型库 引用。

 
3. 分别拖放一个Label、TextBox和Button到界面上，分别命名为lblConn、txtConn和btnConn。

4.双击btnConn,在Click事件中加入如下代码：
 Dim MSDASCObj As MSDASC.DataLinks
        MSDASCObj = New MSDASC.DataLinks

        Dim cn = New ADODB.Connection
        MSDASCObj.PromptEdit(cn)

        Try
            cn.Open()
            txtConn.Text = cn.ConnectionString
        Catch ex As Exception
            MsgBox("打开连接失败!")
        Finally
            If cn.State = ConnectionState.Open Then
                cn.Close()
            End If
        End Try
5.保存项目并运行