PublicSub GetDataColumns(ByVal myConnection As OracleConnection)
myConnection.Open()
Dim loader As OracleLoader
loader = New OracleLoader
loader.Connection = myConnection
loader.TableName = "load_table"Dim myColumn As OracleLoaderColumn
Try
loader.CreateColumns()
Dim i AsIntegerFor i = 0 To loader.Columns.Count - 1
myColumn = loader.Columns(i)
Console.WriteLine(myColumn.Name)
Console.WriteLine(myColumn.OracleDbType.ToString())
Console.WriteLine(myColumn.Size)
Console.WriteLine(myColumn.Scale)
Console.WriteLine(myColumn.Precision)
Console.WriteLine()
Next i
Finally
myConnection.Close()
EndTryEnd Sub
Requirements
Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2