ODBC接続の設定 (ID:103145)

名前

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

本文

WinXP、Win2008Server64ビットで問題なかったソフトがあり、それをWin7 Professional 64ビットにインストールしたのですが、上手くＯＤＢＣが作れません。
ODBCCP32.DLLの問題かな？とも思いますが、何か動かせる方法はありますか？
Private Const ODBC_ADD_DSN = 1             '* ユーザーデータ ソースの追加
Private Const ODBC_CONFIG_DSN = 2          '* ユーザーデータ ソースの編集
Private Const ODBC_REMOVE_DSN = 3          '* ユーザーデータ ソースの削除
Private Const ODBC_ADD_SYS_DSN = 4         '* システムデータソースを追加
Private Const ODBC_CONFIG_SYS_DSN = 5      '* システムデータソースを編集
Private Const ODBC_REMOVE_SYS_DSN = 6      '* システムデータソースを削除
Private Const ODBC_REMOVE_DEFAULT_DSN = 7  '* デフォルトDSNを削除

' API 宣言
Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _
        (ByVal hwndParent As Long, _
         ByVal fRequest As Long, _
         ByVal lpszDriver As String, _
         ByVal lpszAttributes As String) As Long
Private Declare Function SQLInstallerError Lib "ODBCCP32.DLL" _
(ByVal iError As Integer, ByRef pfErrorCode As Long, _
ByVal lpszErrorMsg As String, ByVal cbErrorMsgMax As Integer, _
ByRef pcbErrorMsg As Integer) As Long

Function fnODBC_Sakusei(strUid As String, strPwd As String) As Boolean
' データソースの追加
    
    Dim intRet As Long
    Dim strDriver As String
    Dim strParam As String

' ODBCドライバを指定する
    strDriver = "SQL Server"
     
    ' データソースとして登録する属性を NullChar で区切り指定する
    strParam = "DSN=" & Trim(strDName) & vbNullChar
    strParam = strParam & "Description=" & vbNullChar
    strParam = strParam & "Server=" & strCName & vbNullChar
    strParam = strParam & "Database=" & Trim(strDName2) & vbNullChar

DoEvents
    Debug.Print "ODBC"
    '***ODBCをいったん削除***
    On Error Resume Next
    DoEvents
    intRet = SQLConfigDataSource(0, ODBC_REMOVE_SYS_DSN, strDriver, strParam)
    DoEvents
    On Error GoTo 0

' データソースの登録
    intRet = SQLConfigDataSource(0, ODBC_ADD_SYS_DSN, strDriver, strParam)
    if intRet=1 then
          '成功
          fnODBC_Sakusei = True
    else
          '失敗
          'ここに来てしまいます。
    End if
End Function

エラーをチェックすると
『#19:レジストリに書き込めません』
『#11:ドライバーのConfigDSN、ConfigDriver、またはConfigTranslatorが失敗しました』
と出てしまいました。
ＡＰＩが変わった影響で、どうしようもないのかな？  とは思いますが、出来れば何とかしたいのですが……。
どなたかお分かりになる方、教えてください。

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

戻る