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(アクセス)
-
-
4
Access_Formのデザインビュー画面を拡大表示
Access(アクセス)
-
5
Access VBAでタブコントロールで選択するタブをしていするには。
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SQLServer,接続失敗時のエラー...
-
データベースのOPEN,CLOSEについて
-
SQL Serverの移行について
-
symfowareへのODBC接続方法
-
異なるドメイン間をODBC経由でD...
-
99bb.com のライセンスバック...
-
レポートが開けない。
-
SQLのエラー(~付近に不適切な...
-
ストアドの速度がクエリの30...
-
Oracle 8i コンマ(,)を含むデ...
-
Access2010 accdbのエラー「ODB...
-
アクセスでの通常のマクロの実...
-
(SQLSERVER) 別サーバーへテー...
-
半角の濁音、半濁点の除去の除去
-
ノートンの解約(「ライセンス...
-
静的SQL、動的SQL?
-
AccessのDAO.ExecuteとDoCmd.Ru...
-
windows8.1 でサーバー(SQL)...
-
ノートパソコンのHDDを同機種へ...
-
ACCESS ADOでupdateが効かない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
drop user できない。ORA-01940
-
SQLで同じDBに対し2つのコネク...
-
DB接続ができなくなって困って...
-
ADOを利用したODBC、OLEDB経由...
-
ACCESSからSQLServerのデータを...
-
ACCESSからのODBC接続のみ応答...
-
SQLServer,接続失敗時のエラー...
-
Access から SQLserver に接続...
-
SQL Serverの移行について
-
symfowareへのODBC接続方法
-
ACCESS VBAでサーバー起動して...
-
コンピュータ名の変更によってI...
-
DBに接続する時のオープンとク...
-
サーバー接続時、ホスト名はIP...
-
IBM系のDBでIMSに関して
-
SQLServerの接続が突然できなく...
-
SQLクライアント設定
-
COBOL言語で開発できますか?
-
クライアントでの処理が遅い
-
VB6.0(SP6)でMySQLに接続したい
おすすめ情報