データリンクプロパティダイアログをプログラムで表示

分類:[.NET]

はじめまして。

汎用的にDBに接続するため
VB.netなどでデザイン時に表示される
データリンクプロパティダイアログをプログラムから表示して
ConnectionStringを作成したいのですが、
どなたかご存じないでしょうか？
よろしくお願いします。

UDLファイルを使うと云うのはどうでしょうか？
さんこうまでにソースを載せておきます。

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As IntPtr, _
ByVal lpVerb As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Integer) As Integer

Private Const SW_SHOWNORMAL As Integer = 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fileName As String = "C:\Develops\Visual Studio Projects\VB\Test\コントロールの配列\test.udl"
Dim returnCode As Integer

returnCode = _
ShellExecute( _
Me.Handle, _
"open", _
fileName, _
vbNullString, _
Application.StartupPath, _
SW_SHOWNORMAL)
' ShellExecute()APIの戻り値が32以下だったら、
' 戻り値とLastDllErrorプロパティの値を表示
If returnCode <= 32 Then
Debug.WriteLine("LastDllError = " & Err.LastDllError)
Debug.WriteLine("Return Value = " & returnCode)
End If
End Sub

ＵＤＬファイルの使用方法です。

Dim fileName As String = "C:\Develops\Visual Studio Projects\VB\Test\コントロールの配列\test.udl"
dim connStr as string = "File Name=" & fileName
dim conn as OleDbConnection = new New OleDbConnection(connStr)

これでＵＤＬファイル情報を元に接続できます。

udlファイルを利用する方法は思いついたのですが、
ShellExecuteを使って開くことができるとは

ありがとうございました。