THEMA:

bool bFirst = true;

public object DoWork()
{
 if (bFirst)
 {
  // nur vor 1. Datensatz aufrufen
  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 Datentyp für strings
     sql += "varchar(" + len.ToString() + ")";
     break;


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

     //SQL Datentyp für datetime
     sql += "datetime";
     break;

    case DataType.Bool:
     //SQL Datentyp für Bool: bei MSSQL bit verwenden!
     sql += "boolean";
     break;


    case DataType.Int:
     //SQL Datentyp für Int (Ganzzahl)
     sql += "Integer";
     break;


    case DataType.Double:
    case DataType.Currency:

     //SQL Datentyp für Double und Currency, evtl. auch numeric(18,2) ...
     sql += "Float";
     break;
   }
   
   if (primary) {
      primary = false;
      sql += "not null ";
   }
   
   count++;
  }

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

  // Tabelle anlegen
  adapter.Execute(sql);
 }

 // Eingangsparameter einfach wieder zurückliefern!
 return InValues[0].GetValue();
}

Dim bFirst as Boolean = true

Public Function DoWork() As Object

	' Nur beim 1. Aufruf sowie nicht im TestModus!
	If bFirst = True And AdapterWrite.OnlyTest = False then		
		' nur vor 1. Datensatz aufrufen
		bFirst = false
		
		Dim primary as boolean
		primary = true

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

		Dim adapter as BaseDBAdapter
		adapter = AdapterWrite

		adapter.SQL = "select * from " + tabelle

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


		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 Datentyp für strings
				     sql = sql + "varchar(" + len.ToString() + ")"

				Case DataType.Date, DataType.Time, DataType.DateTime
					'SQL Datentyp für datetime
					 sql = sql + "datetime"


				Case DataType.Bool
					'SQL Datentyp für Bool: bei MSSQL bit verwenden
					sql = sql + "boolean"

				Case DataType.Int
				     'SQL Datentyp für Int (Ganzzahl)
				     sql = sql + "integer"

				
				Case  DataType.Double, DataType.Currency
					'SQL Datentyp für Double und Currency, evtl. auch numeric(18,2) ...
				     	sql = sql + "float"

			End Select

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

			count = count + 1			
		Next f

		sql = sql + " );"

		'Tabelle anlegen
		adapter.Execute(sql)
	End If        

	DoWork = InValues(0).GetValue()

End Function