UDLファイルをVBから呼び出すには？ Part3 (ID:121898)

名前

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

本文

'興味があったので作ってみた（後進の為になればと思う  ツッコミ歓迎）
'魔界の仮面弁士 殿のコードを応用したもの
Function EditUDL(strEditFile As String)
Dim Cn As ADODB.Connection
Dim Stm As ADODB.Stream
Dim boolRC As Boolean
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.fileexists(strEditFile) = False Then
        Exit Function
    End If
    Set Stm = New ADODB.Stream
    Stm.Open
    Stm.LoadFromFile strEditFile
    Stm.Position = 128
    Set Cn = New ADODB.Connection
    Cn.ConnectionString = Stm.ReadText(adReadLine)
    Dim DataLnk As MSDASC.IDataSourceLocator
    Set DataLnk = New DataLinks
    boolRC = DataLnk.PromptEdit(Cn)
    If boolRC = False Then ' cancel
    Else
        MsgBox Cn.ConnectionString
        Stm.Position = 128

Stm.WriteText Cn.ConnectionString
        Stm.WriteText vbCrLf
        Stm.SetEOS '文字列が短くなるように修正すると前の文字列が残ってしまうのでここでEOSにする
        Stm.SaveToFile strEditFile, adSaveCreateOverWrite
        Set DataLnk = Nothing
    End If
    Set Cn = Nothing
    Stm.Close
    Set Stm = Nothing
End Function

←解決時は質問者本人がここをチェックしてください。

戻る