Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3063 / 9994

←次へ　｜　前へ→


	【10195】Re:OpenDatabase ODBC接続について

VBWASURETA - 08/1/29(火) 14:31 -


	引用なし

	パスワード

▼なおさん：

もしどうしても、ダメでしたら
エラー処理はあまり宜しくない気がしますので
OS判定で試してもらえますか？
逃げ処理２みたいですけど。

例：
Public Const VER_WIN2000 = 5
Public Const VER_WINXP = 5.01
'
Public Function GetOSVersion() As Single
　　On Error GoTo GetOSVersion_Error
　　Dim SysObj As Object
　　
　　Set SysObj = CreateObject("SysInfo.SYSINFO")
　　
　　GetOSVersion = SysObj.OSVersion
　　
　　Set SysObj = Nothing

Exit Function
GetOSVersion_Error:
　　GetOSVersion = -1 'OSバージョン取得失敗
End Function

Sub test()

　　'Call MsgBox("OSのバージョンは：[" & GetOSVersion & "]です", vbOKOnly, "OSバージョン確認")

　　If GetOSVersion = VER_WINXP Then　'OSがXPの場合
　　　　Set Db = Ws.OpenDatabase("", False, False, "ODBC; TEST; Driver={ORACLE ODBC Driver};")
　　ElseIf GetOSVersion = VER_WIN2000 Then 'OSがWin2000の場合
　　　　Set Db = Ws.OpenDatabase("", False, False, "ODBC; Driver={ORACLE ODBC Driver}; DSN=TEST; ")
　　Else 'OSがその他
　　　　'ここは必要に応じて決めて下さい。
　　End If

End Sub

1,421 hits

▼

【10180】OpenDatabase ODBC接続について なお 08/1/28(月) 14:34