This statement creates a new table.
Syntax
CREATE TABLE tablename (fieldname fieldtype [,fieldname fieldtype])
Parameters
tablename
Specifies the name for a new table.
fieldname
Specifies the name of the column to create in the table.
fieldtype
Specifies the data type for the column. It can be one of the values described in the following table.
| Value | Description |
| Varchar[(n)] | Null-terminated Unicode character string of length n, with a maximum of 255 characters. If n is not supplied, then 1 is assumed, per ANSI SQL. |
| Text | Variable length string that can hold up to 32,000 characters, typically used for more than 255 characters. |
| Varbinary[(n)] | Binary value of length n <256. If n is not specified, the default is 1, per ANSI SQL. |
| Long Varbinary | Binary value of less than 65,469 bytes. This type is also known as OLE Object. |
| Integer, int | 4-byte signed integer. |
| Smallint | 2-byte signed integer. |
| Float | Double-precision floating point value. |
| Datetime | Date value. |
| Bit | Logical or Boolean value—zero for False, nonzero for True. |
| Uint | Unsigned 4-byte integer—provided for backward compatibility only. |
| Usmallint | Unsigned 2-byte integer—provided for backward compatibility only. |
The SQL data types uint and usmallint are provided for backward compatibility with existing Windows CE-based tables. However, this compatibility does not apply to the conversion and filter tools and should not be generally relied upon. You should not use the uint or usmallint datatypes. Instead, use the signed equivalents of int and smallint.
Return Values
One of the following error values can be returned:
Remarks
In Windows CE, you cannot have two tables with the same name on the same device.
Types uint and usmallint are not standard data types on other database systems. Users should not use these data types; they are included here for completeness, but may not be supported on future versions of ADOCE or Windows CE.
Example
The following code example shows how to create a new table using SQL statements.
Dim rs, i, sql(12), sqlcmd
Set rs = CreateObject("adoce.recordset")
sql(0) = "create table allfields ("
sql(1) = "f1 varchar ," 'adVarWChar
sql(2) = "f2 varchar(30)," 'adVarWChar
sql(3) = "f3 text ," 'adLongVarWChar
sql(4) = "f4 varbinary ," 'adVarBinary
sql(5) = "f5 varbinary (30) ," 'adVarBinary
sql(6) = "f6 long varbinary ," 'adLongVarBinary
sql(7) = "f7 int ," 'adInteger
sql(8) = "f8 smallint ," 'adSmallInt
sql(9) = "f9 float ," 'adDouble
sql(10) = "f10 datetime ," 'adDate
sql(11) = "f11 bit" 'adBoolean
sql(12) = ")"
For i = 0 To 12
sqlcmd = sqlcmd & sql(i)
Next
rs.Open sqlcmd
rs.Open "allfields"
MsgBox rs.Fields.Count, , "Fields"
rs.Close
Set rs = Nothing