如何修改表名为当前系统日期（date()）

简单人生　发表于：2011-08-15 21:38:00 　

复制

自己做了几遍都报错！

如何将以下新建“朋友”表改成名称为当前系统的日期 date()

dim ssql as string

ssql="CREATE TABLE 朋友 ([朋友ID] AUTOINCREMENT,[姓氏] text,[名字] text,[出生日期] date,[电话] text,[备注] memo,PRIMARY KEY ([朋友ID]));"

currentdb.execute ssql

Top

李三发表于：2011-08-16 07:52:17

ssql="CREATE TABLE"& date() &" ([朋友ID] AUTOINCREMENT,[姓氏] text,[名字] text,[出生日期] date,[电话] text,[备注] memo,PRIMARY KEY ([朋友ID]));"

Top

都市侠影发表于：2011-08-16 08:35:02

如下：

   Dim ssql, str As String
    str = Format(Date, "yyyy_mm_dd")
    ssql = "CREATE TABLE 朋友_" & str & "(朋友ID INT,姓氏 VARCHAR(8),名字 VARCHAR(8),出生日期 VARCHAR(8),电话 VARCHAR(8),备注 VARCHAR(8),PRIMARY KEY ([朋友ID]))"
    CurrentDb.Execute ssql

说明：

1、方法是在表名中连接一个字符串，该字符串由日期转换而来。

2、之所以用Format函数是因为日期数据的默认格式是2011-08-16这样的，但表名中不能有短横线，所以改为下划线。

3、你原来的各字段数据类型都不是标准SQL的数据类型。

Top

都市侠影发表于：2011-08-16 08:38:00

上面那个出生日期数据类型改为SMALLDATETIME，其他的数据如果长度不够可以修改括号里的数字。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

如何修改表名为当前系统日期（date()）