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 が使えるのはありがたく、結構お勧めだと思います。

...続きを読む

忘れがちなのでメモ

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

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

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

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

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

if Edit1.Text.Length = 0 then

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

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

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

残念...

その日は、なんだか変な感じだったのです。
ノートンでファイルをスキャンしようとしても、うんともすんとも言わなかったので...
でもまぁいいか、と作業を続けていました。
帰りにゲストをサスペンドしてVMWareワークステーションを終了しようとすると、なんだかエラーが表示されました。

でもそのままVMWare が終了したし、疲れていたので気にせずに帰りました。

翌日VMWareを起動してみると、エラーが...
ロックフォルダを削除したり、サスペンドファイルも削除してみましたが、「内部エラー」になってしまいました。

いやぁ、焦りましたね。
その後 Windows を再起動するも、状況は変わらず。

ノートンでクイックスキャンをしようとしますが、やはり動きません。
なんだかデスクトップのアイコンが黒くなっています。

コマンドラインからクイックスキャンを起動したら動きました。
ついでにやけになって、適用せずに残っていた2個の Windows Update をして再起動
アイコンが戻っている。
VMWare を起動してみると...
わーーーー治ったぁ

原因はなんだったんだろう？

良くありますよね、%表示したい時って。
だから LiveBindings の CustomFormat に

Format('%.0f', Self.Value*100) + "%"

って書いたのですが、「書式文字列 'Format(... は正しくないか引数の型と一致しません.」というエラーが出てしまいます。

...続きを読む