有时候,用户需要经常更换数据源获取数据,那么我们做的固定的连接字符串就不能满足需要,这时候,可以让用户自行选择所需要的数据源,程序可根据用户所选择的数据源生成连接字符串,这样就能实现用户所需的自定义数据源.
以下步骤设置 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.保存项目并运行