Rem oConnection was obtained by the Logon control.
Dim oTableFactoryCtrl as Object
Dim oTable as Object
Rem Create an instance of the Table Factory.
Set oTableFactoryCtrl = CreateObject (
" SAP.TableFactory.1 " )Rem Get a new Table object.
Set oTable = oTableFactoryCtrl.NewTable ()
if oConnection.IsConnected () = tloConnected then
oTable.CreateFromR3Repository (oConnection, "RYPBMHI39, "NODETAB")
else
Set oTable = Nothing
end if
Rem Now you have a fully initialized Table object.
Rem To display the column structure:
Dim oColumn as Object
For each oColumn in oTable.Columns
msgbox oColumn.Name
msgbox oColumn.TypeName
next oColumn