kazuhisa01 の回答履歴

すみません、vb.netで開発を行うにあたり設計に詳しい方が いらっしゃいましたらご教授願います。 開発する機能はタイトルの通り、txtファイルからデータを読み取り 内容をデータベースに登録するというものですが 現在、開発するにあたり二つのロジックを思いついており どちらが適切か迷っております。 (1) あらかじめtxtファイルの内容を全てリードし配列等の一時変数に退避 　　ファイルリード終了後、配列に格納されたデータを1件ずつ登録 (2)　txtファイルの内容を1件リードするごとにデータベースに登録 開発環境は、vb.net、Oracle です。 txtファイルに格納されているデータ量はファイルにより様々ですが 多くても2万件が予想されます。 迷っている理由としては、 (1)は2万件のデータ量を配列に格納したとしてメモリが耐えれるかどうか？ (2)は、1件ずつ読込みデータベースに登録するとなると 　その分ファイル及びデータベースへのアクセス時間が長くなり 　負荷がかかるのでは？ という、懸念事項が考えられ迷っております。 上記、二つの開発手法の内どちらがベストか または、上記以外にベストなロジックがあればご教授お願い致します。

インターネットに接続可能なパソコンAにExpress Edtionをインストールし、プログラムを作成して出来たexeファイルがパソコンAで動作を確認できたので、実際に使用したいパソコンBとC(インターネットに接続出来ない)にコピーしました。しかし、パソコンBとCでは作成したEXEファイルは動作しません。パソコンBとCには"dotnetfx35.exe"でFramework3.5を、"dotnetfx35langpack_x86ja.exe"で日本語のLanguagePackをダウンロードし、無事にインストール出来ました。動作しない原因は、パソコンAで作成したEXEファイルの問題ですか?それとも、パソコンB＆Cも問題ですか?教えていただけませんか?

Visual Basic初心者です。 例えばCドライブにVBというフォルダがあり、そこにテキストファイルか何かでパスワードを設けておいて、そのファイルがないと実行ファイルが起動せず、フォームが表示しない（できればエラーメッセージを表示するといったものはできますか？ できれば、簡単なプログラムを書き込んでいただけるとうれしいです。 よろしくお願いします。

インターネットに接続可能なパソコンAにExpress Edtionをインストールし、プログラムを作成して出来たexeファイルがパソコンAで動作を確認できたので、実際に使用したいパソコンBとC(インターネットに接続出来ない)にコピーしました。しかし、パソコンBとCでは作成したEXEファイルは動作しません。パソコンBとCには"dotnetfx35.exe"でFramework3.5を、"dotnetfx35langpack_x86ja.exe"で日本語のLanguagePackをダウンロードし、無事にインストール出来ました。動作しない原因は、パソコンAで作成したEXEファイルの問題ですか?それとも、パソコンB＆Cも問題ですか?教えていただけませんか?

Visual Basic初心者です。 例えばCドライブにVBというフォルダがあり、そこにテキストファイルか何かでパスワードを設けておいて、そのファイルがないと実行ファイルが起動せず、フォームが表示しない（できればエラーメッセージを表示するといったものはできますか？ できれば、簡単なプログラムを書き込んでいただけるとうれしいです。 よろしくお願いします。

初心者で申し訳ありません・・・ ボタンを押すと指定したインストールしてある他のソフトを起動したのですが、どのようなプログラムを書けばいいのですか？ よろしくお願い致します。

Visual Basic初心者です。 例えばCドライブにVBというフォルダがあり、そこにテキストファイルか何かでパスワードを設けておいて、そのファイルがないと実行ファイルが起動せず、フォームが表示しない（できればエラーメッセージを表示するといったものはできますか？ できれば、簡単なプログラムを書き込んでいただけるとうれしいです。 よろしくお願いします。

インターネットに接続可能なパソコンAにExpress Edtionをインストールし、プログラムを作成して出来たexeファイルがパソコンAで動作を確認できたので、実際に使用したいパソコンBとC(インターネットに接続出来ない)にコピーしました。しかし、パソコンBとCでは作成したEXEファイルは動作しません。パソコンBとCには"dotnetfx35.exe"でFramework3.5を、"dotnetfx35langpack_x86ja.exe"で日本語のLanguagePackをダウンロードし、無事にインストール出来ました。動作しない原因は、パソコンAで作成したEXEファイルの問題ですか?それとも、パソコンB＆Cも問題ですか?教えていただけませんか?

紙ベースの表内文字をカウントするのに、簡単なフォームでカウンタボタンを作成したのですが、マウスクリックの回数が更新されません。ゆっくりクリックすれば変数＋１となるのですが早くクリックするとカウントされません。クリックした回数を正しくカウントする方法はありませんか？

VB2008 ユーザーフォーム上に 時刻Label（現在時刻表示） ボタン１ 時刻dgv　DataGridViewを配置しています DataGridViewの列は一列で、文字列の時刻を表示させています（12:00) 行の時刻が現在時刻よりも以前の場合、セルに色を つけたいのですがうまくいきません Public Class 時刻一覧表Form Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If 　Me.時刻dgv(0, 0).Value < 時刻Label Then 　　　　　　　　Me.時刻dgv(0, 0).BackColor = Color.Yellow End If End Sub End Class

はじめまして。 販売管理用にAccessでデータベースを作っています。 請求書作成のフォームで、得意先を選択すると 「前回請求額」「前回入金額」「今月売上額」が自動計算されるように Private Sub 会員CD_AfterUpdate() Me.前回請求額 = DLookup("残高", "T-顧客マスター", "会員CD=" & Me.会員CD) Me.前回入金額 = 0 Me.売上額 = Nz(DSum("合計", "Q-請求発行明細"), 0) Me.F請求発行明細.Requery End Sub というような、記述をしましたが、 「メソッドまたはデータメンバが見つかりません」というエラーで Me.前回入金額=0　のところで止まってしまいます。 「前回入金額」とう名前が間違っているのかとテーブルなど確認 してみたのですが、間違っているわけではないようで・・・。 他に、自動で請求金額等を呼出し、更新処理ができるなら別の方法でも構わないのですが、とりあえず、このことで3時間くらい悩んでます。 （頭の出来がわるいんでしょうね、キット・・・T_T　トホホ) どなたかご教授お願い致します。

ダイアログには、「エラー・情報・警告」のタイプがあります。 また、ダイアログのメッセージ内容もそれぞれ違います。他にもボタンの数等・・・ そこで、あるダイアログを表示する際に、 データベースに、コードをキーとして、タイプ・メッセージ内容を格納して、そのダイアログを表示した方が良いのか？ それとも、ローカル上のファイルで設定してダイアログを表示した方が良いのでしょうか？ PS　データベースが万が一落ちてしまった事を考えると・・・ 日本語が変で申し訳ないのですが、ご教授頂けると幸いです。

はじめまして。 販売管理用にAccessでデータベースを作っています。 請求書作成のフォームで、得意先を選択すると 「前回請求額」「前回入金額」「今月売上額」が自動計算されるように Private Sub 会員CD_AfterUpdate() Me.前回請求額 = DLookup("残高", "T-顧客マスター", "会員CD=" & Me.会員CD) Me.前回入金額 = 0 Me.売上額 = Nz(DSum("合計", "Q-請求発行明細"), 0) Me.F請求発行明細.Requery End Sub というような、記述をしましたが、 「メソッドまたはデータメンバが見つかりません」というエラーで Me.前回入金額=0　のところで止まってしまいます。 「前回入金額」とう名前が間違っているのかとテーブルなど確認 してみたのですが、間違っているわけではないようで・・・。 他に、自動で請求金額等を呼出し、更新処理ができるなら別の方法でも構わないのですが、とりあえず、このことで3時間くらい悩んでます。 （頭の出来がわるいんでしょうね、キット・・・T_T　トホホ) どなたかご教授お願い致します。

はじめまして。 販売管理用にAccessでデータベースを作っています。 請求書作成のフォームで、得意先を選択すると 「前回請求額」「前回入金額」「今月売上額」が自動計算されるように Private Sub 会員CD_AfterUpdate() Me.前回請求額 = DLookup("残高", "T-顧客マスター", "会員CD=" & Me.会員CD) Me.前回入金額 = 0 Me.売上額 = Nz(DSum("合計", "Q-請求発行明細"), 0) Me.F請求発行明細.Requery End Sub というような、記述をしましたが、 「メソッドまたはデータメンバが見つかりません」というエラーで Me.前回入金額=0　のところで止まってしまいます。 「前回入金額」とう名前が間違っているのかとテーブルなど確認 してみたのですが、間違っているわけではないようで・・・。 他に、自動で請求金額等を呼出し、更新処理ができるなら別の方法でも構わないのですが、とりあえず、このことで3時間くらい悩んでます。 （頭の出来がわるいんでしょうね、キット・・・T_T　トホホ) どなたかご教授お願い致します。

windowsXP、VB6を使ってアプリケーションを作成しているのですが、 このアプリケーションで「デバッグ実行→終了」を繰り返すと、 2回目以降の実行途中でメモリ不足エラーが表示されます。 VB6を終了し、再度起動するとまたデバッグ実行が可能になり、 上記同様に「デバッグ実行→終了」の繰り返しでまたメモリ不足になります。 http://chaichan.web.infoseek.co.jp/vbtips/VBMemo2006111601.htm を参考にすると、 動的配列や多次元配列、パブリック変数の多用が原因かと思ったのですが、 VB6起動直後は実行できるのでよくわかりません。 アドバイスをいただけないでしょうか。 よろしくお願いいたします。

windowsXP、VB6を使ってアプリケーションを作成しているのですが、 このアプリケーションで「デバッグ実行→終了」を繰り返すと、 2回目以降の実行途中でメモリ不足エラーが表示されます。 VB6を終了し、再度起動するとまたデバッグ実行が可能になり、 上記同様に「デバッグ実行→終了」の繰り返しでまたメモリ不足になります。 http://chaichan.web.infoseek.co.jp/vbtips/VBMemo2006111601.htm を参考にすると、 動的配列や多次元配列、パブリック変数の多用が原因かと思ったのですが、 VB6起動直後は実行できるのでよくわかりません。 アドバイスをいただけないでしょうか。 よろしくお願いいたします。

フォルダＡ 　　ファイル１ 　　　　　氏名：太郎 　　　　　番号：３２１０ 　　ファイル２ 　　　　　氏名：次郎 　　　　　番号:３２１１ 　　ファイル３ 　　　　　氏名：三郎 　　　　　番号：３２１２ ファイルＳ 　　読込ボタン　 　　　　　氏名：　　　　　番号： １．ファイルＳの読込ボタンを押す ２．フォルダＡ内のファイル１の氏名、番号を読込む ３．読込んだ氏名、番号をファイルＳに１行のレコードとして書き込む ４．そのままファイル２の氏名、番号を読込みファイルＳの３．で書き込んだレコードの下（２行目）に書き込む ５．ファイル３を読込んで、同様の処理を行う。 ６．フォルダ内のレコードを全て読み込み、ファイルＳに書き込んだら終了 説明が下手ですいません。 要は、ボタン一つでフォルダ内のすべてのファイルの氏名、番号項目を読み込んで別ファイルにレコード化する処理を行いたいのです。 ＶＢＡで上記の処理を行いたいのですが、構文が書けずにに悩んでいます。 ＶＢＡの勉強を始めたのが４日前で、それ以前に開発の経験はありません。 参考書などを読んでも、参考になる構文が載っておらず、いま一つわかりません。 どなたか、構文を教えて頂けると助かります。 宜しくお願い致します。

フォルダＡ 　　ファイル１ 　　　　　氏名：太郎 　　　　　番号：３２１０ 　　ファイル２ 　　　　　氏名：次郎 　　　　　番号:３２１１ 　　ファイル３ 　　　　　氏名：三郎 　　　　　番号：３２１２ ファイルＳ 　　読込ボタン　 　　　　　氏名：　　　　　番号： １．ファイルＳの読込ボタンを押す ２．フォルダＡ内のファイル１の氏名、番号を読込む ３．読込んだ氏名、番号をファイルＳに１行のレコードとして書き込む ４．そのままファイル２の氏名、番号を読込みファイルＳの３．で書き込んだレコードの下（２行目）に書き込む ５．ファイル３を読込んで、同様の処理を行う。 ６．フォルダ内のレコードを全て読み込み、ファイルＳに書き込んだら終了 説明が下手ですいません。 要は、ボタン一つでフォルダ内のすべてのファイルの氏名、番号項目を読み込んで別ファイルにレコード化する処理を行いたいのです。 ＶＢＡで上記の処理を行いたいのですが、構文が書けずにに悩んでいます。 ＶＢＡの勉強を始めたのが４日前で、それ以前に開発の経験はありません。 参考書などを読んでも、参考になる構文が載っておらず、いま一つわかりません。 どなたか、構文を教えて頂けると助かります。 宜しくお願い致します。

コンボボックスを使用し、＜全台帳＞から、自分の担当分の必要データのみ抽出し、新たに＜一覧表＞を作成したいと考えています。 ≪エクセルの状態≫ ・Sheet1　＜メニュー欄＞（表紙になっています） ・Sheet2 ＜全台帳＞　　部署全体の注文アイテム情報があります。 　　　　　このデータは、毎日自動更新されるようにすでにマクロが組まれています。（行が日々変更します） ・Sheet3　＜自分の一覧表＞ 　　　　　今回作りたいものです。 ≪Sheet2と3の説明≫ ・Sheet2のデータは、下記のようなものが横に一列に並んでいます。 [入力日][注文番号][客先][品名][数量][納期][送り先]など物凄いたくさんの情報が部署全員分あります。 ・Sheet3には、[注文番号（唯一これが自分の分とわかるものです）]からデータを引っ張ってきて、その分の[客先][品名][数量]データのみ一緒に引っ張ってきてほしいのです。 ≪作りたいマクロ≫ 【１】Sheet1のメニュー欄にマクロボタンを作り、それをクリックすると、ユーザーフォーム（コンボボックス）が表示されます。 （表示場所は、Sheet1でも3でもかまいません。） 【２】コンボボックスは、Sheet2にリンクしてあり、[注文番号（直接入力は不可）]から自分の担当分を選ぶ。 【３】ユーザーフォーム上で、＜登録ボタン（コマンドボタン？）＞を押す。 【４】Sheet3に、[注文番号]とその分の[客先][品名][数量]のみ一緒に引っ張られてくる。 注文が入るたびに、この作業をするため、Sheet3は最終行に追加されるかたちにします。 この様なマクロの組み方を、教えてください。 よろしくお願いいたします。

所属名毎にシートを作成し都道府県と所属名が一致したら集計させループさせたいのですがうまくいきません。 データには列135に所属名があり139に都道府県が入っています。 解約シートには6行目5列目から都道府県名が入っています。 最終が沖縄となるので沖縄が入れば抜けるようになっています。 今の状態で実行すると所属名の数毎、都道府県の件数を更にを集計してしまいます。 一度シートを作成した所属はFor～Nextを読み込まないようにしたいのですが 自分なりに制御させようと試みましたが上手く集計されません。 何かアドバイス等ありましたらお願いします。 Dim ingcnt As Integer Dim intHjn As Integer Dim strhjn As String Dim Areastrhjn As String Dim list_cnt As Integer Dim Arealist_cnt As Integer Dim (2) As Worksheet Dim Area_cnt As Integer With Worksheets("解約データ") Set (2) = Sheets("解約・所属別") list_cnt = 2 strhjn = "" Area_cnt = 5 '所属CD1毎のシート作成 Do While Trim$(.Cells(list_cnt, 1)) <> "" '(A列)が空白でない限り繰り返す If strhjn <> .Cells(list_cnt, 135) Then strhjn = .Cells(list_cnt, 135) Sheets("解約").Select Sheets("解約").Copy Before:=Sheets("解約") Sheets("解約(2)").Name = strhjn ActiveSheet.Cells(1, 15) = strhjn End If For Area_cnt = 5 To (2).Cells(6, (2).Columns.Count).End(xlToLeft).Column Area = (2).Cells(6, Area_cnt) Arealist_cnt = 2 Areastrhjn = "" Do While Trim$(.Cells(Arealist_cnt, 1)) <> "" '(A列)が空白でない限り繰り返す Areastrhjn = .Cells(Arealist_cnt, 135) 'エリア集計 If Areastrhjn = .Cells(Arealist_cnt, 135) And _ .Cells(Arealist_cnt, 139) = Area Then ActiveSheet.Cells(7, Area_cnt) = ActiveSheet.Cells(7, Area_cnt) + 1 End If Arealist_cnt = Arealist_cnt + 1 Loop If Area = "沖縄" Then Exit For Next list_cnt = list_cnt + 1 Loop End With End Sub