ACCESS2000でOracle8iとODBC接続しております。
接続先サーバーが複数あり、それぞれテーブルリンクしてVBAで処理を記述しております。サーバーが起動していないと当然以下のエラーで接続が失敗します。
■実行時エラー '3151':ODBC 'データベース' への接続に失敗しました。
各接続先サーバーは夕方~22時までの間にランダムで終了します。顧客の状況でそうなってしまいます。起動しているサーバーだけ処理させるために3151のエラー処理を追加したのですが、タイムアウトまでうっとうしく感じます。
そこで、PINGのようなイメージで先にサーバーの起動確認し、起動していたら処理を実行させるといったことを考えましたが、VBAでそのような方法はありますでしょうか。その他、このような場合の良い方法(発想)などありましたらご教授いただけないでしょうか。
No.1ベストアンサー
- 回答日時:
Function GetPingStatus(ByVal Address As String) As Boolean
'GetPingStatus("192.168.0.1 等")か、GetPingStatus("コンピュータ名")
'Trueが返ってくれば疎通OK
Dim obj As Object
For Each obj In GetObject("winmgmts:\\.\root\cimv2") _
.ExecQuery( _
"SELECT * FROM Win32_PingStatus" & _
" WHERE Address = '" & Address & "'", , &H30)
GetPingStatus = IIf(Nz(obj.StatusCode, 1) = 0, True, False)
Next
End Function
ネタ元はこちら
サービスがダウンしたときに通知を受け取る方法はありますか
http://www.microsoft.com/japan/technet/scriptcen …
こちらも参考に
サービスがダウンしたときに通知を受け取る方法はありますか
http://www.microsoft.com/japan/technet/scriptcen …
でも処理中にブチッとやられたら・・・どうしたもんでしょね。
ご回答いただきましてありがとうございます。お礼が遅くなりまして申し訳ありません。処理中に電源切られたら、ほんとにどうしたもんでしょうか。時間帯限定で使用する等、運用で回避することにいたしました。今回ご回答いただいた内容は今後の参考にさせていただきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- UNIX・Linux いつの間にか自宅サーバーが見れなくなっていた時のトラブルシューティング手順をご教示ください 4 2023/02/15 21:01
- OCN光 VDSL回線での不具合 ネット回線変えるべきか? 3 2023/01/07 23:14
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- YouTube youtubeが使えない! 1 2022/11/16 16:36
- ネットワーク 社内ネットワークの1台だけ接続できないときがある 4 2023/01/25 11:58
- サーバー 接続・ログインはできているのにメールが送信できない 2 2022/06/27 15:03
- C言語・C++・C# TCP/IP通信時のサーバーからの受信 2 2022/11/23 09:11
- オンラインゲーム 【至急】Minecraft統合版で、マルチプレイができなくなりました 1 2023/07/01 22:31
- ドメイン・サーバー・クラウドサービス FileZillaを使用してwpXサーバーに接続できない 2 2022/03/29 21:02
- Visual Basic(VBA) VBAでの共有パスにつきまして 1 2023/03/04 17:24
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAでインターネットに接続しているかの確認
Visual Basic(VBA)
-
ACCESS VBA ウィンドウを閉じる
Visual Basic(VBA)
-
Access_Formのデザインビュー画面を拡大表示
Access(アクセス)
-
-
4
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
5
Access VBAでタブコントロールで選択するタブをしていするには。
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
20人程度が一度に使うデータベ...
-
VB6.0(SP6)でMySQLに接続したい
-
PCの移行について
-
家族のPCにもMicrosoft 365 を...
-
Access2000環境に対応するMid関...
-
4K Video Downloaderのライセン...
-
xp_cmdshellについて
-
SQLServerのテーブルはdbOpenTa...
-
SQLServer2008と2000の共存
-
クエリの結果をCSV形式で抽出す...
-
PostgreSQLと、AccessをODBC接続
-
ACCESSでのUPDATEコマンド
-
SQLサーバー接続 特定のPCがWin...
-
ASP.NET、SQLServerを使用してW...
-
CentOsにoracle10g
-
エクセルマクロで指定範囲内の...
-
SQLServer2005のストプロでxp_c...
-
SQLserver2000のリブート時のエ...
-
インストール可能なISAMド...
-
NAT-KUのノートパソコンは?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
symfowareへのODBC接続方法
-
ACCESSからのODBC接続のみ応答...
-
ACCESSからSQLServerのデータを...
-
SQLで同じDBに対し2つのコネク...
-
DB接続ができなくなって困って...
-
SQL Serverの移行について
-
ADOを利用したODBC、OLEDB経由...
-
drop user できない。ORA-01940
-
IBM系のDBでIMSに関して
-
Access から SQLserver に接続...
-
SQLServer,接続失敗時のエラー...
-
SQLSERVERへのODBC接続について
-
SQLServerの接続が突然できなく...
-
ACCESS ODBC 接続ダイアログ 非...
-
クライアントでの処理が遅い
-
ACCESS VBAでサーバー起動して...
-
AS/400のデータをMS_ACCESSでも...
-
SQLServer2005 Express リモー...
-
サーバー接続時、ホスト名はIP...
-
データベースへ接続できない
おすすめ情報