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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
ロボットの住む世界で流行ってる罰ゲームとは?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
ACCESS VBA ウィンドウを閉じる
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
DB接続ができなくなって困って...
-
IBM系のDBでIMSに関して
-
ACCESS ODBC 接続ダイアログ 非...
-
SQLServer,接続失敗時のエラー...
-
ACCESSからのODBC接続のみ応答...
-
クライアントでの処理が遅い
-
ADOを利用したODBC、OLEDB経由...
-
ASPからDB2への接続方法
-
データベースへ接続できない
-
SQL Server 2005 Standard Edit...
-
PostgresSQLはGUIで操作するこ...
-
ACCESSからSQLServerのデータを...
-
SQL Serverの移行について
-
コンピュータ名の変更によってI...
-
SQLSERVERの接続方法を教えて下...
-
COBOL言語で開発できますか?
-
[Oracle8i]ODBC経由でデータベ...
-
Access から SQLserver に接続...
-
SQLで同じDBに対し2つのコネク...
-
Oracle 8i コンマ(,)を含むデ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSからSQLServerのデータを...
-
DB接続ができなくなって困って...
-
drop user できない。ORA-01940
-
ACCESSからのODBC接続のみ応答...
-
SQLServer,接続失敗時のエラー...
-
Access から SQLserver に接続...
-
SQLで同じDBに対し2つのコネク...
-
DBに接続する時のオープンとク...
-
ADOを利用したODBC、OLEDB経由...
-
SQL Server 2005 Standard Edit...
-
phpからsqlserverへの接続
-
(local)とlocalhostの違い
-
ACCESS ODBC 接続ダイアログ 非...
-
ODBC接続できるパソコンとでき...
-
クライアントでの処理が遅い
-
ACCESS VBAでサーバー起動して...
-
AS/400のデータをMS_ACCESSでも...
-
symfowareへのODBC接続方法
-
IBM系のDBでIMSに関して
-
COBOL言語で開発できますか?
おすすめ情報