let kind_string_assoc =
[(SQL_TinyInt, "TINYINT");
(SQL_MediumInt, "MEDIUMINT");
(SQL_Int, "INT");
(SQL_BigInt, "BIGINT");
(SQL_Double, "DOUBLE");
(SQL_Float, "FLOAT");
(SQL_Decimal, "DECIMAL");
(SQL_Char, "CHAR");
(SQL_VarChar, "VARCHAR");
(SQL_TinyBlob, "TINYBLOB");
(SQL_Blob, "BLOB");
(SQL_MediumBlob, "MEDIUMBLOB");
(SQL_LongBlob, "LONGBLOB");
(SQL_TinyText, "TINYTEXT");
(SQL_Text, "TEXT");
(SQL_MediumText, "MEDIUMTEXT");
(SQL_LongText, "LONGTEXT")]