_SQLGetColTypeName
( NumDB : Word,
SQLType : Integer) : String
Podle typu databáze NumDB vrací typ sloupce SQLType
ve formě řetězce. Vracený řetězec je potřeba při zakládání nové
tabulky, protože každý databázový stroj používá jiný popis typů
sloupců. Databáze NumDB musí být otevřena pomocí
SQLDBOpen.
Pro SQLType lze používat tyto konstanty:
-
SQL_CHAR
-
SQL_VARCHAR
-
SQL_FLOAT
-
SQL_DOUBLE
-
SQL_INTEGER
-
SQL_SMALLINT
-
SQL_TINYINT
-
SQL_DATETIME
Podívejte se na: SQL makrofunkce
Příklad:
Založení tabulky na libovolném databázovém stroji:
dim NumDB : Word;
SQLDBOpen(NumDB, "Test", "flux", "flux", DBTYPE_MSSQL);
SQLExecute(NumDB, "CREATE TABLE TMP_TEST " +
"(IDENT " + _SQLGetColTypeName(NumDB, SQL_INTEGER) + " NOT
NULL," +
" POPIS " + _SQLGetColTypeName(NumDB, SQL_VARCHAR) +
"(20)," +
" SUMA " + _SQLGetColTypeName(NumDB, SQL_DOUBLE) +
")");
SQLExecute(NumDB, "CREATE INDEX TMP_TEST_IDENT ON TMP_TEST (IDENT)")
Založení tabulky speciálně pro MSSQL server:
dim NumDB : Word;
SQLDBOpen(NumDB, "Test", "flux", "flux", DBTYPE_MSSQL);
SQLExecute(NumDB,
"CREATE TABLE TMP_TEST " +
"(IDENT " + _SQLGetColTypeName(NumDB, SQL_INTEGER)
+ " IDENTITY (1, 1) NOT NULL," +
" POPIS " + _SQLGetColTypeName(NumDB, SQL_VARCHAR)
+ " (20) COLLATE SQL_Czech_CP1250_CI_AS NULL ," +
" SUMA " + _SQLGetColTypeName(NumDB,
SQL_DOUBLE) + " NULL)");
SQLExecute(NumDB, "ALTER TABLE TMP_TEST1 ADD " +
"CONSTRAINT
PK_TMP_TEST PRIMARY KEY CLUSTERED (IDENT) ON [PRIMARY]");
Příklady