Public Sub tensou() On Error GoTo E Dim myDB As Database Dim myTD As TableDef 'カレントデータベースを変数に代入する Set myDB = CurrentDb 'データベース内のテーブル名前を表示する For Each myTD In myDB.TableDefs '別ファイルのテーブル名からデ…
pingの応答を許可 http://www.server-world.info/query?os=Windows_Server_2008&p=first_conf&f=7 共有フォルダのアクセスを許可 http://faq.ricoh.jp/faq/1032/app/servlet/qadoc?001863
強制的にIPアドレスを解放してから、再割り当てする ipconfig /release ipconfig /renew
Option Compare Database 'dbfインポートFunction import_dbf() Dim Path As String Dim buf As String, f As Object Path = InputBox$("dbf格納フォルダ") buf = Dir(Path & "\*.dbf") Do While buf <> "" On Error GoTo Err_import_dbf Debug.Print (Path …
Option Compare Database Function alterFields() Dim cn As New ADODB.Connection Dim cmd As New ADODB.Command Dim sql As String Set cn = CurrentProject.Connection cmd.ActiveConnection = cn sql = "ALTER TABLE [テーブル名] ALTER COLUMN [カラム…
AccessからExcelファイルを開いて・印刷して・閉じたい http://www.ken3.org/vba/backno/vba064.html
'列番号を文字に変換するユーザー定義関数 Function ColNum2Txt(lngColNum As Long) As String On Error GoTo ErrHandler Dim strAddr As String strAddr = Cells(1, lngColNum).Address(False, False) ColNum2Txt = Left(strAddr, Len(strAddr) - 1) Exit F…
'Accessテーブルの指定フィールド一括置換 Function replaceTable() Dim myDB Dim myTD On Error GoTo Err_replaceTable 'カレントデータベースを変数に代入する Set myDB = CurrentDb 'データベース内のテーブル名前を表示する For Each myTD In myDB.Table…
よく忘れるのでメモ var h = document.documentElement.scrollTop || document.body.scrollTop; http://blog.alt-scape.com/archives/266 http://blog.alt-scape.com/archives/266
for(Map.Entry<String, String> e : map.entrySet()) { System.out.println(e.getKey() + " : " + e.getValue()); } http://d.hatena.ne.jp/yamama_lanchester/20080530/1212122258</string,>
"com.microsoft.sqlserver.jdbc.SQLServerDriver"の場合 Connection conn = コネクション作成します。 String SQL = SQL作成します。 Statement stmt = conn.createStatement(ResultSet.TYPE_SCROLL_SENSITIVE, ResultSet.CONCUR_UPDATABLE); ResultSet rs =…
Format(CDate("1868/12/31"),"ggge") →明治1年 Format(CDate("1868/01/01"),"ggge") →1868 http://www.accessclub.jp/bbs5/0033/vba10325.html
基準となるセルの位置から指定したオフセット分だけ移動 http://www.officepro.jp/excelvba/cell_range/index6.html Find検索 http://blog.livedoor.jp/katsuyausami/archives/51667888.html http://www.moug.net/tech/exvba/0050116.html Excelプロセスが残…
Function exRunMcrObj() 'xls の マクロを実行 On Error GoTo Err_exRunMcrObj Dim xls As Excel.Application Dim wkb As Excel.Workbook Dim sMDBName As String With CreateObject("Scripting.FileSystemObject") sMDBName = .GetFileName(CurrentDb.Name)…
Function GetXlData() As Boolean ' パス＆ファイル名のエクセルデータを丸ごと読み込んで ' データ変換後 Access に取り込む。 GetObject() 使用。 ' Access側の既にあるテーブルに全て文字列フィールドとして格納。 ' 参照設定：Microsoft DAO x.x Object …
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
