ODBCの登録方法 (ID:75930)

名前

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

本文 SQLConfigDataSource API を使用して、 ODBC への登録・編集・削除ができます。 DSN 文字列については、御自分で調べて下さい。 Public Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" ( _ ByVal hWndParent As Long, _ ByVal fRequest As Long, _ ByVal lpszDriver As String, _ ByVal lpszAttributes As String _ ) As Long Public Const ODBC_ADD_DSN = 1 '* ユーザーデータソースの追加 Public Const ODBC_CONFIG_DSN = 2 '* ユーザーデータソースの編集 Public Const ODBC_REMOVE_DSN = 3 '* ユーザーデータソースの削除 Public Const ODBC_ADD_SYS_DSN = 4 '* システムデータソースを追加 Public Const ODBC_CONFIG_SYS_DSN = 5 '* システムデータソースを編集 Public Const ODBC_REMOVE_SYS_DSN = 6 '* システムデータソースを削除 Public Const ODBC_REMOVE_DEFAULT_DSN = 7 '* デフォルトDSNを削除 Dim lRet As Long Dim sDRV As String Dim sDSN As String '* ドライバ名 sDRV = "Microsoft Access Driver (*.mdb)" '* DSN 文字列 sDSN = "" sDSN = sDSN & "DBQ=d:\My Documents\db1.mdb" & vbNullChar sDSN = sDSN & "DSN=DSN_SAMPLE" & vbNullChar sDSN = sDSN & "DESCRIPTION=This is Sample" & vbNullChar lRet = SQLConfigDataSource(0, ODBC_ADD_DSN, sDRV, sDSN) If lRet = 0 Then MsgBox "ODBC の登録に失敗しました。"