ODBCの登録方法 (ID:75934)

名前

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

本文 こんにちは、 自分も同じ事がしたくて、いろいろ探しているとここに辿りつきました 実は自分の環境でも、とろさんのコードがうまくいかなかったのですが、 他のページで見つけた方法でうまくいきました。 下記コードです。試してみてください。 Private Const ODBC_ADD_DSN = 1 ' データ ソースの追加 Private Const ODBC_CONFIG_DSN = 2 ' データ ソースの編集 Private Const ODBC_REMOVE_DSN = 3 ' データ ソースの削除 ' 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 Sub Form_Load() Dim lngRequest As Long Dim strDriver As String 'ドライバ名 Dim strDSN As String 'DSN文字列 'ドライバ名 strDriver = "Microsoft Access Driver (*.mdb)" 'DSN文字列 strDSN = "DBQ=C:\kensetu\db\Genka.mdb" & vbNullChar strDSN = strDSN & "DSN=Nippo Database" & vbNullChar strDSN = strDSN & "DESCRIPTION=Test DataSourceName" & vbNullChar lngRequest = SQLConfigDataSource(0, ODBC_ADD_SYS_DSN, strDriver, strDSN) If lngRequest = 0 Then MsgBox "ODBCの登録に失敗しました！", vbCritical, "ODBC登録エラー" End If End Sub