cast(cast(フィールド as bigint) as varchar(100)) 普通にcast(フィールド as varchar(100)) すると 2.249e+016 こんな感じが 22490001200010012 こんな感じに変換できる http://stackoverflow.com/questions/3715675/how-to-convert-float-to-varchar-in-…

http://engineermemo.wordpress.com/2010/03/13/windows-server-2008-r2-%E3%81%A7%E3%83%87%E3%82%B9%E3%82%AF%E3%83%88%E3%83%83%E3%83%97-%E3%82%A2%E3%82%A4%E3%82%B3%E3%83%B3%E3%81%AE%E5%A4%89%E6%9B%B4%E3%82%92%E8%A1%A8%E7%A4%BA%E3%81%99%E3%82%8…

Function GetXlData(InPath, InFile) As Boolean ' パス＆ファイル名のエクセルデータを丸ごと読み込んで ' データ変換後 Access に取り込む。 GetObject() 使用。 ' Access側の既にあるテーブルに全て文字列フィールドとして格納。 ' 参照設定：Microsoft …

DoCmd 実用例 http://www.tsware.jp/tips/tips_008.htm 'Accessダイアログ非表示 DoCmd.SetWarnings False DoCmd一覧 http://www.geocities.jp/cbc_vbnet/kisuhen/docmd.html

ゼロ埋め http://www.accessclub.jp/bbs/0020/beginers9266.html

Dim sSQL As String sSQL = "SELECT FUGA, 構造 FROM HOGE" sSQL = sSQL & " WHERE FUGA = '" & Range("C3").Value & "'" sSQL = sSQL & " AND MOFU like '%" & Range("D3").Value & "%'" sSQL = sSQL & " ORDER BY FUGA DESC;" これじゃ検索できない sSQL …

Dim newWidth As Integer = 240 Dim newHeight As Integer = 320 Dim src As Bitmap = New Bitmap("c:\hoge.jpg") Dim dest As Bitmap = New Bitmap(newWidth, newHeight) Using g As Graphics = Graphics.FromImage(dest) g.DrawImage(src, 0, 0, newWidth,…

'全角スペースで終わっているフォルダ名があるとGetFilesでエラーが発生するのでその対応 If Right(folder, 1) <> "\" Then folder = folder & "\" End If http://dobon.net/vb/bbs/log3-8/4859.html

Dim workTable As DataTable = New DataTable("Customers") 'カラム名を追加 workTable.Columns.Add("ColumnName", Type.GetType("System.String")) 'レコードを追加 Dim workRow As DataRow = workTable.NewRow() workRow(0) = ”Value” workTable.Rows.Add(…

DataGridViewで、行を削除しようとすると、「コミットされていない新しい行を削除することはできません。」とエラーが出てしまうのを回避するには '列が自動的に作成されないようにする DataGridView1.AutoGenerateColumns = False http://detail.chiebukuro…

シート名を指定してワークシートオブジェクトを取得するサンプル Dim xlWorkBook As Excel.Workbook Dim xlSheets As Excel.Sheets Dim xlSheet As Excel.Worksheet Dim SheetName As String 'エクセルを開く xlWorkBook = xlApp.Workbooks.Open(”hoge.xls”…

レコードを追加する サンプルソース '===テーブル1削除クエリがあったとして====== '警告ダイアログをOFF DoCmd.SetWarnings False 'テーブル1削除クエリを実行する DoCmd.OpenQuery "テーブル1削除" '===テーブル1削除クエリがあったとして====== 'テーブル…

指定したフォルダ内の フォルダ一覧を取得し、 そのフォルダ一覧以下のファイルを取得し、 そのファイルを読み込むサンプルソース 'Folder の一覧を取得する Sub ListUp_FolderList(FolderSpec) Dim Folder_Collection As Object Dim Folder_List As Variant…

サンプルソース Do Until oRS.BOF Or oRS.EOF DoEvents 重い処理() oRS.MoveNext Loop http://homepage2.nifty.com/kasayan/vba/doevents.htm

Application.DisplayAlerts = False http://oshiete.goo.ne.jp/qa/1353228.html

http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=18124&forum=7 http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200902/09020005.txt 上記によると「IMEX=1」を加えるとOKみたいな感じですが 26レコード目までが数字しか入力されていない…

［ツール］→［ユーザー設定］→［コマンド］タブ→ ［分類：書式］→［コマンド：セルの結合］→ ツールバー上にドラッグアンドドロップ→ ユーザー設定ダイアログは閉じずに［セルの結合］ボタン上で右クリック → ［イメージとテキストを表示］→［閉じる］ おわり…

ACCESS で OUTER JOIN はサポート外 なので hogeテーブル┌─────┐│ID name │ ──────│ 1 a ││ 2 b ││ 3 c ││ 4 d │└─────┘ fugaテーブル┌─────┐│ID name │ ──────│ 1 a ││ 2 b ││ 3 c ││ 5 e │└─────┘ mofuテーブル┌─────┐│ID name │ ──────│ 4 d ││ 5 e │└───…

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

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

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

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

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

画像を挿入し、サイズ 変更するサンプルソース 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 = "画像のパスを指定する"…

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

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

縮小変換しないで呼び出される、アクセス可能な ’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…

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

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