復讐は遂げねばならぬ

2012年5月2日水曜日

vb2005からSQLserver使っててDateTimeの比較で詰まったのでメモ

まずはDateTime型にするところから。

vb2005で日時の文字列をDataTime型に変換するときは以下のように行う。

Dim dt As DateTimedt = DateTime.ParseExact("2012/05/02 19:04:30", "yyyy/MM/dd HH/mm/ss", Nothing)　　　　'DateTime.ParseExact(変換したい日時, フォーマット, フォーマットと日時の対応表？)

この時、文字列の書式とフォーマットの書式が一致していないと怒られる。

SQLで比較するときはすでにDateTime型なので

Dim query As String = ""query = query + " SELECT COUNT(*) " + vbCrLfquery = query + " FROM ZIEX " + vbCrLf query = query + " WHERE YMDT >= " + dt + " " + vbCrLf

などとする。
dtがString型のままの場合は以下のようにシングルクォーテーションで囲まなければならない。

Dim query As String = ""query = query + " SELECT COUNT(*) " + vbCrLfquery = query + " FROM EAGLE " + vbCrLf query = query + " WHERE YMDT >= '" + dt + "' " + vbCrLf

2012年4月25日水曜日

ubuntu11.10を入れました。

許可は得ていないのだけど職場のＶＭ環境にubuntu11.10を割と堂々と入れました。
12.04でもよかったのだけどね。
先輩たちにチラ魅されつつchromeやgftp、vimといったやわらかめのツールを入れました。
願わくはあれで開発したいｗ

2012年4月24日火曜日

先日の姫路IT系勉強会でmacbook airがうらやましくてしょうがない的な感情に駆られる。
これはもういつまでもwindows使っててもvi使えないしターミナル使えないしgit使えないしでどうしようもない。
つまり買えっていうお告げというか決定。
でも初任給は電子レンジとか洗濯機買いたいので却下。
目標としてはappleが新製品発表しなかったら６月中に手に入れる。
ローンが怖くてmacが買えるか！

2012年4月22日日曜日

姫路ＩＴ系勉強会.vol4に参加してきた

13:30からでしたが、時間ちょうど位に会場入り。以前ruby関西で見かけた人もちらほらいました。
「春のチキチキjQuery祭り」は聞いてて楽しかった。javascript触りたい。
あとawk関連のLTが２本。awkというコマンドを初めて知ったが、プレゼンができたりグラフィックス出せたりと不思議なコマンドだった。
習得すると便利そう。
macbook airマジ欲しい…

2012年4月18日水曜日

vb6でPictureBoxを使用するときの注意

VB6でPictureBoxを使用すると画像や文字などのオブジェクトの上に描画され、隠されてしまう。

たとえば

Dim image As new StdPicture
form.Picture.PaintPicture image, x,y

としたとき、同じ座標にPictureBoxを置いた場合PictureBoxが邪魔でimageが見えないよ！！ということ。

vb6_イミディエイトウィンドウ

vb6でデバッグ時にイミディエイトウィンドウを使用すると実行中の変数の中身を確認したり、値をセットできる。

?変数名

値が表示される

debug.Print 変数名

値が表示される

TypeName(変数名)

変数の型を調べる

"変数　＝　値"

変数に値をセットする

vb6で画像描画

VB6でフォームやPictureBoxの指定位置に直接描画するやり方。

' Create a stdPicture object.

Dim pic As New StdPicture

Set pic = LoadPicture(strFilePath)

form.picturebox.PaintPicture pic, x, y

PaintPicture以降で指定した画像ファイルをformやPictureBoxの指定したx,yに表示する。
vb6ではImageではなくPictureらしい。