Ответ

Никита Козин 13.11.2006 14:38

$oSQLLocal[^mysql::init[...]]
$oSQLServer[^mysql::init[...]]

$tTables[^table::create{table_name
first_table
second_table
...}]

$hData[^hash::create[]]

^tTables.menu{
	$hData.[$tTables.table_name][^oSQLLocal.table{SELECT * FROM $tTables.table_name}]
}

^hData.foreach[sTableName;tData]{
	$tColumns[^tData.columns]
	^oSQLServer.void{TRUNCATE TABLE $sTableName}
	^oSQLServer.void{
		INSERT INTO
			$sTableName (
				^tColumns.menu{$tColumns.column}[,]
			) VALUES (
				^tData.menu{
					(
						^tColumns.menu{"$tData.[$tColumns.column]"}[,]
					)
				}[,]
			)
	}
}

P.S. Не проверял. На большой базе вероятнее всего будет умирать.
Сейчас пороюсь, может быть найду решение, которое я использовал.

---