PublicSub GetDataColumns(ByVal myConnection As MySqlConnection)
myConnection.Database = "Test"
myConnection.Open()
Dim loader As MySqlLoader
loader = New MySqlLoader
loader.Connection = myConnection
loader.TableName = "load_table"Dim myColumn As MySqlLoaderColumn
Try
loader.CreateColumns()
Dim i AsIntegerFor i = 0 To loader.Columns.Count - 1
myColumn = loader.Columns(i)
Console.WriteLine(myColumn.Name)
Console.WriteLine(myColumn.MySqlType.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