FillRectangleとDrawRectangleで塗りつぶされる領域が違ってた。 DrawRectangleより、Width, Height が、それぞれ1ずつ少なく塗りつぶされていた。 Dim g As Graphics = e.Graphics Dim rect As New Rectangle(20, 20, 120, 120) g.DrawRectangle(Pens.Blue,…

SQLite3へCSVファイルを取り込むためのスクリプトのメモ 次の必要なファイルを同じフォルダに配置する。 sqlite3.exe CSVを取り込む先のテーブル(CSV_DATA)が作成されたDB(Sample.sqlite3) csv_import.bat INPUTフォルダを作成し、取り込む対象のCSVファイル…

プロセス毎にCPU使用率や、メモリ使用量のログを取得したい。 パフォーマンスモニターでログを取得しても良かったけど1日に1～2回程度で良いので長期間ロギングをする。 WMICというコマンドを使用する。 batファイルに次のコマンドを書いて、タスクスケジュ…

Windows 7 Professional 32ビット、VB2010を使用している環境で急に次のエラーが表示されるようになった。 エラー 1 モジュール ファイル 'C:\Users\Administrator\AppData\Local\Temp\.NETFramework,Version=v4.0.AssemblyAttributes.vb' を開けません: 指…

資料を作ったりするときにExcelをよく使います。 このとき、VLOOKUP関数がすごく役にたつのだけど一覧から見つからないときは、0を返したりするので、IFで判断して空白に変えたりとがんばってました。 でも、これだけで、VLOOKUPで見つからない場合0ではなく…

横にLabelを並べてチェック用の数値を表示したい。 チェック項目は設定で変更される。 Formのサイズを取得して、Labelのサイズを調整しても良かったけどTableLayoutPanelを使ってみた。 参考にしたHP http://dobon.net/vb/dotnet/control/tlrowstyles.html h…

VB.netでUPDATEを一度に実行したかった。 1回ずつUPDATEしても良かったけど、この方法だと件数が多いとかっこ悪いのでセミコロンで区切ってUPDATE文をつなげてってしてる時にふと「CommandTextの最大文字数ってどれぐらいだっけ？」と思ったので調べてみた。…

DataTableのSelectを使うと遅いって、よく見るのでLINQを使ってみた。 LINQがさっぱり分からなくて、とりあえずSelectの変わりになる程度のを作成した。 ItemTable (Index作成済み)には ITEM_NO, ITEM_NAME SeihinTable (Index作成済み)には SEIHIN_NO, SEIH…

SQL Server 2014を導入しているシステムで21億件(int型の最大値まで)のテストデータで検証する必要があったのでテストデータの作成方法を調べた。 最初にストアドでWHILEを使ってINSERTしていたら10日間ほどかかる計算になった。 ネットを調べると高速にテス…

Try Catchの例外を無効にするというか、例外発生時にコード上で停止させる方法です。 Try Catchを書くのは良いけど、エラーが出ても「動いてるように見える」のでデバッグ時には「ここでエラーでたよ！」と教えて欲しいです。 Visual Studio 2010を使用して…

DataGridViewで複数行選択したデータをDataRowの配列に入れたい。 選択している1行をDataRowに入れるのはすぐに見つかった。 もっと良いやり方があるかもしれないけどメモ。 DataGridView.DataSourceにDataTableが割り付いていること。 If dgv.SelectedRows.…

モニターが接続されていないパソコンがあって、それに接続するためにリモートデスクトップの「Brynhildr」をインストールしています。 このソフトのバージョンが最新になったので、とりあえず更新しようと思ったけどモニターの切替が大変になっていたのでBAT…

ExcelのVBAを作成していると、Sheet名ではない方のSheet1～の連番で作成される番号がずれたり、ばらばらだったりして、見た目が悪かったり(VBA見ないと分からないけど)するので直したいなぁ～と思って調べたら次のを見つけた。 Public Sub ChangeCodeName() …

DateTimePickerで選択範囲の日を設定するには DateTimePicker.MinDate DateTimePicker.MaxDate に日付を設定する。 次の点に注意すること MinDate = 2015/02/01 MaxDate = 2015/02/04 として、2015/03/01～2015/03/03を設定しなおす場合 MinDateに2015/03/01…

DataTableのCopyメソッドを使用すると、値も含めてコピーできる。 コピー先のDataTableを変更しても、コピー元のデータは変わらない。 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim dt1 As New DataTab…

CreateObjectを使って参照したいオブジェクトがある場合ProgID(文字列)を引数として渡す必要があります。 有名どころのExcel、Wordといったのはネットで検索すればすぐに見つかりますが専用ソフトとかであれば、ProgIDなんかネットで検索しても見つかりませ…

1日1ファイルで1分毎の収集データが3ヶ月分あり、それらをSQLiteに格納したかったから、insertを使ったけど遅くて遅くて...30分ほどかかった。 色々しらべたら次の方法を見つけた。 コマンドラインで次を入力するとすっごい速くCSVをテーブルに取り込めた。5…