CopyToClipboardメソッド

適用対象

説明

ダイナセットの行をクリップボードにテキスト形式でコピーします。

使用方法

OraDynaset.CopyToClipboard(NumOfRows, colsep, rowsep)

引数

このメソッドの引数は、次のとおりです。

引数	説明
`NumOfRows`	ダイナセットからコピーする行数。
`colsep` [オプション]	列と列の間に挿入する列セパレータ(`CHAR`データ型)。
`rowsep` [オプション]	行と行の間に挿入する行セパレータ(`CHAR`データ型)。

備考

このメソッドを使用すると、Oracle Objects for OLEのキャッシュ(ダイナセット)とWindowsアプリケーション(ExcelやWordなど)間のデータ転送を簡単に実行できます。CopyToClipboardメソッドは、ダイナセットの現在位置から最終行までのデータをコピーします。

デフォルトの列セパレータは、タブ(ASCII 9)です。

デフォルトの行セパレータは、キャリッジ・リターン(ASCII 13)です。

例

次の例では、ダイナセットからクリップボードへデータをコピーします。このコードをフォームの定義セクションに貼り付けてから、[F5]を押してください。

Sub Form_Load ()
 'Declare variables
 Dim OraSession As OraSession 
 Dim OraDatabase As OraDatabase 
 Dim OraDynaset As OraDynaset 
 
 'Create the OraSession Object.
 Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 'Create the OraDatabase Object by opening a connection to Oracle.
 Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/tiger", 0&)
 Set OraDynaset = OraDatabase.CreateDynaset("select * from emp", 0&) 
 
'Now call CopyToClipboard to copy the entire dynaset
 OraDynaset.CopyToClipboard -1, chr(9), chr(13)
End Sub