新手求教,请帮忙: SELECT INTO问题

guom32

偶要每天从新下传的数据中抽取一定数据形成新的表文件,新表文件名希望为 下传日期

代码如下:

Function 生成日期文件()
Dim filname, sql As String
Dim dbs As Database
Dim rst As Recordset


Set dbs = OpenDatabase("D:\access 数据库\数据处理.mdb")
Set rst = dbs.OpenRecordset("清分客户信息表", dbOpenDynaset)
Set rst = dbs.OpenRecordset("select DISTINCT 客户信息表.下传日期 from 客户信息表 WHERE 客户信息表.新机构号='8001'", dbOpenDynaset)

rst.MoveFirst
filname = rst.Fields("下传日期")
MsgBox (filname)
sql = "SELECT 客户信息表.下传日期, 客户信息表.新机构号, 客户信息表.部门号, 客户信息表.客户号 INTO filname FROM 清分客户信息表"
dbs.Execute (sql)

运行结果是生成了一个叫FILNAME的新表,而偶的希望是生成诸如20051213 这样的新表名称,偶该怎么做?谢谢![em06][em06][em06]

[此贴子已经被作者于2005-12-14 15:55:59编辑过]

wwwwa

sql = "SELECT 客户信息表.下传日期, 客户信息表.新机构号, 客户信息表.部门号, 客户信息表.客户号 INTO " & filname &"FROM 清分客户信息表"