Caché ActiveX API リファレンス

Set factory = CreateObject("CacheActiveX.Factory")

' set a custom title for dialog and specify that the dialog
' will return the username and password in the connection string
Dim MyTitle As String
MyTitle = "Application Connection Dialog+%up"

' get the connection string from user input to the connection dialog
sdir = factory.ConnectDlg(MyTitle)

' check if it's not NULL; 
' if not NULL, use it to connect to the server
If sdir <> "" Then
    ok = factory.Connect(sdir)
    ' if the connection succeeds, put up a message box saying so
    MsgBox ok
Else
   ' if it's NULL, exit the program
   End
End If

' Given an open object Person and an open ResultSet object res,
' these must be closed before the connection is closed:
Person.SYS_Close
Set Person = Nothing


res.Close
Set res = Nothing

' Close the Factory object's connection:
factory.disconnect

' declare and create Factory object, declare the ResultSet object
Dim factory As CacheActiveX.factory
Set factory = CreateObject("CacheActiveX.Factory")

' Code here connects to the server; once the connection is
' established, work with the query can proceed.

Dim res As CacheActiveX.ResultSet

' declare variable to hold query string and put the query in it
Dim MyQuery As String
MyQuery = "SELECT %ID,Name,Colors,MyDate " _
        & "FROM Person " _ 
        & "WHERE (Name %STARTSWITH ?) " _ 
        & "ORDER BY Name"

' create the ResultSet using DynamicSQL()
Set res = factory.DynamicSQL(MyQuery)

' you can now set parameters, execute, and so on 
Call res.SetParam(1, "F")
res.Execute

Dim MyClassName As String
MyClassName = factory.GetClassName(OID)

ConnectionName1,Connection1;ConnectionName2,Connection2;...

cn_iptcp:ip_address[port]

Private m_factory As CacheActiveX.Factory

Set m_factory = CreateObject("CacheActiveX.Factory")
Debug.Print m_factory.GetConnectionList

LOCALTCP,cn_iptcp:127.0.0.1[1972]:;otherServer,cn_iptcp:123.123.123.123[1972]:

' Caché was unable to save the class.
' The returned error is encapsulated by the error object, 
'    #5659: "Property '%1' required"
msg = factory.GetErrorText(5659,"Name")
' msg now contains the string "Property 'Name' required"

Dim ID As String
ID = factory.GetId(OID)

Dim ErrCnt As Integer
ErrCnt = factory.GetLastErrorCount()

Dim ErrNum As Long
ErrNum = factory.GetLastErrorNumber()

Dim ErrParam As String
ErrParam = factory.GetLastErrorParam()

Dim ErrParam As String
ErrParam = factory.GetLastErrorParam(errno)

Dim ErrParam As String
ErrParam = factory.GetLastErrorParam(errno, paramno)

Dim ErrParam As String
ErrParam = factory.GetLastErrorParam()
ErrParam = factory.GetLastErrorParam(1)
ErrParam = factory.GetLastErrorParam(1,1)

Dim ParamCount As Integer
ParamCount = factory.GetLastErrorParamCount()

Dim ParamCount As Integer
ParamCount = factory.GetLastErrorParamCount(errno)

If Not factory.IsConnected()
' Establish connection
End If

Dim im as Boolean
im = factory.IsMultibyte()

Dim obj as Object
Set obj = factory.New(ClassName)

Dim obj as Object
Set obj = factory.Open(ClassName,oid)

Dim obj as Object
Set obj = factory.OpenId(ClassName,id)

Dim res As CacheActiveX.ResultSet
Set res = factory.ResultSet("Person","ByName")

Dim ok As Boolean
ok = res.Execute("L")  ' pass in any arguments expected by the query
while res.Next()
  Debug.Print res.Get("Name")
wend

Set factory = CreateObject("CacheActiveX.Factory")
factory.SetOutput Text1
' System output now goes to textbox Text1

factory.SetOutput ""

' invoke a class method;
' put the content in a textbox called txtInfoBox
Dim MyObj As Object
Set MyObj = factory.Static("Cinema.Utils")

' the Cinema.Utils.SendEmail ClassMethod returns a string, 
' which then appears in the textbox
txtInfoBox.Text = MyObj.SendEmail(Addr,Msg)

factory.TransactionCommit()

Dim lvl as Integer
set lvl=factory.TransactionLevel()

factory.TransactionRollBack()

factory.TransactionStart()

res.Close
' res no longer contains the data returned by the query.
' If the ResultSet object is no longer to be used, 
' its memory can be freed with:
Set res = Nothing

' This puts a message up saying whether or not
' the query contains an ID field.
MsgBox "ContainsID = " & res.ContainsID

' First, declare and prepare the query.
Dim res As CacheActiveX.ResultSet
Set res = factory.ResultSet("Person","ByName")

' Now run the ByName query. This query returns all 
' people whose names begin with the letter specified.
res.Execute("A")

' Declare, prepare, and run the query.
Dim res As CacheActiveX.ResultSet
Set res = factory.ResultSet("Person","ByName")
res.Execute("A")

While res.Next()
  ' places all the matching names in a listbox
  lstMyList.AddItem res.Get("Name")
Wend

' Declare, prepare, and run the query.
Dim res As CacheActiveX.ResultSet
Set res = factory.ResultSet("Person","ByName")
res.Execute("A")

' Get the number of columns in the result set.
For i = 1 To res.GetColumnCount
    ' For each column, display its name in a listbox.
    lstColumns.AddItem res.GetColumnName(i)
Next

' Declare, prepare, and run the query.
Dim res As CacheObject.ResultSet
Set res = factory.ResultSet("Person","ByName")
res.Execute("A")

' Get the number of columns in the result set.
For i = 1 To res.GetColumnCount
    ' For each column, display its name and header
    ' in a listbox as "Name - Header".
    lstColumns.AddItem res.GetColumnName(i) & " - " & res.GetColumnHeader(i)
Next

' Declare, prepare, and run the query.
Dim res As CacheActiveX.ResultSet
Set res = factory.ResultSet("Person","ByName")
res.Execute("A")

' Get the number of columns in the result set.
For i = 1 To res.GetColumnCount
    ' For each column, display its name in a listbox.
    lstColumns.AddItem res.GetColumnName(i)
Next

' Declare, prepare, and run the query.
Dim res As CacheActiveX.ResultSet
Set res = factory.ResultSet("Person","ByName")
res.Execute("A")

' Retrieve the data from the specified column
While res.Next
    lstMyList.AddItem res.GetData(4)
Wend

' Declare, prepare, and run the query.
Dim res As CacheActiveX.ResultSet
Set res = factory.ResultSet("Person","ByName")
res.Execute("A")

' Retrieve the data from the specified column
While res.Next
    lstMyList.AddItem res.GetDataAsString(4)
Wend

' Declare, prepare, and run the query.
Dim res As CacheActiveX.ResultSet
Set res = factory.ResultSet("Person","ByName")
res.Execute("A")

' Retrieve the data from the specified column
While res.Next
    lstMyList.AddItem res.GetDataByName("Name")
Wend

' Declare and prepare the query.
Dim res As CacheActiveX.ResultSet
Set res = factory.ResultSet("Person","ByName")

' Find out how many parameters the query uses and display it in a textbox.
txtParamCount.Text = res.GetParamCount

' Declare and prepare the query.
Dim res As CacheActiveX.ResultSet
Set res = factory.ResultSet("Person","ByName")

' Display each query parameter in a listbox.
For i = 1 To res.GetParamCount
    lstParams.AddItem res.GetParamName(i)
Next

' Declare, prepare, and run the query.
Dim res As CacheActiveX.ResultSet
Set res = factory.ResultSet("Person","ByName")
res.Execute("A")

' Check if each row of the ResultSet has NULL value in column 4.
While res.Next
    lstMyList.AddItem res.IsDataNull(4)
Wend

' Declare, prepare, and run the query.
Dim res As CacheActiveX.ResultSet
Set res = factory.ResultSet("Person","ByName")
res.Execute("A")

' Iterate through the ResultSet.
While res.Next
    ' All data processing occurs here; 
    ' see Get, all GetData..., and IsDataNull methods for examples.
Wend

' Declare and prepare the query.
Dim res As CacheActiveX.ResultSet
Set res = factory.ResultSet("Person","ByName")

Call res.SetParam(1, "F")

' Run the query, since it already has the necessary parameter(s).
res.Execute

' Declare, prepare, and run the query.
Dim res As CacheActiveX.ResultSet
Set res = factory.ResultSet("Person","ByName")
res.Execute("A")

' Iterate through the ResultSet.
While res.Next
    res.SetRunTimeMode 0
    
    ' processing based on having data in logical mode
Wend

Dim Cars as CacheActiveX.SysList
Set Cars = salesman.CarsInLot()

Dim count as Integer
count = Cars.Count
' count contains the number of cars in Cars.

myList.IsMultibyte = factory.IsMultibyte()

Dim MyObj as CacheActiveX.SysList
Set MyObj = Obj.A

Dim MyObj as CacheActiveX.SysList
Set MyObj = Create obj("CacheActiveX.SysList")

' Create a new list, Books, containing the
' SysList objects Book1 and Book2
Dim Books as CacheActiveX.SysList

Set Books = CreateObject("CacheActiveX.SysList")
Set Books.ItemList(1)=Book1
Set Books.ItemList(2)=Book2

'Using the Cars example above, the list contains 3 cars 
Dim Car1 as CacheActiveX.SysList
Dim Car2 as CacheActiveX.SysList
Dim Car3 as CacheActiveX.SysList

Car1 = Cars.ItemList(1)
Car2 = Cars.ItemList(2)
Car3 = Cars.ItemList(3)
' Car1, Car2, and Car3 are all SysList objects which can
' themselves be unpacked using Item and ItemList.

' Using the list Colors
Colors.Add("Yellow")

' Add Yellow to the end of the list Colors, making it the
' fourth element in the list.
Dim Color4 as String
Color4 = Colors.Item(4)
' Color4 is Yellow

Syslist.Add(ChrW(9824))

Set Factory = CreateObject(CacheActiveX.Factory)
Set List = CreateObject(CacheActiveX.Syslist)
Factory.Connect(my_connection)
List.IsMultibyte = Factory.IsMultibyte

' The data in the Cars SysList object is no longer useful

Cars.Clear()
' Cars is now an empty SysList object.

' Using the list Colors
Dim MyColors as String

MyColors = Colors.Get()

' Using the list Colors with Red, Blue, Green, and Yellow

Colors.Remove(2)
' This call removes Blue from the list, makes Green the
' second item in the list and makes Yellow the third item
' in the list.

Dim Color1 as String
Dim Color2 as String
Dim Color3 as String

Color1 = Colors.Item(1)
Color2 = Colors.Item(2)
Color3 = Colors.Item(3)
' Color1 is Red, Color2 is Green, Color3 is Yellow

Dim NewList as CacheActiveX.SysList

Set NewList = CreateObject("CacheActiveX.SysList")
NewList.Set(x)

' Person has a binary stream attribute, Image. 
string = Person.Image.Data
' string contains the binary data of the picture

' The Person class has a binary stream attribute Image 
Person.Image.Clear()

Person.Image.DeleteAttribute("MyAttrib")

' The Person class has a binary stream attribute Image 
Person.Image.FileRead("c:\MyPicture.jpg")

' The Person class has a binary stream attribute Image 
Person.Image.FileWrite("c:\MyPicture.jpg")

' The Person class has a binary stream attribute Image 
Attr1Value=Person.Image.GetAttribute("Attr1")

' The Person class has a binary stream attribute Image 
Attr1Value=Person.Image.GetAttribute("Attr1",1)

'The Person class has a binary stream attribute Image 
Dim exists as Boolean
exists=Person.Image.IsDefinedAttribute("MyAttrib")

'The Person class has a binary stream attribute Image 
Person.Image.NextAttribute("")

'The Person class has a binary stream attribute Image 
Person.Image.NextAttribute("MyAttrib")

'The Person class has a binary stream attribute image
'Grab the first 100 bytes 
Image1.Picture=Person.Image.Read(100)

' The Person class has a binary stream attribute Image
' Rewind it before using it 
Person.Image.Rewind

'The Person class has a binary stream attribute Image 
Person.Image.SetAttribute("ShoeSize",10)

' The Person class has a binary stream attribute Image 
Set pic = photo.Image
Person.Image.SetPicture pic

' The Person class has a binary stream attribute Image 
Person.Image.Write(data)

' Person has a character stream Memo
Text1.Text = Person.Memo.Data
' The textbox now displays the data in Memo

' The Person class has a character stream Diary
Person.Diary.Clear()

Person.Image.DeleteAttribute("MyAttrib")

' The Person class has a character stream Memo
Person.Memo.FileRead("c:\Memo.txt")

' The Person class has a character stream Memo
Person.Memo.FileWrite("c:\Memo.txt")

' The Person class has a character stream Image
Attr1Value=Person.Image.GetAttribute("Attr1")

' The Person class has a character stream Image
Attr1Value=Person.Image.GetAttribute("Attr1",1)

'The Person class has a character stream Image

Dim exists as Boolean
exists=Person.Image.IsDefinedAttribute("MyAttrib")

'The Person class has a character stream Image
Person.Image.NextAttribute("")

'The Person class has a character stream Image
Person.Image.NextAttribute("MyAttrib")

' The Person class has a character stream Memo
' Grab the first 10 characters
Text1.text=Person.Memo.Read(10)

' The Person class has a character stream Memo
' Rewind it before using it
Person.Memo.Rewind

'The Person class has a character stream Diary

Person.Image.SetAttribute("BGColor","ffffff")

' The Person class has a character stream Memo
Person.Memo.Write(data)