TOPIC:

bool bFirst = true;

public object DoWork()
{
 if (bFirst)
 {
  // only for the first row
  bFirst = false;
  bool primary = true;

  string tabelle = "t_DynImport_" + DateTime.Now.ToString("yyyyMMdd_hhmmss");

  BaseDBAdapter adapter = (BaseDBAdapter)AdapterWrite;
  adapter.SQL = "select * from " + tabelle;

  string sql = "create table " + tabelle + " (";

  int len = 0;
  int count = 0; 
  foreach(Field f in adapter.Fields)
  {
   BaseDBAdapterField field = (BaseDBAdapterField)f;

   if (count > 0)
    sql += ", ";

   sql += "[" + field.Name + "] ";
   switch(field.DataType)
   {
    case DataType.String:
     len = field.Length;
     if (len == 0)
      len = 100;

     //SQL data type for strings
     sql += "varchar(" + len.ToString() + ")";
     break;


    case DataType.Date:
    case DataType.Time:
    case DataType.DateTime:

     //SQL data type for datetime
     sql += "datetime";
     break;

    case DataType.Bool:
     //SQL data type for Bool: for MSSQL using bit!
     sql += "boolean";
     break;


    case DataType.Int:
     //SQL data type for Int
     sql += "Integer";
     break;


    case DataType.Double:
    case DataType.Currency:

     //SQL data type for Double and Currency, also posible numeric(18,2) ...
     sql += "Float";
     break;
   }
   
   if (primary) {
      primary = false;
      sql += "not null ";
   }
   
   count++;
  }

  sql += " );";
    
  //File.WriteAllText("C:\\Temp\\sql.txt", sql);

  // create table
  adapter.Execute(sql);
 }

 return InValues[0].GetValue();
}

Dim bFirst as Boolean = true

Public Function DoWork() As Object

	' only for the first call and call not if testmode
	If bFirst = True And AdapterWrite.OnlyTest = False then
		bFirst = false

		Dim primary as boolean
		primary = true

		Dim table as String
		table = "t_DynImport_" + DateTime.Now.ToString("yyyyMMdd_hhmmss")

		Dim adapter as BaseDBAdapter
		adapter = AdapterWrite

		adapter.SQL = "select * from " + table

		Dim sql as String
		sql = "create table " + table + " ("


		Dim len as Integer
		Dim count as Integer

		len = 0
		count = 0

		For Each f as Field in adapter.Fields
			Dim field as BaseDBAdapterField
			field = f

			If count > 0 Then 
				sql = sql + ", "
			End If

			sql = sql + "[" + field.Name + "] "

			Select Case field.DataType

				Case DataType.String
					len = field.Length
      					If len = 0 Then
      						len = 100
					End If

     					'SQL data type for strings
     					sql = sql + "varchar(" + len.ToString() + ")"

				Case DataType.Date, DataType.Time, DataType.DateTime
					'SQL data type for datetime
 					sql = sql + "datetime"


				Case DataType.Bool
					'SQL data type for Bool: use bit for MS SQL Server
					sql = sql + "boolean"

				Case DataType.Int
					'SQL data type for Int(eger)
     					sql = sql + "integer"


				Case  DataType.Double, DataType.Currency
					'SQL data type for Double and Currency
      					sql = sql + "float"

			End Select

			If primary = True Then
      				primary = False
      				sql = sql + " not null "
			End If

			count = count + 1
		Next f

		sql = sql + " );"

		'create new SQL Table
		adapter.Execute(sql)
	End If        

	DoWork = InValues(0).GetValue()

End Function