UDLファイルをVBから呼び出すには？ Part2

解決

Hide 2005-05-21 02:52:53 No: 121818

魔界の仮面弁士殿皆様こんにちは。Hideです。

また質問をさせて頂きます。

UDLの設定画面を表示させる場合なのですが、
例えば、
デスクトップ上にあるUDLファイル(Connect.udl)の設定画面をVBのコマンドボタンクリックで表示させるようなことは可能なのでしょうか？

C:\Documents and Settings\muser\デスクトップ\Connect.udl

どのように特定のUDLを呼び出せばよろしいのでしょうか？

ご教示宜しくお願いします。

OS:Windows2000
VB6 SP5

魔界の仮面弁士 2005-05-21 05:37:11 No: 121819

UDLファイルの編集だけなら、それを関連付け起動で呼び出せば良いかと。

UDLを編集するわけではなく、その設定情報を利用するだけならば、
UDLファイルの内容をそのまま読み取ればOKかな。

Dim Cn As ADODB.Connection
Dim Stm As ADODB.Stream
Set Stm = New ADODB.Stream
Stm.Open
Stm.LoadFromFile UdlFilePath
Stm.Position = 128
Set Cn = New ADODB.Connection
Cn.ConnectionString = Stm.ReadText(adReadLine)
Stm.Close
Set Stm = Nothing
Dim DataLnk As MSDASC.IDataSourceLocator
Set DataLnk = New DataLinks
DataLnk.PromptEdit Cn
MsgBox Cn.ConnectionString
Set DataLnk = Nothing

Set Cn = Nothing

Hide 2005-05-21 10:43:21 No: 121820

魔界の仮面弁士殿
ご回答ありがとうございます。
頂いたコードでうまく行きました。
勉強になりました。
またご教示よろしくお願いします。