Sub 一覧取得() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordset Dim strSQL Dim DB_FILE As String Dim SHEET_LIST As String DB_FILE = "C:\www\confidential\New登録スタッフデータ.m…

図書館で調べたのでメモnewRecord RecordCount CurrentRecord acRevious acNext acNew acLastBeforeUodate acCmdSaveRecord Undo findRecord NoMatch findFirst findNext Replace Dcount Dmax Dlookup（検索キーの複数送信）-------------------------------…

string quotemeta ( string $str ) 文字列 str について、 . \ + * ? [ ^ ] ( $ ) の前にバックスラッシュ文字 (\) でクォートして返します。 (機能概要)引数からすべての正規表現のメタ文字をバックスラッシュでエスケープしたものを返します。（例）キーワ…

サッカーのワールドカップなんかで「イングランド代表」というチームが出てます。 でも「イギリス代表」ってないよね？それは「イングランド」は実は国名なのですって 「イギリス」の正式な国名→「グレート・ブリテン及び北アイルランド連合王国」で、グレー…

http://www.h3.dion.ne.jp/~sakatsu/holiday_logic2.htm#PHP

@echo off rem set /a t1="date /T" for /f "usebackq tokens=*" %%i IN (`date /T`) DO @set t1=%%i rem echo [%t1%] rem トリミング set t2=%t1:~0,10% echo [%t2%] rem if "%t2%"=="2010/06/29" echo x29 if "%t2%"=="2010/06/29" goto label1 rem label1…

数値化 // 整数化 search_value = search_value.replace(/[^0-9]/g,""); search_value2 = search_value2.replace(/[^0-9]/g,""); 文字幅チェック // 文字幅チェック（YYYYMMDD形式） var errmsg=""; if( search_value.length != 8 ) { errmsg += "日付は8桁…

CREATE TABLE tbl受注明細( 受注ID LONG CONSTRAINT tbl受注FK REFERENCES tbl受注, 商品ID LONG, 単価 CURRENCY, 数量 SHORT, 値引 DOUBLE, CONSTRAINT PrimaryKey PRIMARY KEY (受注ID、商品ID) ); 注意) AccessツールオプションでSQL92を有効にしましょう…

Function append_LinkTables() 'Accessリンクテーブルを設定します '2009-03-31 Kotaka Dim strPath As String 'カレントパス 'strDbPath = Application.CurrentProject.Path 'strDbPath = "X:\" strDbPath = "C:\work\access\New登録スタッフデータ\" 'DB名…

文字コードが utf8 の場合、 日本語は 3 バイトになるため、 カウントしたい文字列をいったんデコードしてから文字数をカウントする必要があります。 その際、正確に文字数をカウントするために改行は削除しておくこと。 以下のようにして Encode モジュール…

19.1検証 validate_on_create・validate_on_update blank? エラー情報 error.add error.clear 検証ヘルパー validates_[] acceptance_of associated confirmation_of each exclusion_of format_of inclusion_of length_of numericality_of presence_of size_…

Javascript/DOM [rakuten:book:11991930:detail]

Function echo1() Dim strFile As String 'チェック対象となるファイル名 Dim strName As String strFile = Application.CurrentProject.Path & "\Excel経歴書出力用\" & "lock" strName = Dir(strFile, vbNormal) 'ファイル名を得る If (strName = "") Then…

@echo off rem ------------------------------------------------- rem ネットワークドライブの割当BAT rem ------------------------------------------------- rem ■■■■ネットワークドライブのドライブ文字 set DriveLetter=X: rem ■■■■ネットワークドラ…

BACKUP DATABASE バックアップをしたいデータベースの名前 TO DISK='バックアップ先書き込みファイル名'

書籍クラス using System; using System.Collections.Generic; using System.Text; namespace model01 { class Book { private string title; private string note; private int user_id; public Book(string title, string note, int user_id) { this.title…