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が失敗しました』 と出てしまいました。 ＡＰＩが変わった影響で、どうしようもないのかな？ とは思いますが、出来れば何とかしたいのですが……。 どなたかお分かりになる方、教えてください。