直接调用内置数据源连接对话框（C#/VB.NET2005源码）

直接调用内置数据源连接对话框（C#/VB.NET2005源码） 

'先引用Microsoft.Data.ConnectionUI.Dialog.dll（在VS2005安装路径的IDE目录下）
VB:         

Dim  dialog  As  DataConnectionDialog  =   New  DataConnectionDialog()
        dialog.DataSources.Add(DataSource.SqlDataSource)
        dialog.DataSources.Add(DataSource.OdbcDataSource)
        dialog.DataSources.Add(DataSource.OracleDataSource)
        dialog.DataSources.Add(DataSource.AccessDataSource)

        dialog.SelectedDataSource  =  DataSource.SqlDataSource
        dialog.SelectedDataProvider  =  DataProvider.SqlDataProvider

        DataConnectionDialog.Show(dialog)
         If  dialog.DialogResult  =  Windows.Forms.DialogResult.OK  Then
             Me .TextBox1.Text  =  dialog.ConnectionString
         ElseIf  dialog.DialogResult  =  Windows.Forms.DialogResult.Cancel  Then
             Me .Close()
         End   If

 C#2005 Code

            DataConnectionDialog dialog  =   new  DataConnectionDialog();
            dialog.DataSources.Add(DataSource.SqlDataSource);
            dialog.DataSources.Add(DataSource.OdbcDataSource);
            dialog.DataSources.Add(DataSource.OracleDataSource);
            dialog.DataSources.Add(DataSource.AccessDataSource);

            dialog.SelectedDataSource  =  DataSource.SqlDataSource;
            dialog.SelectedDataProvider  =  DataProvider.SqlDataProvider;

             string  strCon  =   "" ;
            DataConnectionDialog.Show(dialog);
             if  (dialog.DialogResult  ==  DialogResult.OK)
            { strCon  =  dialog.ConnectionString; }
             else   if  (dialog.DialogResult  ==  DialogResult.Cancel)
            { }

            MessageBox.Show(strCon);

来自： http://www.cnblogs.com/alcome/archive/2006/12/21/598940.html