2009年3月25日水曜日

Excel CSVファイルを開く時に列のフォーマット指定する

CSVファイルを直接開くとデフォルトの書式で処理され、
文字列が数値や日付として処理されることへの対策

[データ]-[外部データの取込]-[テキストファイルのインポート]

2009年3月22日日曜日

接続エラー

SQL Server 2008 Express

>>SQL Server のユーザーインスタンスを生成できませんでした。
>>統合接続だけがユーザー インスタンスを生成できます。

ユーザー インスタンスは、SQL Server 認証をサポートしません。
Windows 認証だけがサポートされます。

http://msdn.microsoft.com/ja-jp/library/ms143684(SQL.90).aspx

2009年3月8日日曜日

MS Office2K クリップボード

HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\General
[DWORD 値] AcbControl
1:表示しない
0:表示する

Keyword: kbinfo KB207438

2008年12月23日火曜日

TEXTBOX の表示を大文字のみにする

'
' Win32 API 定義等
'
Public Const GWL_STYLE = (-16)

Public Const ES_LOWERCASE = &H10&
Public Const ES_NUMBER = &H2000&
Public Const ES_UPPERCASE = &H8&

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long


'
' フォーム初期化
'
Private Sub Form_Load()
Dim iStyle As Long

' TextBox に ES_UPPERCASE の付与
iStyle = GetWindowLong(txtKey1.hWnd, GWL_STYLE)
iStyle = iStyle Or ES_UPPERCASE
SetWindowLong txtKey1.hWnd, GWL_STYLE, iStyle

End Sub

2008年9月7日日曜日

働くの反対語

「働く」の反対語
「休む」日本人
「遊ぶ」欧州人

2008年6月8日日曜日

TabCtrlにフィットさせる

 CTabCtrl* pTab = (CTabCtrl*)GetDlgItem(IDC_TAB);
i = 0;
pTab->InsertItem(i++, "Tab-01"); // No.0
pTab->InsertItem(i++, "Tab-02"); // No.1
pTab->InsertItem(i++, "Tab-03"); // No.2
pTab->InsertItem(i++, "Tab-04"); // No.3

pTab->GetWindowRect(&rtTab);
ScreenToClient(&rtTab);
pTab->AdjustRect(FALSE, rtTab);

m_wndChild.SetWindowPos(NULL, rtTab.left, rtTab.top, rtTab.Width(), rtTab.Height(), SWP_NOZORDER);
m_wndChild.ShowWindow(SW_SHOW);

2008年6月2日月曜日

タブを含む検索

タブ(水平タブ)はASCIIコードの9番なので

SELECT *

FROM テーブル名

WHERE フィールド名 LIKE "%" + CHAR(9) + "%"