Author:水如烟
数据源连接字符串的配置是一大学问，这里我也只能说说怎么连接上去。初学的也是只是关心这个问题罢了，至于性能安全等等，我也是不懂的了。
各种数据源的字符串连接形式，在http://www.connectionstrings.com/上都可以方便查到。
数据源的连接因参数多，关键词不好记，所以组装这个字串有些吃力。我们需要的是有一个可视的向导窗体来简化配置的过程。就算没有NET，这个可视窗体早已存在于Window了，那便是控制面版或管理工具里的“数据源(ODBC)”，在添加一个DSN的过程中，指导我们该如何做。而我们更乐于使用的，还是那个“数据链接属性”的对话框。
有时觉得奇怪，既然这个向导窗体那么平常并且是重要的，为什么NET不提供出来呢？
到了NET2005，在X:\Program Files\Microsoft Visual Studio 8\Common7\IDE目录下，我们可以找到两个文件，NET真正的类文件，Microsoft.Data.ConnectionUI.dll和Microsoft.Data.ConnectionUI.Dialog.dll，那是说，它还是给IDE专用的，还不想给Framework2.0。而Framework2.0，程序配置文件对ConnectionString已经有一个Section了，在System.Design.Dll的System.Data.Design命名空间下，已经有一个类ConnectionString了，在System.Data.Dll里，多了一个System.Data.Common命名空间，其下，有关连接的有DbConnection、DbConnectionOptions、DBConnectionString，并且为了组装字符串方便，还有个DbConnectionStringBuilder类。具体到特定连接方式时，都继承了上面提到的类。估计呢，下一版本，应该有一个关于数据源连接的可视向导窗体了。会不呢？
其实做出数据源连接的可视向导窗体的效果，并不困难，当然，仅仅是效果了，对NET来说，不正统，所以不入流。NET的工程好宠大，宠大到重新包装那些底层函数时，不得不摇头叹气，在这里，我就想说，它离不开这个OleDb32，甚至还离不开ADODB。以前做VB时，习惯着ADODB，有时用DAO，到了现在，居然在引用命名空间时，在类库中看到了ADODB而不是在COM中看到它，欣喜。再仔细些看，文件是X:\Program Files\Microsoft.NET\Primary Interop Assemblies\adodb.dll，哦，原来是Interop.adodb.dll吧。
下面做出了数据源连接的可视向导窗体的效果。用到了Microsoft ActiveX Data Objects 2.8 Library(即ADODB)和Microsoft OLE DB Service Component 1.0 Type Library(即那个“数据链接属性”窗体)。为了适用不同版本，我用CreateObject间接引用，不直接引用。
处理连接字符串，有两种情形，一是新建一个连接字符串，二是编辑已有的连接定符串。处理的过程代码参考如下：
新建连接字符串(http://support.microsoft.com/default.aspx?scid=kb;EN-US;310083)
Dim strConn as String
Dim objDataLinks as DataLinks
Dim bolStatus as Boolean
Dim cnn as ADODB.Connection
Set cnn = New ADODB.Connecton
Set objDataLinks = New Datalinks
' Get user's first settings for the connection.
StrConn = ObjDataLink.PromptNew
MsgBox(strConn)
' Assign the settings to the connection object.
cnn.ConnectionString = strConn
' Display connection properties for editing.
bolStatus = objDataLinks.PromptEdit(cnn)
If bolStatus = False Then
MsgBox("Changes were canceled")
Else
MsgBox("New settings are: " & cnn.ConnectionString)
End If
Set objDataLinks = Nothing
Set cnn = Nothing
Dim bolStatus as Boolean
Dim cnn as ADODB.Connection
Dim objDataLinks as DataLinks
Set cnn = New ADODB.Connecton
Set objDataLinks = New Datalinks
cnn.Provider="Microsoft.Jet.OLEDB.4.0"
cnn.Properties("Data Source") = "Northwind.mdb"
bolStatus = objDataLinks.PromptEdit(cnn)
If bolStatus = False Then
MsgBox("User pressed cancel button")
End If
MsgBox(cnn.ConnectionString)
Set objDataLinks = Nothing
Set cnn = Nothing
下一节主要给出VB.NET代码。
