ADO.NETでUDLファイルを利用して接続 (ID:91464)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 UDLファイルにユーザーＩＤとパスワードを持たせると誰でも簡単に アクセス出来てしまう、(最悪DELETE UPDATE)ので仕様変更できませんでした。 無理そうなので、UDLファイルから切り出すことにしました。 UDLファイルはメモ帳でも簡単に開けるのにバイナリファイルなのは 何なんでしょうか？ サンプルをVB6で作成したら結構苦労しました。 以下は、VB.netで作成したものです。 'Data Source=Server1;Initial Catalog=TESTSQL;User Id=myusrid;Password=mypassword; を作る Function GetConectionString(ByVal vFileName As String, ByVal vUsrId As String, ByVal vPassword As String) Dim buf As String Dim connstr As String Dim sPos As Short Dim ePos As Short Dim fNum As Short fNum = FreeFile() FileOpen(fNum, vFileName, OpenMode.Binary) buf = InputString(fNum, LOF(1)) FileClose(fNum) '最後の改行コードを取り除く If Strings.Right(buf, 2) = vbCrLf Then buf = Mid(buf, 1, Len(buf) - 2) End If 'Data Source を切り出す sPos = InStr(1, UCase(buf), UCase("Data Source")) ePos = InStr(sPos, buf, ";") If ePos = 0 Then connstr = Mid(buf, sPos) & ";" Else connstr = Mid(buf, sPos, ePos - sPos) & ";" End If 'Initial Catalog を切り出す sPos = InStr(1, UCase(buf), UCase("Initial Catalog")) ePos = InStr(sPos, buf, ";") If ePos = 0 Then connstr &= Mid(buf, sPos) & ";" Else connstr &= Mid(buf, sPos, ePos - sPos) & ";" End If '後処理 connstr &= "User Id=" & vUsrId & ";Password=" & vPassword & "; " Return connstr End Function