- ベストアンサー
DBComboについて
ファイル名をDBComboで選択できるようにしています。 ファイル名が予め決まってて、DBcomboにセットしたい とき、 DBCombo1.Text = Filename として、OKボタンクリックで、読み込み、という 処理なんですが、 OKすると DCbFileName.BoundText ="" になってしまい、ファイル名は選択されてないもの、 として扱われてしまいます。 これは、どうやってファイル名をセットしたらいいですか？
- suigaku
- お礼率56% (93/164)
- Visual Basic
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
- ベストアンサー
BoundTextプロパティのヘルプより ”BoundColumn プロパティで指定したフィールドの 値を設定します。” とあるのでBoundColumn がコードを指定 しているなら、 Dbcombo1.BoundText = 32 などとすればよいのではないでしょうか？
関連するQ&A
- ファイルを開きたいのですが、うまくいかなくて困っています。
ファイルを開きたいのですが、うまくいかなくて困っています。 以下のソースですが、デバッグしながらやっているので謎な部分があるかもしれません。 やりたいこと： ・実行ボタンを押すと"data/test.txt"を開き、OK部の処理に入りたい。 現状： ・参照ボタンを押した後、ファイル選択ダイアログで[開く]を押した後、実行ボタンを押すとエラー ・参照ボタンを押した後、ファイル選択ダイアログで[キャンセル]を押した後、実行ボタンを押すとOK ・"data/test.txt"は存在します。"r"を"w"にして作成してみたりした為、間違いないと思います。 VC++(MFC)でプログラミングしています。 自力解決が難しい為、お力を貸してくださいm(__)m [環境] OS: Windows XP SP3 tools: VisualStudio2008 //**************************************************************** // 参照ボタン //**************************************************************** void CMergeFile::OnBnClickedButtonRef02() { static char BASED_CODE szFilter[] = "Text Files(*.txt)|*.txt|All Files(*.*)|*.*||"; // ファイルの指定を行う CFileDialog dlg( TRUE, NULL, NULL, OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT | OFN_FILEMUSTEXIST, zFilter, NULL ); dlg.m_ofn.lpstrTitle = "取り込むファイルを選択"; // ＯＫボタンが押されたかチェックする if( dlg.DoModal() == IDOK ){ // ファイル名称クリア処理 ※fileNameはメンバ変数として外に持っています。 memset( fileName, '\0', sizeof(fileName) ); // ファイル名を取得する strcpy( fileName,dlg.GetPathName()); } else { return; } // 選択ファイル名を表示する m_edit_filepath.SetWindowText(fileName); } //**************************************************************** // 実行ボタン //**************************************************************** void CMergeFile::OnBnClickedButtonExe02() { FILE *fpBase = 0; fpBase = fopen("data/test.txt", "r"); if ( fpBase == NULL ){ MessageBox("err"); // エラー } else { MessageBox("ok"); // OK fclose(fpBase); } }
- ベストアンサー
- C・C++・C#
- VB６・一括でファイル名の変更したいのですが
VB6でファイルリネームツールを作成しています。 DriveListBox・DirListBox・FileListBox・TextBox*2・コマンドボタン*3を配置しています。 実行して、ドライブ・ディレクトリを選択して、FileListBoxに表示されいるファイルをコマンド2ボタンで全部Text2に表示させています。 そこで、text2からファイル名を直接編集して、コマンド3ボタンで編集したファイル名で保存したいのですが、どう記述すれば良いのでしょうか。 Text1とコマンド1の状態は、FileListboxでクリックしたファイルをText1に表示・編集して、コマンド1でファイル名変更できる状態です。 コマンド3のコードですと、 >Set fsofile = fso.GetFile(Dir1.Path & "\" & File1.FileName) の行が、実行エラー53、ファイルが見つかりません。となります。 宜しくお願いします。 現在のコードです。 Private Sub Command1_Click() Dim fso As New FileSystemObject Set fsofile = fso.GetFile(Dir1.Path & "\" & File1.FileName) fsofile.Name = Text1.Text File1.Refresh end sub Private Sub Command2_Click() Text2.Text = Clear Dim fso As New FileSystemObject For Each myFile In fso.GetFolder(Dir1.Path & "\" & File1.FileName).Files Text2.Text = Text2.Text & myFile.Name & vbCrLf Next End Sub Private Sub Command3_Click() Dim fso As New FileSystemObject Set fsofile = fso.GetFile(Dir1.Path & "\" & File1.FileName) fsofile.Name = Text2.Text File1.Refresh End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() Text1.SetFocus Text1.Text = File1.FileName End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Dir1.Path = App.Path Drive1.Drive = App.Path End Sub
- ベストアンサー
- Visual Basic
- フォルダやドライブ変更するとリネームできなくなります。
現在VB6でファイルリネームツールを作成しています。 DriveListBox・DirListBox・FileListBox・TextBox・コマンドボタンを配置しています。 ドライブ・ディレクトリ・ファイルを順に選択して、選択したファイル名をテキストボックスに表示させ、ファイル名を テキストボックスで直接編集してコマンドボタンでリネームを実行しています。 以下のコードで実行すると、 起動して最初に表示されるVB98フォルダ内のファイル名はコマンドボタン１・２どちらでも 変更できますが、ドライブやディレクトリを変更して、Textboxでリネームをしコマンドボタンを押すとエラーが出てリネームできません。 コマンド1ボタンエラー >Set fsofile = fso.GetFile(File1.FileName) コマンド2ボタンエラー >Name nname As newname となります。どちらもエラー番号53で"ファイルが見つかりません"とでます。 どのように記述すればディレクトリやドライブを変更しても名前を変えられるでしょうか？宜しくお願いします。 Private Sub Command1_Click() Dim fso As New FileSystemObject Set fsofile = fso.GetFile(File1.FileName) fsofile.Name = Text1.Text File1.Refresh End Sub Private Sub Command2_Click() Dim nname As String Dim newname As String nname = File1.FileName newname = Text1.Text Name nname As newname File1.Refresh End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() On Error GoTo Derr Dir1.Path = Drive1.Drive Exit Sub Derr: If Derr = 68 Then MsgBox "デバイスの準備ができていません。", vbCritical Else MsgBox "ドライブにエラーがあります。", vbCritical End If End Sub Private Sub File1_Click() Text1.Text = File1.FileName End Sub Private Sub Form_Load() Text1.Text = "" Dir1.Path = App.Path Drive1.Drive = App.Path End Sub
- ベストアンサー
- Visual Basic
- Excel VBAについて
Excelのシートにコマンドボタンを配置して、そのコマンドボタンをクリックすると「ファイルを開く」のダイアログボックスを表示したいと思っています。 そのとき、デフォルトでファイルの場所は「D:\Test」にしたいのですが、どうしたらよいのでしょうか。 ユーザは、ファイルの場所を探さずに、コマンドボタンをクリックしたら開きたいファイル名を指定するだけでいいようにしたいのですが。 下記では、ファイルを開くダイアログは表示されるのですが、ファイルの場所を毎回探さなくてはいけません。 どなたかご教授下さい。 Private Sub Cmd_ファイル選択_Click() Dim FileName As Variant FileName=Application.GetOpenFileName("Microsoft Excelブック,*.xls") Workbooks.Open OpenFileName End Sub
- ベストアンサー
- Visual Basic
- 起動時のマクロイベント
お世話になります。 現在VBAである処理を行なおうとしています。 手順1.ブックを開いた時点で任意の場所に格納されているフォルダ名をボタン名にセットし表示 手順2.フォルダ名が表示されたボタンをクリックすると新しいブックが開き、クリックしたボタン名に相当するフォルダの中身のファイル名をボタン名にセットする。 手順3.ファイル名が表示されたボタンをクリックするとファイルが表示される。 としています。 それぞれのブック（Sheet1）のなかに Private Sub Workbook_Open() (処理を記述) End Sub をつくり、手順1．手順2.ともにフォルダ名やファイル名を取得する処理を記述しているのですが、ブックを起動した時点では実行されません。 ブックの起動後に自らマクロボタンをクリックさせなければならない状態です。 マクロを実行しなければエラーになり、 マクロを実行すれば思うような結果が返ってきます。 処理を”ThisWorkbook”のなかに記述しても変わりませんでしたし、マクロが有効になっていないのかと思い、セキュリティー設定を確認したところ「中」になっていたので大丈夫であるとは思う出すけど・・・。 問題点を解決するにはどうしたらよいのでしょうか。 コマンドの誤りがあるのでしょうか？ 何か設定が必要なのでしょうか？ 起動時にマクロボタンを自動でクリックするようなコマンドが必要なのでしょうか？ 色々考えているのですが、解決に至りません。 どなたかご教授宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- まとめてファイル名を変更したい
あるフォルダに存在するファイル名に”RAWDATA"を含むテキストファイルを 任意のファイル名でCSVに変更したいのですが、 バッチファイルで set /p filename= rename d:\あるフォルダ\RAWDATA*.txt %filename%*.csv で簡単にできるかなと思ったのですが、 ”RAWDATA”の部分は入力した分しか変更されないようでした。 例えば”abc”と入力すると”abcDATA”となります。 入力したファイル名に置き換わるようにするには どのようにしたら良いのでしょうか？ バッチ初心者ですがよろしくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- CGI は、使用不可なんです。
おはよう御座います。 急ぎなんですが、教えてください。 本を何冊読んでも、判らないんです・・・読む本が不味いのか、私の読み方が悪いのか？ ケータイ電話用に作りたいので、下記のような状態です。 作れないでしょうか？ セット１ 商品名：価格 AAAAA：\100 ■選択ボタン BBBBB：\100 ■選択ボタン CCCCC：\100 ■選択ボタン DDDDD：\100 ■選択ボタン |----------| TEXTBOX 1 |----------| TEXTBOX 2 --------- ■NEXTボタン 選択ボタンでセット1の商品から、2点を選べるので、 （逆に言うと2点しか選べない）テキストBOXを２つ作り、 選択ボタンプッシュで、その商品名を表示します。 NEXTボタンで、セット２→NEXTボタンセット３ と、 幾つかのグループから選択して、最終ページへ。 |----------| 選択した商品名 |----------| 選択した商品名 ・ ・ ・ |----------| 選択した商品名 ***** |----------| 名前入力 ■送信ボタン→メール ----- 指定のメールアドレスに選択結果が送られてくる。 ---- すみません、よろしくお願いします。
- ベストアンサー
- HTML
- IllustratorCS3でのJavascriptを使ったＧＵＩコントロールについて
IllustratorCS３でJavascriptを使ったGUIコントロールの使い方について質問です。 Javascriptで以下のようにテキストボックスの横に参照ボタンを置き、ボタンをクリックすると「ファイル選択」ダイアログを表示し、そこで選択したファイルのパスをテキストボックスに表示したいと思っています。 以下のようなソースを作成しました。 winObj = new Window("dialog","テキスト変換ツール",[100,50,330,200]); sbtnObj=winObj.add("button",[180,20,220,40],"参照"); ftxtObj=winObj.add("edittext",[10,10,180,40],"ファイル名を入力してください。"); sbtnObj.onClick=function(){ ffilename=File.openDialog("テキストファイルを指定してください。"); if(ffilename){ ftxtObj.text=ffilename; } } これですと、参照ボタンをクリックしてファイルを選択すると、テキストボックス(ftxtObj.text)に「File」と表示されてしまいます。ここには選択したファイルのパスを表示したいのですが、どなたかご存知の方がいらっしゃいましたらよろしくお願いします。
- 締切済み
- JavaScript
- 保存しても全く表示されない；；
保存しても全く表示されない；； 任意に選択したファイルに出力保存したいのですが全く出力されません；； 以下は保存先を選択するボタンの中身です。 private void button7_Click(object sender, EventArgs e) { SaveFileDialog od = new SaveFileDialog(); od.Filter = "テキストファイル(*.txt) | *.txt"; if (od.ShowDialog() == DialogResult.OK) { cl_filename = od.FileName; textBox8.Text = cl_filename; } } このようにして保存先を選択して 別ボタンで StreamWriter sw = new StreamWriter(cl_filename, false, System.Text.Encoding.GetEncoding("shift_jis")); と宣言しています。保存先のところには先ほどのcl_filenameを指定しています。 なお、cl_filenameはグローバルに宣言してあります。 そしてこのボタン内で // Write the data to a file // 分析情報をファイルに書く stbuf = "データ数：" + kosu_i.ToString(); sw.WriteLine(stbuf); stbuf = ""; stbuf = "次元数：" + zigen_i.ToString(); sw.WriteLine(stbuf); stbuf = ""; stbuf = "クラスター数：" + cl_i.ToString(); sw.WriteLine(stbuf); stbuf = ""; stbuf = "初期分割："; sw.WriteLine(stbuf); stbuf = ""; としているのですが全く表示されません。。；； 上手く行くはずなのですが・・；； 分かる方お願い致します；；
- ベストアンサー
- C・C++・C#
