Dim s As String =" CREATE TABLE User ([_Identify] AUTOINCREMENT PRIMARY KEY, UserName TEXT(255), Password TEXT(100), FullName TEXT(100), 软件类型 TEXT(100), MobilePhone TEXT(100), Creator TEXT(50),CreateTime DATETIME, Role TEXT(20),[AuditStatus] YesNo)"
Functions.Execute("ExecuteReader","MainMdb",s,False)
在Access环境中,这句能执行,但是在Ft中没有办法执行,提示语法错误!
加上中括号
CREATE TABLE [User] ([_Identify] AUTOINCREMENT PRIMARY KEY, [UserName] TEXT(255), [Password] TEXT(100), [FullName] TEXT(100), [软件类型] TEXT(100), [MobilePhone] TEXT(100), [Creator] TEXT(50),[CreateTime] DATETIME, [Role] TEXT(20),[AuditStatus] YesNo)