Replies by Mihoko Iijima for Japanese InterSystems Developer Community

USER>:py Python 3.9.5 (default, Jan 13 2023, 15:20:22) [MSC v.1927 64 bit (AMD64)] on win32 Type quit() or Ctrl-D to exit this shell. >>> import datetime >>> datetime.datetime.now() datetime.datetime(2023, 4, 13, 11, 16, 43, 487481) >>>

記事へ

Mihoko Iijima · 2023年3月24日

@Ohata.Yujiさん、こんにちは

単独で作成されているグローバル変数に対してSQLを発行するためには、クラス定義のストレージの定義を「デフォルトストレージ」から「SQLストレージ」に変更する必要があります。

丁度、似たグローバル構造に対してSQLストレージを作成する例がFAQトピックにありました。

既存のグローバルデータをオブジェクトやSQLインタフェースから利用する方法はありますか？

（添付の参考資料にあるPDFのP2～9までの ^KIONデータに対する定義が対象です。SQLストレージを作成する場合、スタジオのインスペクタを使っていただくと作りやすいかと思います。）

こんな感じで試してみました。

（^Testの右辺のデータを Data1プロパティで操作できるように定義してみました）

Class Gbl.Test Extends %Persistent [ StorageStrategy = MyGlobalStorage ]
{

Property Key1 As %Integer [ Required, SqlColumnNumber = 2 ];

Property Key2 As %String [ Required, SqlColumnNumber = 3 ];

Property Data1 As %String;

Index KeyIndex On (Key1, Key2) [ IdKey, Unique ];

ClassMethod createdata()
{
	set ^Test(1,2)="A"
	set ^Test(1,3)="B"
	set ^Test(2,1)="C"
	set ^Test(2,2)="D"
}

Storage MyGlobalStorage
{
<SQLMap name="GblMap">
<Data name="Data1">
<Delimiter>"^"</Delimiter>
<Piece>1</Piece>
</Data>
<Global>^Test</Global>
<RowIdSpec name="1">
<Expression>{L1}</Expression>
<Field>Key1</Field>
</RowIdSpec>
<RowIdSpec name="2">
<Expression>{L2}</Expression>
<Field>Key2</Field>
</RowIdSpec>
<Subscript name="1">
<Expression>{Key1}</Expression>
</Subscript>
<Subscript name="2">
<Expression>{Key2}</Expression>
</Subscript>
<Type>data</Type>
</SQLMap>
<StreamLocation>^Gbl.TestS</StreamLocation>
<Type>%Storage.SQL</Type>
}

}

DBeaverからの参照はこんな感じです。

このようなイメージであっていますでしょうか。

記事へ

Mihoko Iijima · 2022年10月26日

Ohataさん、もしかして、shaCdカラムのタイプですが、埋め込みクラス（%SerialObject）で作成したクラスをタイプとして定義されていたりしますか？

テーブル定義ではなく、クラス定義として以下作成してテストしてみたら、カラム名=Null でヒットしました。

参照元クラス：Test.Person

Class Test.Person Extends %Persistent
{

Property Name As %String;
Property Address As Address;
}

埋め込みクラス：Test.Address

Class Test.Address Extends %SerialObject
{

Property Zip As %String;
Property Pref As %String;
}

（Test.PersonのAddressプロパティがTest.Addressを参照する定義）

以下のテストをしたところ、Ohataさんと同じ状況になりました（SELECTの実行ですが、管理ポータルのODBCモードとODBCクライアントで試しています）

insert into Test.Person (Name) values('テスト太郎')

select * from Test.Person where Address=NULL　この結果👉　

select * from Test.Person where Address is NULL　この結果👉 0件

違う状況でしたらすみません・・。

Dim obj As IRISObject = native.ClassMethodObject("User.Sample", "%New") Dim prop As IRISObject = obj.GetObject("binaryData") Dim filename As String = "C:\kit\test.png" Dim inputFile = IO.File.Open(filename, IO.FileMode.Open) Dim bytes = New Byte(5000) {} While inputFile.Read(bytes, 0, bytes.Length) > 0 prop.InvokeStatusCode("Write", bytes) End While obj.InvokeStatusCode("%Save")