|
<lang Mathematica>Needs["DatabaseLink`"];conn = OpenSQLConnection[JDBC["mysql",
"databases:1234/conn_test"], "Username" -> "test"]
SQLCreateTable[conn, SQLTable["TEST"],If[Length[#] == 0,SQLColumn[StringJoin[#,"COL"],"DataTypeName" -> #],SQLColumn[StringJoin[#[[1]], "COL"], "DataTypeName" -> #[[1]],"DataLength" -> #[[2]]]] & /@ {"TINYINT", "SMALLINT", "INTEGER","BIGINT", "NUMERIC", "DECIMAL", "FLOAT", "REAL", "DOUBLE", "BIT","LONGVARBINARY", "VARBINARY", "BINARY","LONGVARCHAR",{"VARCHAR", 5},{"CHAR", 3},"DATE","TIME","TIMESTAMP","OBJECT"}]</lang>
SQLCreateTable[conn, SQLTable["TEST"],
{
SQLColumn["TINYINTCOL", "DataTypeName" -> "TINYINT"],
SQLColumn["SMALLINTCOL", "DataTypeName" -> "SMALLINT"],
SQLColumn["INTEGERCOL", "DataTypeName" -> "INTEGER"],
SQLColumn["BIGINTCOL", "DataTypeName" -> "BIGINT"],
SQLColumn["NUMERICCOL", "DataTypeName" -> "NUMERIC"],
SQLColumn["DECIMALCOL", "DataTypeName" -> "DECIMAL"],
SQLColumn["FLOATCOL", "DataTypeName" -> "FLOAT"],
SQLColumn["REALCOL", "DataTypeName" -> "REAL"],
SQLColumn["DOUBLECOL", "DataTypeName" -> "DOUBLE"],
SQLColumn["BITCOL", "DataTypeName" -> "BIT"],
SQLColumn["LONGVARBINARYCOL", "DataTypeName" -> "LONGVARBINARY"],
SQLColumn["VARBINARYCOL", "DataTypeName" -> "VARBINARY"],
SQLColumn["BINARYCOL", "DataTypeName" -> "BINARY"],
SQLColumn["LONGVARCHARCOL", "DataTypeName" -> "LONGVARCHAR"],
SQLColumn["VARCHARCOL", "DataTypeName" -> "VARCHAR",
"DataLength" -> 5],
SQLColumn["CHARCOL", "DataTypeName" -> "CHAR", "DataLength" -> 3],
SQLColumn["DATECOL", "DataTypeName" -> "DATE"],
SQLColumn["TIMECOL", "DataTypeName" -> "TIME"],
SQLColumn["TIMESTAMPCOL", "DataTypeName" -> "TIMESTAMP"],
SQLColumn["OBJECTCOL", "DataTypeName" -> "OBJECT"]
}]</lang>
=={{header|Oz}}==
|