VB.NET에서 InterSystems ObjectScript를 클래스로 원활하게 처리하는 방법

이 방법을 사용하면 ObjectScript에서 만든 함수를 포함하여 VB.NET 설명으로 완성할 수 있습니다. SQL의 기재가 필요없는 데이터베이스 운용이 가능합니다.

ObjectScript(Cache’, Studio) 측 준비
→ 이전 (ActiveX 기사)를 참고하여 클래스를 생성하십시오.

VB.NET 측 준비
1: 참조 추가
프로젝트 → 참조 추가에서 DotNetgatawayss64 및 InterSystems.Data.CacheClient.dll 두 가지를 참조하십시오. (파일의 위치는 이미지의 경로를 참조하여 참고하십시오)


2:Object Binding 추가
C:\InterSystems\TryCache\dev\dotnet\bin\v2.0.50727\CacheNetWizard.exe
도구 → 참조에 추가합니다.


3:Binding 코드 출력
Cache '에 접속하고, 여기에서는 USER 영역을 열고 있다. 출력 언어를 VB로 하고, 파일의 출력처를 지정(여기에서는, ObjectBinding.vb로 한), 임포트 하는 클래스(=테이블)를 >로 오른쪽의 열에 보내고, Generate를 누르면, 파일이 생성된다.

생성 된 파일을 프로젝트 탐색기 오른쪽 클릭 → 추가 → 기존 항목에서 읽습니다.


4 : VB.NET에서 프로젝트를 만들고 (여기서는 양식 응용 프로그램) Button1을 만들고 다음과 같이 작성하면 OK. (처음에 Imports InterSystems.Data.CacheClient 호출) Log File은 아래의 예에 관계없이 원하는 위치를 지정합니다. User, Password는 Cache'에서 사용하고 있는 것을 각자 입력해 주세요. 프로그램을 움직이면 폼의 버튼을 누르면 DB에 쓸 수 있습니다.

Form1

Imports InterSystems.Data.CacheClient

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        '接続の確立
        Dim cacheConnectStr As String = "Server = localhost; Port=1972;" +
               "Log File = C:\VSProject\NewCarte\NewCarte\NewCarte\bin\NewCarte.log; Namespace = USER;" +
               "Password = password; USER ID = userid"
        Dim cnCache As CacheConnection = New CacheConnection(cacheConnectStr)
        cnCache.Open()

        'インスタンスの生成（レコードを作る）
        Dim d As User.Main.NewClass2
        d = New User.Main.NewClass2(cnCache)'ObjectScriptの表現と同じ記法で表現できます

        d.a = "20180704" 'ここでNewClass2は、a,b,c(いずれも%String)のProperty
        d.b = "ODB Lecture"
        d.c = "Additional"
        d.Save() 'データをCache'DBに書き込み
        d.Close()
        d.Dispose()

        cnCache.Close()

    End Sub
End Class