EsbGetDefaultCalc

アクティブ・データベースのデフォルト計算スクリプトを取得します。

構文

            EsbGetDefaultCalc
             (
            hCtx, cscString, szString
            )
ByVal 
            hCtx
                  As Long
ByVal 
            cscString
             As String
ByVal 
            szString
              As Integer

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。
cscString	計算スクリプト文字列を受け取るバッファ。
szString	計算スクリプト文字列を受け取るバッファのサイズ。

備考

戻される計算スクリプト文字列の長さは、64KB未満である必要があります。
計算スクリプトの長さがバッファのサイズより大きい場合、スクリプトは切り捨てられます。

戻り値

正常終了の場合、データベースのデフォルト計算スクリプトがCalcScriptに戻されます。

アクセス

この関数を使用するには、呼出し元がデータベースに対して少なくとも読取りアクセス権(ESB_PRIV_READ)を持っていて、EsbSetActive()を使用してこれをアクティブなデータベースとして選択している必要があります。

例

         Declare Function EsbGetDefaultCalc Lib "ESBAPIN" (ByVal hCtx As Long, ByVal Script As String, ByVal szScript As Integer) As Long

Sub ESB_GetDefaultCalc ()
   Dim sts As Long
   Const szScript = 1024
   Dim Script As String * szScript   '*****************
   ' Get default calc
   '*****************
   sts = EsbGetDefaultCalc (hCtx, Script, szScript) 
End Sub