Private Function GenGuid() As String
    Dim Guid As String
    Dim l As Integer
    
    Guid = CreateObject("Scriptlet.TypeLib").Guid
    l = InStr(Guid, "}")
    GenGuid = Mid(Guid, 1, l)
End Function

Public Sub SetGuid()
    Dim r As Integer
    
    For r = 1 To Selection.Count
        Selection(r).Value = GenGuid()
    Next
End Sub

SQL Server の Management Studio で見ると GUID は {} なしだが
SSIS で変換するときは {} 付でないとエラーになる

Delphi VCL
メインフォームの TActionList にキーボードショートカットを設定しているときにダイアログを表示すると、 ダイアログ処理中でもメインフォームのショートカットキーが有効になっています。
これを回避するためには、ダイアログ表示前にメインフォームの Enabled を False にすればOKです。

...続きを読む

Windows Server 2008 の仮想マシンを新しい仮想サーバに移行しようとしていました。
この仮想マシンには古いスナップショットが一つだけあったので、移行前にきれいにしようと思ってスナップショットを削除しました。
他の作業をやりながらだったので途中の処理は忘れてしまいましたが、とりあえずスナップショットの削除はできたみたいでした。
ところが、vSphere で

仮想マシンのディスク統合が必要です。

と表示されています。 そこで統合を実行したのですが、途中でエラーが発生してしまいました。

一般的なシステムエラーが発生しました

...続きを読む

ここ数日、google chrome が起動しないことが何度かありました。(windows 8.1)

さっきまで使っていて、また使おうとしてタスクバーにある chrome アイコンをクリックするのですが、アイコンが一瞬フラッシュするだけで起動しません。

？？？
原因がよくわかりません。
最初の時は windows を再起動したら治りました。

次の時はちょっと気になったので、ウィルス対策ソフトを一時的に切ったり、シークレットウィンドウで開こうとしてみましたがダメ

やけになってアイコンを連続クリックしまくったら、なぜか起動できるようになりました。？？？
あーでも、すでに何をしようとしていたのか忘れちゃいましたよ... orz

なんだろ、これ

開発中に複数のDBを使ってテストをしているときに、一部のデータだけ他のDBから持ってきたいことがあります。

こんな時にはマルチパート識別子を使って Update を組み立てます。

UPDATE TableDst
SET Column1=TableSrc.Column1
FROM [Database2].dbo.Table TableDst INNER JOIN
[Database1].dbo.Table TableSrc ON TableDst.Id1=TableSrc.Id1

全件をコピーするとか...

INSERT INTO [Database2].dbo.Table
(Column1)
SELECT Column1 FROM [Database1].dbo.Table 

INSERT で identity を含めてコピーしたい場合は
SET IDENTITY_INSERT [Database2].dbo.Table TO ON
が必要

最近 VMWareサーバに iSCSI ディスクを付けました。

安価な iSCSI ディスクということで Buffalo の TeraStation TS5400D を選定。
ネットの情報ではいまいち信頼できないという声もあり、ちゃんと動くか若干心配でしたがとりあえず問題なく使えています。
この値段で RAID6 で iSCSI が使えるのはありがたく、結構お勧めだと思います。

...続きを読む

miix 2 8 の起動関係のボタン操作についてのメモ

...続きを読む

忘れがちなのでメモ

■サーバ側のSSHの設定
コンソール または vShpere Client から設定

・コンソールから
Troubleshooting Options
Enable SSH

・vSphere Client から
構成タブ － ソフトウェア セキュリティプロファイル を選び
サービス － プロパティ... をクリック
リモートアクセスダイアログで SSH を開始する(適宜自動開始に設定)

■TeraTerm での接続
チャレンジレスポンス認証を使う
(通常認証ではログインできない)

最近 Lenovo Miix 2 8 を手に入れてさわっています。

Windows タブレットって、Windows RT でしょ？
みたいな古い知識しかなかったので、こんなに小ちゃくて薄いのに、普通にWindows のプログラムが動くのに感動してしまいました。

これなら普段から持ち歩けますね...
でも Windowsストアアプリって意外に少ない感じがします

まぁ普通のデスクトップアプリが動くから、「わざわざWindows8スタイルアプリを作らなくってもいいか」ということなのかもしれませんが
やっぱりタブレットを指で操作するのに、デスクトップアプリはちょっときついですよね...

という訳で、そのうち Windows8スタイルアプリの開発にチャレンジしようと思っています。
もうちょっと暇になったら...

最近すっかり TStringHelper による処理に慣れてきていました。
そんなわけで、TEdit などから文字列を取得して処理するときにも

if Edit1.Text.Length = 0 then

なんていうコードを書いてしまったりするようになってしまって..
でも動かないんです。

[dcc32 エラー] : E2018 レコード，オブジェクトまたはクラスのいずれかが必要です

Edit.Text などは TCaption として定義されていて
TCaption = type string なんですが、シグネチャが違うから使えないんですね？

残念...