SQLConfigDataSource API を使用して、Oracle ODBC DriverをVBから登録しようとしているのですが、うまくいきません。
自分なりに調べてみたのですが、SQL ServerやAccessの情報はあるのですがOracleのDriverに関する情報があまりないようです。
お分かりになられる方がいらっしゃいましたら、よろしくお願いいたします。
開発環境:WindowsXP,VB6SP6,Oracle8i
下記のようにすれば一応DSNの登録はできるんですが、
サービス名とユーザー名が登録できません。
どなたかアドバイスをお願い致します。
'-----------------------------
Private Sub Command1_Click()
Dim lngRequest As Long
Dim strDriver As String 'ドライバ名
Dim strDSN As String 'DSN文字列
'ドライバ名
strDriver = "Oracle ODBC Driver"
'DSN文字列
strDSN = "DSN=ora_test" & vbNullChar
strDSN = strDSN & "Description=テスト用" & vbNullChar
strDSN = strDSN & "UserID=testuser" & vbNullChar
strDSN = strDSN & "ServerName=ora" & vbNullChar & vbNullChar
lngRequest = SQLConfigDataSource(0, ODBC_ADD_SYS_DSN, strDriver, strDSN)
If lngRequest = 0 Then
MsgBox "ODBCの登録に失敗しました!", vbCritical, "ODBC登録エラー"
End If
End Sub
'-----------------------------
(APIの宣言部分は省略しています)