Tablodaki Kolonları Okuma

include "mapbasic.def"

dim columnCount, i as integer
dim columnNames() as string

open table "C:\World.Tab"
columnCount = NumCols(World)
redim columnNames(columnCount)
for i = 1 to columnCount
  columnNames(i) = ColumnInfo("World" ,"Col" + i, COL_INFO_NAME)
next
print chr$(12) 'print penceresini temizle
for i = 1 to columnCount
  print columnNames(i)
next

Advertisements