2012-07-01から1ヶ月間の記事一覧

OLEDB コンボボックス

DataSetを利用してコンボボックスを作成する。 http://park5.wakwak.com/~weblab/selectCombOnly.html ただ、作成したコンボボックスに1件追加 みたいなのが簡単にできないみたい。 一度クリアして再度作成するしかないのかな?

OLDB SQLServer 接続

DB接続文字列一覧 http://homepage1.nifty.com/kojama/works/rdbms/conn/connstr.html#mssqloledb

フォルダのタイムスタンプを取得する

フォルダのタイムスタンプを取得する http://jeanne.wankuma.com/tips/vb.net/directory/gettimestamp.html

気になるweb関連のキーワードまとめ

ランディングページ http://www.okuramkt.com/dic/mkt/landing_page.html

Access csvデータ取り込み

①テーブルの作成 「TBL_インポート」を作成する →csvデータがこのテーブルに挿入される ②まずインポート定義を作成する →とりあえず1ファイルだけ 「TBL_インポート」 にインポートしてみて それを「csvインポート定義」という名前で保存する。 ③モジュール…

VB.NET Excelに画像を挿入し、サイズ 変更するサンプル

画像を挿入し、サイズ 変更するサンプルソース Sub Main() Dim xlPictures As Excel.Pictures Try xlPictures = DirectCast(xlSheet.Pictures, Excel.Pictures) Dim xlPicture As Excel.Picture Try Dim imgPath As String imgPath = "画像のパスを指定する"…

vba カレントパス取得

カレントパスを取得するには CurrentProject.Path これで取得できる。

文字列の小文字大文字変換

Dim strTemp As String = "ccd" ' 文字列を半角に変換する Dim stUpper As String = StrConv(strTemp, VbStrConv.Narrow) ' 文字列を大文字に変換する stUpper = stUpper.ToUpper() 'まとめると StrConv(strTemp & "", VbStrConv.Narrow).ToUpper()

縮小変換しないで呼び出される、アクセス可能な ’Join’ がないため、オーバーロードの解決に失敗しました:

縮小変換しないで呼び出される、アクセス可能な ’Join’ がないため、オーバーロードの解決に失敗しました: 原因は Joinする配列に問題がある。 Dim aryTemp As Array = Split( strTemp, ",") strTemp = Join( aryTemp , ",") これはエラー Dim aryTemp As S…

確認ダイアログ

javascript のconfirm的な動作をしたい時は Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If MessageBox.Show("よろしいですか?", _ "確認", _ MessageBoxButtons.YesNo, _ MessageBoxIc…

VBA コンボボックス 連携

コンボボックスを連携させる方法 http://ww3.tiki.ne.jp/~kaya/Ac_tips_sample01P2.html

vba DoCmd.OpenForm

DoCmd.OpenFormを実行すると 「OpenFormアクションの実行はキャンセルされました」 エラーが発生する原因は OpenFormの[レコード抽出条件]オプションに おかしな箇所がある 数値フィールドを文字列で検索してたり、など

vba ラジオボタン デフォルトでチェックONにする方法

access のラジオボタンで デフォルトでチェックONにするには オプショングループ(opt1)を設置 オプショングループ内にオプションボタン(radio1,radio2,radio3)を設置 opt1.Value = 1 'radio1のチェックがOn opt1.Value = 2 'radio2のチェックがOn opt1.Value…

三項演算子

VB.NETの三項演算子 Dim a As String = "~", b As String = "~" Dim sResult As String = If(a = b, "hoge", "fuga") IIFでもイケる? http://genz0.blogspot.jp/2008/12/netvbnet.html

コンピューター名変更

virtualPCのコンピューター名を変更できない! 「指定されたコンピュータ名は、既にネットワーク上で使われています」 「ネットワーク上に同じ名前があります」 上記のエラーがでる が、実際にvirtualPCはネットワーク接続してないのに・・・ virtualPCの設…

saパスワードの変更

SQLServerの管理アカウント(saアカウント)のパスワードを変更する http://www.timetracker.jp/support/documents/KB/Tips/KB101201_01.htm