LOTUS CONNECTOR

例:ListProcedures メソッド
次のエージェントは、ADTB データソースのすべてのプロシージャーの名前を表示します。

Uselsx "*LSXODBC"

Sub Initialize
Dim con As New ODBCConnection
Dim msg As String
tables = con.ListProcedures("ATDB")
msg = "ATDB contains the following procedures:"& Chr(10)
If Ubound(tables) = 0 Then
Messagebox "No procedures for ATDB",, _
"Procedures for ATDB"
Exit Sub
End If
For n% = Lbound(tables) To Ubound(tables)
msg = msg & Chr(10) & tables(n%)
Next
Messagebox msg,, "Procedures for ATDB"
con.Disconnect
End Sub

関連項目