- 締切済み
commondialogを使用した直後のエラーについて
初心者です。 現在、VB6.0にて開発を行っております。 commondialogのshowopenをして、ファイルを選択し、そのままフォームを閉じます。 （この段階では何も処理していません。） その後、データベースへの接続しようとして、コネクションのオープンをすると、 「実行時エラー432 オートメーションの操作中にファイル名またはクラス名を見つけられませんでした」 とエラーが出て、デバッグをクリックすると、データベースのコネクションオープン部分にフォーカスがあたります。 これはどういうことなのでしょうか。
- slotse
- お礼率0% (0/2)
- Visual Basic
- 回答数2
- ありがとう数1
- みんなの回答 （2）
- 専門家の回答
みんなの回答
- Senna_FF
- ベストアンサー率45% (153/334)
仕様がわかりませんが、 commondialogを使用しなければOKですか？ DBはなんでしょうか？（MDB等のファイル形式ですか） App.Pathやカレントディレクトリって書き換えられるんですが・・・
関連するQ&A
- VBでファイル読み込み
ＶＢであるところにあるＣＳＶファイルのデータを読み込みエクセルへ変換出力したいのですが教えてください。コモンダイアログボックス（？）と言うものを使って作成したいのです。よろしくお願いします。 がんばってやってみたのですがわかりません。教えてください。 Private Sub Command1_Click() Dim gnum(25), tensuu(32, 99) Dim sougouten(99), heikin(99), gouhi$(99) 'ファイルを開く On Error GoTo ErrHandler 'コモンダイアログボックス CommonDialog1.CancelError = True CommonDialog1.Filter = "すべてのファイル (*.*)|*.*|" _ & "テキスト ファイル (*.txt)|*.txt|バッチ ファイル (*.bat)|*.bat" CommonDialog1.FilterIndex = 2 CommonDialog1.ShowOpen With CommonDialog1 .FileName = "" .ShowOpen End With Exit Sub ErrHandler: ' ユーザーが [キャンセル] ボタンをクリックしました。 End Sub
- ベストアンサー
- Visual Basic
- VB2005のサーバーエクスプローラの×印
よろしくお願いします。 データベースはAccess,VB2005で開発しています。画面の左にサーバーエクスプローラというウィンドウがあります。 その中の「データ接続」のノードを開くと、「データベース名.mdb」と表示されます。その左にアイコンが出てますが、アイコンの右下に赤の×マークが表示されています。これは何を意味するのでしょうか？ まだ、ソフトは作成途中でしてDataSetにテーブルを入れて、連結したフォームを作っているような段階なのですが、データベースの更新とかと関係あるのでしょうか？ 色々とデバッグをしていたら、VB2005がフリーズしたりしてたのですがデータベースが破損してしまったのでしょうか？
- ベストアンサー
- Visual Basic
- コモンダイアログエラー
エクセルのマクロについて質問です。 今エクセルでCommonDialog1を実行しようとしています。 やりたいことは”ファイルを選択するウィンドウを表示”させて”ファイルを開く”です。 マクロを作成しているエクセルは2007で実際に動作させるときに使用するのは2002です。 下記マクロ参照ください。 Private Sub CommandButton1_click() Dim strfilename As String commondialog1.Filename = "" commondialog1.Filter = "CSV Files(*.csv)|*.csv" commondialog1.showopen strfilename = commondialog1.Filename End Sub 実行しようとすると実行エラー424 オブジェクトが必要です とエラーメッセージがでます。(2007で作成、デバック時) common dialog controlの挿入等試してみましたがうまくいきません。 解決策がありましたらご教示願います。 ちなみに、既存のマクロの都合でcommondialogのコマンドを使用して作りたいです。 他にも方法はあるかと思いますが、宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- VBでエディタ
こんにちは。Kakugariです。 今、ＶＢでエディタを作っていますがファイル操作でつまずいてしまいました。Commondialogからファイル名を取得して、そのファイルをMaintxtに表示するプログラムですがMaintxtに表示されるとき、Tabを使用してスペースを空けた部分が、無視されて文字が前に詰めて表示されます。それ以外は正常です。下にコードを載せましたので、お分かりになられる方は、間違いを指摘していただけたらありがたいです。ちなみにVB6です。Commondialogのプロパティは、デザイン時に設定されています。 Private Sub mnuOpen_Click() On Error GoTo ErrCode With CommonDialog1 .DialogTitle = "開く" .ShowOpen End With Dim txt As String, Work As String Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Input #1, Work txt = txt & Work & vbCrLf Loop Close #1 Maintxt = txt Exit Sub ErrCode: Close #1 MsgBox "ファイルは開けませんでした。", vbCritical End Sub
- ベストアンサー
- Visual Basic
- アクセスでのエラーについて
アクセス2000で作成したデータベースを「データベースの変換」を行ってアクセス2003で動かしているのですが、エラーが発生して対処しかねています。 アクセス2000の段階で、ファイルへのアクセスでエラー、というメッセージが出て 修復できず、今はデータベースの変換をしてアクセス2003で操作している状態です。 まずアクセスを起動すると、 "＜フォーム名＞を読み込み中にエラーが発生しました。プロジェクトの読み込みを続行しますか？" と聞いてきます。「はい」を選択するとその後は何も聞いてきません。 そして、フォームを開こうとすると "プロシージャの呼び出し、または引数が不正です"、や、 "イベントプロパティに指定した式 開く時 でエラーが発生しました。プロシージャの呼び出し、または引数が違います" といったメッセージが出て、フォームを開くことができません。また、 "データベースのVisual Basic for Applicationsプロジェクトが破損しています" というメッセージも出ました。 一気に書いてしまいましたが、どなたか分かる方がいらっしゃいましたら、解決策など教えていただけないでしょうか。 よろしくお願いします。
- ベストアンサー
- その他(データベース)
- 実行時エラー '32755' [キャンセル] ボタンが選択されました。 について
ファイルを保存する時、キャンセルをするとタイトルどおりのエラーメッセージが出ます。当方、初心者でデバッグの仕方がわからず困ってます。どなたか教えてください。 コードの一部 Dim myFile As String Private Sub Command2_Click() CommonDialog1.Filter = "テキスト(*.txt)|*.txt|すべて(*.*)|*.*" CommonDialog1.FilterIndex = 1 CommonDialog1.Flags = cdlOFNOverwritePrompt '上書き確認する CommonDialog1.ShowSave '！！！デバッグの際はこの行が反転表示されます！！！ If CommonDialog1.FileName = "" Then Exit Sub myFile = CommonDialog1.FileName FileWrite Form1.Caption = "Form1" & myFile End Sub Private Sub FileWrite() Dim buf As String Open myFile For Output As #1 Print #1, RichTextBox1.Text; '最後の';'は余計な複改を入れないため Close #1 Exit Sub End Sub
- ベストアンサー
- Visual Basic
- コモンダイアログのshowopenについて
CommonDialog1.Filter = "テキスト(*.txt)|*.txt" CommonDialog1.FilterIndex = 1 CommonDialog1.Flags = cdlOFNFileMustExist CommonDialog1.ShowOpen 上記のようなプログラムを書いて「ファイルを開く」 ダイアログを表示させてます。 しかし、開いたダイアログのファイル名を入力する欄が テキストではなく、コンボボックスになっています。 私はファイル名はテキストでただ入力しかできないよう にしたいのですが、どのように設定すればよいのでしょうか？ それと、左側に「履歴」「デスクトップ」「マイコンピュータ-」「マイネッ トワーク」のアイコンが表示されているのですがこれも消したいのです。 過去ログを検索しましたが似たような質問がなかったので 質問させていただきました。 よろしくお願い致します。
- ベストアンサー
- Visual Basic
- アクセスでの計算フォーム
VBの経験があるものですが、今回アクセス上で、VBのような計算フォームを作りたいと思ったのですが、エラーが出ます。 フォーム上のボタンを押すと、テキスト１～６を足して、答えのテキストに表示させるようにしたいのですが、デバッグをすると、VBの方でボタンクリックの部分で「コントロールがフォーカスを取得していないときにコントロール・・・」というエラーが出てきます。 手順として、テキストを作成し、ボタンを作成し、ボタンクリックのソース上で、テキスト１～６を足していく・・・ ということでは、まずいのでしょうか？
- ベストアンサー
- その他(データベース)
- VB2008 デバッグを実行すると作成したフォームとは違い、Form1が表示されます
VB２００８をはじめたばかりの初心者です。 ファイル入出力のプログラムを書いて、フォームも作成（OpenFileDialogなどを使用）しました。 デバッグを実行すると、フォームでファイル入出力ができるようになる予定なのですが、 「Form1」という何もないフォームがでてきます。 （はじめに手を加えていない、Form1というものがなぜか表示されます。もちろんボタン等もありません） 実際に作成したフォームは、frmWav.vbというプログラムのため、フォームの名前もfrmWav.vb[デザイン]となっています。 デバッグ自体はエラーとはならないため、原因がわかりません。どうかご回答おねがいします！！
- ベストアンサー
- Visual Basic
- EXCEL VBAのオートメーションエラーについて
セル入力されたファイル名を順番に開いてファイル名の書いてあるファイルのデータを開いたファイルにコピーしていくもの作ったのですが、これだけをコマンドボタンから起動してもエラーは出ません。でも、3つのコマンドボタンがあり、最後の段階のボタンなので、段階をおってすすめると、実行時エラーで、「オートメーションエラーです。起動されたオブジェクトはクライアントから切断されました。」のメッセージが表示されます。その後はフリーズしてしまいます。 パソコンの空き容量などの影響なのか、それとも構文にまちがいがあるのかわからず困っています。 ファイルの内容がうまく説明できないのですが回答よろしくお願いします。
- 締切済み
- オフィス系ソフト
