JustAnswer のしくみ:

  • 専門家に質問
    知識豊富な専門家があらゆる質問にお答えするために常に待機しています。
  • 専門家が丁寧に対応
    E メールやサイト内オンラインメッセージなど、さまざまな手段で回答を通知。
    必要に応じてフォローアップの質問をすることもできます。
  • 満足度 100% 保証
    専門家からの回答を確認し評価をすることで、支払うかどうかを決めます。

Nobody_1963に今すぐ質問する

Nobody_1963
Nobody_1963, システムエンジニア
カテゴリ: オペレーティングシステム
満足したユーザー: 318
経験:  Windows OSのクライアント および サーバーの設定をサポート致します
60374769
ここに オペレーティングシステム に関する質問を入力してください。
Nobody_1963がオンラインで質問受付中

VB

解決済みの質問:

VB6で開発しXP上で動作するデータベース最適化コンパクトデータベースをVISTAで実行するとエラーエラーナンバー:-2147217897’データベースはすでに存在しています’ どのように対処すればいいのでしょうか?


以下にコードを表記します


 


Private Sub mnuDataBaseCompact_Click()
On Error GoTo ErrorHandler


    Dim strFileName As String
    Dim oldFileSize As Long
    Dim newFileSize As Long
   
    Dim strOldConnection As String
    Dim strNewConnection As String
    Dim objJroJetEngine As JRO.JetEngine
    Dim DBPath As String
    Dim NewDBPath As String
    Dim ret As Integer
   
    strFileName = App.Path & "\CleanMaster.mdb"
    oldFileSize = FileLen(strFileName)
       
    DBPath = App.Path & "\CleanMaster.mdb"
    NewDBPath = App.Path & "\NewCleanMaster.mdb"
      
    Beep
   
    ret = MsgBox("ビジネスマスターデータベースを最適化しますか?" & vbCrLf & _
                 "データベース名:  " & strFileName & vbCrLf & _
                 "ファイルサイズ:   " & Format(FileLen(strFileName), "0,0") & " Byte", vbQuestion + vbYesNo, "データベースの最適化")


    Select Case ret
        Case vbYes
            Screen.MousePointer = vbHourglass
           
            Set objJroJetEngine = New JRO.JetEngine
           
            strOldConnection = _
                "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & DBPath
   
            strNewConnection = _
                "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & NewDBPath
               
            cn.Close
          
            objJroJetEngine.CompactDatabase _
                strOldConnection, _
                strNewConnection
   
            Kill DBPath
            Name NewDBPath As DBPath
   
            Set objJroJetEngine = Nothing
   
            cn.Open
   
            MsgBox "最適化が終了しました。" & vbCrLf & _
                   "最適化前ファイルサイズ:  " & Format(oldFileSize, "0,0") & " Byte" & vbCrLf & _
                   "最適化後ファイルサイズ: " & Format(FileLen(strFileName), "0,0") & " Byte", vbOKOnly, "最適化終了"
   
            Screen.MousePointer = vbDefault
        Case vbNo
            Exit Sub
    End Select


Exit_Error:
    Exit Sub
ErrorHandler:
    MsgBox "Error: " & Err.Number _
                  & Err.Description, _
                    vbOKOnly, "想定外のエラー"
    Call Logger("mnuDataBaseCompact_Click()")
    Resume Exit_Error
      
End Sub


































































投稿: 5 年 前.
カテゴリ: オペレーティングシステム
専門家:  Nobody_1963 返答済み 5 年 前.

こんにちは。
質問をご投稿いただきありがとうございます。
しかしながらご返答が遅くなり申し訳ございません。

よろしくお願いいたします。

 ご質問の件ですが、XPではちゃんと動作するのにVISTAでは動かないということですよね。

 それはおそらくVISTAから導入されたUACの問題だと思います。

インストール先を普通の「Program Files」内に行っているのであれば、別のフォルダ(例:C:\aaaaa\)にしてみてください。 

 またはUAC機能を無効化してください。

いづれかの方法で上手く動作すると思いますので一度ご確認をお願い致します。

Nobody_1963, システムエンジニア
満足したユーザー: 318
経験: Windows OSのクライアント および サーバーの設定をサポート致します
Nobody_1963をはじめその他名のオペレーティングシステムカテゴリの専門家が質問受付中

ユーザーの声:

 
 
 
  • なかなか解決できないトラブルだったのですが、解決までとことん相談にのってくださいました。また、パソコンをうまく使いこなせていない私でも解りやすくアドバイスしてくださいました。 本当に助かりました! 大阪府 黒崎
< 前へ | 次へ >
  • なかなか解決できないトラブルだったのですが、解決までとことん相談にのってくださいました。また、パソコンをうまく使いこなせていない私でも解りやすくアドバイスしてくださいました。 本当に助かりました! 大阪府 黒崎
  • パソコンの操作は熟知している訳でもなく不慣れですが何回もの質問に丁寧に答えていただき問題解決しました、大変助かりました、感謝しています。 兵庫県明石市 後藤
  • 回答が早く、2日間対処には時間がかかりましたが、80%諦めていたものが解決したので、とにかく感謝の一言です。 ありがとうございました。 千葉県野田市 金澤
  • まずは親身になって回答をして頂ける専門家であったこと。説明が簡潔でわかりやすく、質問者が気持ちの整理をしやすい配慮が伺えた。 岐阜県 石川
  • 短時間で的確なアドバイスを受けることができ、かつ、回答に対する質問に対しても直ちに真摯な回答が得られました。 大阪府高槻市 川嶋
  • 専門知識のある経験豊富な方に出会う機会のない人でも、このサイトで実現出来ることは素晴らしいことだと思いました。 専門家が辛抱強く回答をしてくださる姿勢にも感謝いたしました。 茨城県日立市 池田
 
 
 

専門家の紹介:

 
 
 
  • dkk2002

    dkk2002

    ITエンジニア

    満足した利用者:

    2535
    NTTコミュニケーションズ .com Master★★
  • http://ww2.justanswer.com/uploads/KW/kwskmkt/2011-7-4_13263_DSC04002.64x64.JPG dkk2002 さんのアバター

    dkk2002

    ITエンジニア

    満足した利用者:

    2535
    NTTコミュニケーションズ .com Master★★
  • http://ww2.justanswer.com/uploads/RU/rushqk/2011-9-24_21937_CIMG0197.64x64.jpg rushqk さんのアバター

    rushqk

    ソフトウェアエンジニア

    満足した利用者:

    220
    AV機器開発、ソフトウェア設計
  • http://ww2.justanswer.com/uploads/SP/Spinnaker0921/2011-5-28_232633_Spinnaker.64x64.JPG Spinnaker0921 さんのアバター

    Spinnaker0921

    システムエンジニア

    満足した利用者:

    0
    Windows OS の設定・チューニング・修復に関する質問に回答します。
  • http://ww2.justanswer.com/uploads/OB/obody/2015-6-17_162039_photo.64x64.jpg Nobody_1963 さんのアバター

    Nobody_1963

    システムエンジニア

    満足した利用者:

    179
    Windows OSのクライアント および サーバーの設定をサポート致します
  • http://ww2.justanswer.com/uploads/OC/oct1290/2012-4-17_123618_akodesu.64x64.JPG oct1290 さんのアバター

    oct1290

    ITエンジニア

    満足した利用者:

    38
    日本製PCメーカー顧客、企業サポート官庁PCサポート海外3店舗のPC修理業
  • http://ww2.justanswer.com/uploads/HO/holodecks/2011-10-21_0147_20111021091343.64x64.jpg holodecks さんのアバター

    holodecks

    情報整理戦略コンサルタント

    満足した利用者:

    2
    化学科卒システム計画研究所 - シニアシステムエンジニア、ディー・リンク株式会社 取締役
 
 
 

オペレーティングシステム についての関連する質問